Gostaria que este código, de J Paulo, fizesse mais localizações de dados, isto é: que numa caixa de mensagem tivesse uma opção "Next"
'By JPaulo ® Maximo Access
Dim strX
strX = InputBox("Digite o que pretende filtrar", "Filtrar")
'Se pressionar o Cancel, a instrução morre aqui
If StrPtr(strX) = 0 Then Exit Sub
'Se pressionar o Ok sem digitar valores morre aqui
If strX = "" Then Exit Sub
'se digitar algo e pressionar Ok, irá fazer uma busca em qualquer parte do seu formulário
DoCmd.FindRecord strX, acAnywhere, False, , True, acAll, True
Luís Antunes
'By JPaulo ® Maximo Access
Dim strX
strX = InputBox("Digite o que pretende filtrar", "Filtrar")
'Se pressionar o Cancel, a instrução morre aqui
If StrPtr(strX) = 0 Then Exit Sub
'Se pressionar o Ok sem digitar valores morre aqui
If strX = "" Then Exit Sub
'se digitar algo e pressionar Ok, irá fazer uma busca em qualquer parte do seu formulário
DoCmd.FindRecord strX, acAnywhere, False, , True, acAll, True
Luís Antunes