As consultas são uma ferramenta poderosa no Microsoft Access para recuperar informações de uma tabela de banco de dados e ter o conhecimento de como usar variáveis ​​em consultas pode fazer seu pedido de acesso mais dinâmico. No VBA você pode construir instruções SQL que contêm variáveis ​​como variáveis ​​String para recuperar dados. Depois de construir a instrução SQL , então você pode usar o objeto Recordset para recuperar resultados da consulta. Variáveis ​​de usuário em vez de passar o tempo construindo muitas instruções SQL com os critérios de hard-coded . Coisas que você precisa
dados Adamastor
Show Mais instruções
1

Comece criando um novo procedimento sub usando o seguinte código : Private Sub

useVariablesInQuery ()
2

Digite o seguinte código para criar as variáveis ​​que você vai usar na sua consulta :

Dim strSQL as String Dim

companyName as String

Dim lastName As String

Dim rst Como Recordset

Dim dbs As Database

Set dbs = CurrentDb
3

digite o seguinte para definir os valores das variáveis ​​utilizadas em sua consulta :

COMPANYNAME = " Adamastor "

sobrenome = " Freehafer "
4

digite o seguinte para criar uma consulta usando as variáveis ​​no passo anterior :

strSQL = " . . SELECIONE Employees.Company , funcionários [Last Name ] , empregados [ Nome ]",

strSQL = strSQL & "Colaboradores . [E- mail] "

strSQL = strSQL & " FROM Employees "

strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = '" & ( companyName ) & " ')"

strSQL = strSQL & " AND ( ( Employees. [Last Name ]) = '" & ( lastName ) & " ')); "
5

Digite o seguinte para abrir um conjunto de registros e exibir os resultados da consulta :

Set rst = dbs.OpenRecordset ( strSQL )

Debug.Print rst.Fields (0) Valor < . br>

Debug.Print rst.Fields (1) Valor

Debug.Print rst.Fields (2). Valor

Debug.Print rst.Fields (3). Value.
6

Digite o seguinte para terminar o seu sub procedimento :

rst.Close

dbs.Close

End Sub
< br > 7

Pressione " F5 " para executar seu código.