Access è un sistema di gestione di database relazionale utilizzato per costruire banche dati di piccole e locali. Una query viene utilizzato per recuperare i dati da una tabella di database . Spesso i programmatori hanno bisogno di estrarre i numeri da una query in Microsoft Office Access . Il modo migliore per realizzare questo compito è attraverso Visual Basic for Applications o VBA . Istruzioni
1

Aprire il Northwind database di Microsoft Office Access incluso nella suite Microsoft Office . Selezionare il menu "Inserisci" e fare clic su
2

Copia e incolla quanto segue nel tuo modulo per richiedere i numeri di indirizzo nella tabella " clienti " "Modulo ". :

Private Sub extractNumbers ( ) per

Dim strSQL As String

Dim rst come Recordset

Dim dbs As Database Dim

qryStr As String Dim

charRead As String Dim

finalString As String

Set dbs = CurrentDb

strSQL = " SELECT FROM Customers.Address clienti ; "

Set rst = DBS . OpenRecordset ( strSQL ) per

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields ( 0 ) . valore

Do While qryStr < > " "

charRead = Sinistra ( qryStr , 1 ) per

Se IsNumeric ( charRead ) Poi

finalString = finalString & charRead

End If

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

loop

Debug.Print finalString

finalString = ""

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub

3

eseguire la subroutine con il tasto " F5 ".

• Come compilare i programmi di MS Access 2007 
• Accesso: VBA Esporta query