[Resolvido]Ajuda buscar registro por auto-seleção [formulários]

Amigos,
primeiro: sou kbço no access vba = apanhando igual um cavalo.
segundo: Posso ir adicionando algumas dúvidas aqui para resolver um projeto que estou desenvolvendo?

Problema: Gostaria de apertar um botçao em um formulário executado que abrirá uma consulta. essa consulta envia uma msg para o usuário digitar o termo a ser pesquisado, após, o vba deve navegar pelos registros encontrados e apresentálos em algum lugar para o usuário selecionar o código do termo [cliente] que ele quer.

Dessa forma funcionaria?

Eu travei ao criar o código para iniciar a navegação pelos registros trazidos pela tabela. segue o código até o ponto que eu trabalhei:

********************
Public Sub FrmComCadCliLocaliza_Click()

Dim db As DAO.Database
Dim qrydef As DAO.QueryDef
Dim rsQRY As DAO.Recordset
Dim strSQL, dadoFrm As String
Dim codQry, nameQry As Variant

Set db = CurrentDb()

'comando para excluir a tabela gerada anteriormente - caso tenha sido criada:
On Error GoTo ErrorHandler
db.QueryDefs.Delete "QryCliente"

'atualiza BD
RefreshDatabaseWindow
volta:

'cria colsulta com cód SQL inserido
strSQL = "select * from Tab_Cliente where tab_cliente.TabCtNomeCliente like '*' + [Digíte o nome do cliente entre (*):] + '*' Order by TabCtNomeCliente desc"
Set qrydef = db.CreateQueryDef("QryCliente", strSQL)
RefreshDatabaseWindow

'Abre a consulta
DoCmd.OpenQuery ("QryCliente")

Set rsQRY = db.OpenRecordset("QryCliente", dbOpenDynaset) ' aqui eu recebo uma msg:


'aqui estou criando ainda
rs.MoveFirst
Do While Not (rsQRY.EOF)
'se achar o nome, incrementa e coleta variável para fechamento da rotina
If rsQRY(0) <> "" Then
codQry = rsQRY(0) 'rsqry("TabCtNomeCliente").value
nameQry = rsQRY(1) 'rsqry("TabCtCodCliente").value
'abre formulário para apresentar os dados encontrados
If codQry <> Empty And openFRA = False Then
DoCmd.OpenForm "Pop_FrmCadastroClientes"
End If
End If
rsQRY.MoveNext
Loop

db.Close
ErrorHandler:
GoTo volta

End Sub
*****************

Olá, seja bem vindo ao fórum. Tópico movido para uma sala mais adequada, tendo em vista que as salas de repositório se destina a postagem de exemplos e não de dúvidas.

Você pode filtrar um registro no próprio formulário utilizando um campo texto nele mesmo para inserir o dado a ser filtrado. Vamos supor que você tenha uma tabela de nome tblClientes e tem nela um campo de nome NomeCliente e no formulário tem o campo txtNome que exibe esse nome. Vamos supor que o nome do campo utilizado para digitar o nome do cliente seja txtPesquisa. No evento "Ao clicar" de um botão, coloque:

Código:

Me.Form.Filter "txtCliente LIKE '*" & Me.txtPesquisa & "*'"
Me.Form.FilterOn = True

ou pode ser assim tambem:

Código:

Me.RecordSource = "SELECT * FROM tblClientes WHERE NomeCliente LIKE '*" & Me.txtPesquisa & "'

Tks criquio.

Vixi. Agora pioro..
Deixa eu entender o que vc disse e depois eu comento bl?
comprei umas apostilas na NET, mas tem 2000 pgs. tem bastante exeplo mas nada ref. ao que perguntei.
Eu gostaria de fazer tudo pelo VBA para sempre checar o usuário antes de permitir as segtes tranzações:

Somente exibição
Alterar
Criar

A dúvida agora é só acessar o registro da consulta: qdo executo esse comando recebo uma msg de erro "incompatível".???

Set rsQRY = db.OpenRecordset("QryCliente", dbOpenDynaset)

Vlw.