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 ".
Programmazione © www.354353.com