Como acessar os resultados da consulta VBA

Inicie o Microsoft Office Access 2007 e selecione "Banco de dados em branco," então clique "Crio." Clique "Ferramentas de banco de dados" e selecione "Visual básico." Clique no "Inserir" campo e selecione "Módulo".

Digitar "sub readQueryResults privadas" e pressione "Entrar" para criar uma nova sub-rotina.

Digite o seguinte para declarar variáveis ​​que você vai usar para ler os resultados da consulta:

Dim RecordSt Como Recordset

Dim dBase As Database

Dim stringSQL As String

Dim RCNT As Integer

Digite o seguinte para criar o "CityTbl" mesa:

stringSQL = "CREATE TABLE CityTbl (TEXT City (25), TEXT Estado (25)) -"

DoCmd.RunSQL (stringSQL)

Digite o seguinte para adicionar dois novos registros para o seu "CityTbl" mesa:

stringSQL = "INSERT INTO CityTbl ([City], [Estado]) "

stringSQL = stringSQL & "VALUES ( `Fort Worth`, `Texas`) -"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO CityTbl ([City], [Estado]) "

stringSQL = stringSQL & "VALUES ( `Dallas`, `Texas`) -"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

Digite o seguinte para definir a consulta e abra o conjunto de registros:

stringSQL = "SELECIONE CityTbl. * FROM CityTbl-"

Definir RecordSt = dBase.OpenRecordset (stringSQL)

Digite o seguinte para criar um "For loop" e exibir os resultados da consulta por meio de uma caixa de mensagem:

RecordSt.MoveFirst

Para RCNT = 0 Para RecordSt.RecordCount

MsgBox (RecordSt.Fields ("Cidade").Valor & ", " & RecordSt.Fields ("Estado").Valor)

RecordSt.MoveNext

Próximo RCNT

pressione "F5" para executar o sub-rotina.