Blz galera como ta , entaun eu tenho um tipo de consulta que eu uso um option , que busca uma determinada coisa e retorna tambem o a quantidade dessa coisa , eu tenho por exemplo um formulario Lote , que ten os campos como exemplo "Numero do Lote" e "Numero da Quadra" so que por exemplo se eu tenho tres lotes com o numero 12  so que sao de quadras diferentes por exemplo tipo quadra 1 ,2 e 3 , eu gostaria de fazer uma consulta de apertar o option por exemplo pra pesquisar o numero do lote e depois imediatamente apertar o option numero da quadra pra limitar ainda mais a minha consulta , porq se eu fizer a consulta com o lote 12 , vai voltar todos os registros com esse numero , eu gostaria de poder limitar ainda mais , tipo lote 12 e depois quadra 2 , ae so podera retornar um registro, entenderam?  alguem tem alguma ideia? muito obrigado

esse é o codigo que eu uso pessoal , e percebam q existem N conbinacoes que podem ser feitas , varias consultas em cima de consultas

With rslote
If RadiobuttonXPFree2.Value = True Then .Filter = "Codigo Like " & TxtPesquisar 'Codigo
If RadiobuttonXPFree5.Value = True Then .Filter = "Identificacao Like '" & TxtPesquisar & "*'" 'Identificacao do Lote
If RadiobuttonXPFree4.Value = True Then .Filter = PegaValor(TxtPesquisar) 'valor
If RadiobuttonXPFree3.Value = True Then .Filter = "Quadra like '" & TxtPesquisar & "*'" 'quadra
If RadiobuttonXPFree1.Value = True Then .Filter = "Bairro like '" & TxtPesquisar & "*'" 'Bairro
If RadiobuttonXPFree6.Value = True Then .Filter = "Rua like '" & TxtPesquisar & "*'" 'rua
If RadiobuttonXPFree7.Value = True Then .Filter = "Cidade like '" & TxtPesquisar & "*'" 'cidade
If RadiobuttonXPFree8.Value = True Then .Filter = "Lote like '" & TxtPesquisar & "*'" ' numero do lote
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With

Nos locais onde só quer encontrar um registo substitua o Like por igual "=".

vc dis assi m irmao , num funcionou vei, a consulta num foi busca nada, valew por posta

If RadiobuttonXPFree8.Value = True Then .Filter = "Lote  " = "'" & TxtPesquisar & "*'" ' numero do lote

Pensei que você soubesse:

 

Não use o "*" com "="

 

 

 

assim tamen naun func

If RadiobuttonXPFree8.Value = True Then .Filter = "Lote   " = "  & TxtPesquisar"

alias qual a diferença vei * ou %

Eis um exemplo:

 

      rstTempPag.Filter = "CodPag = '" & rstTemp.Fields!CodPag & "'"

Declaração de variáveis: