Access é um sistema de gerenciamento de banco de dados relacional usado para construir bases de dados pequenas e locais. Uma consulta é usado para recuperar dados de uma tabela do banco de dados . Muitas vezes, os programadores precisam para extrair números de uma consulta no Microsoft Office Access. A melhor maneira de realizar esta tarefa é através do Visual Basic for Applications ou VBA. Instruções
1

Abra o banco de dados Northwind do Microsoft Office Access incluído no pacote Microsoft Office. Selecione o menu "Inserir" e clique em " Módulo ".
2

Copiar e colar o seguinte em seu módulo para consultar os números de endereço na tabela " Clientes " : Sub

Privada extractNumbers ()

Dim strSQL As String

Dim rst Como Recordset

Dim dbs As Database

Dim qryStr As String Dim

charRead As String Dim

finalString As String

Set dbs = CurrentDb

strSQL = "SELECT Customers.Address FROM Clientes ";

Set rst = dbs . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields (0). valor

Do While qryStr <> " "

charRead = Esquerda ( qryStr , 1)

Se IsNumeric ( charRead ) Então

finalString = finalString & charRead

End If

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

loop

Debug.Print finalString

finalString = ""

rst.MoveNext

loop

rst.Close

dbs.Close

End Sub

3

Execute o sub-rotina com a tecla " F5 ".