Access est un système de gestion de base de données relationnelle utilisée pour construire des petites et locales bases de données. Une requête est utilisée pour extraire des données d' une table de base de données. Souvent, les programmeurs ont besoin pour extraire les numéros d'une requête dans Microsoft Office Access . La meilleure façon de réaliser cette tâche est par Visual Basic pour Applications ou VBA. Instructions
1

Ouvrez la base de données Office Access Northwind Microsoft inclus dans la suite Microsoft Office . Sélectionnez le menu "Insertion " et cliquez sur
2

Copiez et collez le texte suivant dans votre module d'interroger les numéros d'adresse dans la table " clients " " Module ". :

Private Sub extractNumbers ()

strSQL Dim As String

rst As Recordset

Dim dbs As Database

qryStr Dim As String Dim

charRead As String

finalString Dim As String

Set dbs = CurrentDb

strSQL = " SELECT Customers.Address FROM Clients ; "

Set rst = DBS . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields (0) . valeur

Do While qryStr <> ""

charRead = Gauche ( qryStr , 1)

Si IsNumeric ( charRead ) Puis

finalString = finalString & charRead

End If

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

boucle

Debug.Print finalString

finalString = ""

rst.MoveNext

boucle

rst.Close

dbs.Close

End Sub

3

Exécutez le sous-programme en appuyant sur la touche "F5 ".