Query å vise bare Tall i tilgang

Access er en relasjonsdatabase management system brukes til å bygge små og lokale databaser. Et søk blir brukt 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.

Bruksanvisning

1 Åpne North Microsoft Office Access database inkludert i Microsoft Office-pakken. Velg "Insert" -menyen og klikk på "Module".

2 Kopier og lim inn følgende inn i modulen for å spørre adressenummer i "Kunder" tabellen:

Private Sub extractNumbers ()

Dim strSQL As String

Dim rst As Recordset

Dim dbs som database

Dim qryStr As String

Dim charRead As String

Dim finalString As String

Sett dbs = CurrentDb

strSQL = "SELECT Customers.Address fra kunder;"

Sett rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Gjør Mens Ikke rst.EOF

qryStr = rst.Fields(0).Value

Gjør Mens qryStr & lt;> ""

charRead = Left (qryStr, 1)

Hvis IsNumeric (charRead) Deretter

finalString = finalString & charRead

Slutt om

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

Loop

Debug.Print finalString

finalString = ""

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub

3 Kjør subrutine ved å trykke "F5".