Acceso es un sistema de gestión de base de datos relacional utilizada para construir bases de datos pequeñas y locales . Una consulta se utiliza para recuperar datos de una tabla de base de datos . A menudo, los programadores necesitan para extraer los números de una consulta en Microsoft Office Access . La mejor manera de lograr esta tarea es a través de Visual Basic para Aplicaciones o VBA. Instrucciones
1

Abra la base de datos de Microsoft Office Access Northwind incluida en la suite de Microsoft Office. Seleccione el menú "Insertar" y haga clic en
2

Copie y pegue el código siguiente en el módulo para consultar los números de la dirección de la tabla " Clientes ", "Módulo ". :

Private Sub extractNumbers ()

strSQL As String Dim

rst As Recordset

Dim dbs como base de datos

qryStr Dim As String Dim

charRead As String

finalString dévil como secuencia

Set dbs = CurrentDb

strSQL = " Customers.Address SELECT FROM Clientes ";

Set rst = dbs . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields ( 0 ) . Valor

¿ Mientras qryStr < > ""

charRead = Izquierda ( qryStr , 1) spanish

Si IsNumeric ( charRead ) Entonces

finalString = finalString y charRead

End If

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

Loop

Debug.Print finalString

finalString = ""

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub
Página 3

Ejecute la subrutina con la tecla " F5 ".