Access er en relasjonsdatabase management system som brukes til å bygge små og lokale databaser . En spørring brukes til å hente data fra en database tabell . Ofte programmerere trenger å trekke ut numre fra en spørring i Microsoft Office Access . Den beste måten å oppnå denne oppgaven er gjennom Visual Basic for Applications eller VBA . Instruksjoner
en

Åpne Northwind Microsoft Office Access database inkludert i Microsoft Office-pakken. Velg " Insert "-menyen og klikk
2

Kopier og lim inn følgende i modulen din til å spørre adresse tallene i "Kundene " bord " Module ". :

Private Sub extractNumbers ( )

Dim strSQL As String

Dim rst Som Recordset

Dim dBS Som Database

Dim qryStr As String

Dim charRead As String

Dim finalString As String

Set dBS = CurrentDb

strSQL = "SELECT Customers.Address fra kunder ; "

Sett rst = dBS . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Mens Ikke rst.EOF

qryStr = rst.Fields ( 0 ) . Verdi

Mens qryStr < > " "

charRead = Venstre ( qryStr , 1 )
p Hvis IsNumeric ( charRead ) Så

finalString = finalString & charRead

End If

qryStr = Høyre ( qryStr , Len ( qryStr ) - 1 )

Loop

Debug.Print finalString

finalString = " "

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub

3

Kjør subrutinen ved å trykke " F5 ".