Consultando dados de uma tabela do banco de dados usando caracteres curinga no Microsoft Access não é tão difícil quanto você pode pensar. No Access , você pode usar o Visual Basic for Applications (VBA) para automatizar processos, tais como a consulta de dados . No VBA você pode construir instruções SQL para consultar uma tabela para localizar valores que correspondam a um padrão especificado. O operador "Like" pode ser usado em instruções SQL para especificar um critério , como "Like" D * " ", que irá retornar todos os valores de campo que começam com a letra D. Coisas que você precisa
dados Adamastor

Mostrar Mais instruções
1

Clique na aba " Banco de Dados Ferramentas " , clique em " Visual Basic ", e clique no menu "Inserir" . . Clique em " Module" para inserir um novo módulo de código
2

Crie um novo procedimento sub , digitando o seguinte :

Private Sub useLikeCommand ()
< br > 3

Declare as variáveis ​​que você vai usar para consultar uma tabela de banco de dados , adicionando a seguinte código VBA:

Dim dataString as String

Dim dbs as Database

Dim rst Como Recordset

Dim X as Integer

Set dbs = CurrentDb
4

Definir a seqüência que você vai passar para a instrução SQL :

dataString = " a * "
5

digite o seguinte código para abrir um conjunto de registros usando uma instrução SQL que usa o operador Like :

Set rst = dbs.OpenRecordset ( "SELECT funcionários . [Last Name ] , Funcionários. [ Nome ] " _

&" FROM Employees " _

&" WHERE ( ( ( Employees. [ Nome ] ) Like ' "& ( dataString ) & " ')) ;")
6

Criar um " For ... loop" para exibir os resultados retornados pela consulta usando a janela Immediate :

RST . MoveFirst

Para X = 0 To rst.RecordCount

Debug.Print rst.Fields ("[ Nome ]" ) . Valor

Debug.Print rst.Fields ( " [ apelido ]" ) Valor

rst.MoveNext

Próxima X
7

Termine o seu procedimento , adicionando o seguinte código: .

rst.Close

dbs.Close

End Sub
8

Pressione " Ctrl" e "G " para visualizar a janela Immediate. Pressione " F5" para executar o procedimento .