Access is een relationele database management systeem dat wordt gebruikt om kleine en lokale databases op te bouwen . Een query wordt gebruikt om gegevens uit een database tabel te halen . Vaak programmeurs nodig hebben om nummers uit een query in Microsoft Office Access . De beste manier om dat te bereiken is door middel van Visual Basic for Applications of VBA . Instructies
1 Open de Noordenwind Microsoft Office Access-database opgenomen in de Microsoft Office suite . Selecteer in het menu "Invoegen " en klik
Copy 2 en plak het volgende in uw module aan het adres van getallen in de "Klanten " table bevragen " Module . " : Private Sub
extractNumbers ( ) Dim strSQL
als Koord Dim rst
als Recordset
Dim dbs als Database Dim qryStr
als Koord
Dim charRead als Koord Dim finalString
als Koord Set
dbs = CurrentDb strSQL
= " SELECT Customers.Address van klanten ; "
Set rst = dbs . OpenRecordset ( strSQL ) rst.MoveLast rst.MoveFirst
Do While Not rst.EOF qryStr
= rst.Fields ( 0 ) . waarde
Doe terwijl qryStr < > " " charRead
= Left ( qryStr , 1 ) op Twitter Als IsNumeric ( charRead ) dan
finalString = finalString & charRead End
Als qryStr = Right ( qryStr , Len ( qryStr ) - 1 ) op Twitter Loop
Debug.Print finalString
finalString = " " rst.MoveNext Loop rst.Close dbs.Close End Sub
< br >
3 Run de subroutine door op " F5 . "
|
