Access er en relationel database management system, der anvendes til at bygge små og lokale databaser. En forespørgsel bruges til at hente data fra en database tabel . Ofte programmører er nødt til at hente numre fra en forespørgsel i Microsoft Office Access. Den bedste måde at opnå denne opgave er gennem Visual Basic for Applications eller VBA . Instruktioner
1

Åbn Northwind Microsoft Office Access -database inkluderet i Microsoft Office-pakken. Vælg "Indsæt " menuen og klik
2

Kopier og indsæt følgende i din modul til at forespørge adresse numre i " kunder" table " Modul ". :

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 FROM Kunder , "

Set rst = dbs . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields (0). value

Do While qryStr < > " "

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

finalString = finalString & charRead

End If

qryStr = Right ( qryStr , Len ( qryStr ) - 1)

Loop

Debug.Print finalString

finalString = ""

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub < br >
3

Kør subrutine ved at trykke på " F5 ".