Senhores do forum,
necessito colocar um botão localizar em um formulário que faça a pesquisa em uma tabela, mas que dê a opção de escolha do campo a ser realizado a pesquisa e em qual tabela.
Criei um botão de pesquisar no formulário que abre a janela tradicional de pesquisa do access (a do binoculo) mas ela não permite selecionar onde examinar, pois o campo "examinar" da janela está desativado e nele aparece o nome do projeto e não da tabela.
Então, solicito ajuda aos forumeiros no sentido de informar se há condições de alterar o código do botão criado (evento ao clicar), para que o campo "examinar" da janela de pesquisa fique sempre como local de pesquisa a tabela do projeto, que é somente uma.
No aguardo, agradeço, esclarecendo que já pesquisei no forum e não achei exemplos que me permitisse adaptções ou dificuldade resolvida semelhante.
O código utilizado no botão criado é este:
Private Sub LocalizarCadastro_Click()
On Error GoTo Err_LocalizarCadastro_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_LocalizarCadastro_Click:
Exit Sub
Err_LocalizarCadastro_Click:
MsgBox Err.Description
Resume Exit_LocalizarCadastro_Click
End Sub
necessito colocar um botão localizar em um formulário que faça a pesquisa em uma tabela, mas que dê a opção de escolha do campo a ser realizado a pesquisa e em qual tabela.
Criei um botão de pesquisar no formulário que abre a janela tradicional de pesquisa do access (a do binoculo) mas ela não permite selecionar onde examinar, pois o campo "examinar" da janela está desativado e nele aparece o nome do projeto e não da tabela.
Então, solicito ajuda aos forumeiros no sentido de informar se há condições de alterar o código do botão criado (evento ao clicar), para que o campo "examinar" da janela de pesquisa fique sempre como local de pesquisa a tabela do projeto, que é somente uma.
No aguardo, agradeço, esclarecendo que já pesquisei no forum e não achei exemplos que me permitisse adaptções ou dificuldade resolvida semelhante.
O código utilizado no botão criado é este:
Private Sub LocalizarCadastro_Click()
On Error GoTo Err_LocalizarCadastro_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_LocalizarCadastro_Click:
Exit Sub
Err_LocalizarCadastro_Click:
MsgBox Err.Description
Resume Exit_LocalizarCadastro_Click
End Sub