[Resolvido]Formulário buscar registro em outro formulário

Bom dia!

Pessoal,

Pesquisei muito aqui no fórum antes de postar minha dúvida. Encontrei muitos exemplos bons, porém, nenhum atendeu de fato ao que eu precisava.
É o seguinte: tenho um BD, onde no Formulário "Cadastro de Cliente" inseri um botão "Localizar". Este botão abre um pequeno form (Localizar Registro) com 3 critérios de busca: código, nome e sobrenome.
A ideia é que ao fornecer uma das informações e clicar no botão "Buscar", o Formulário "Localizar Registro" me retorne o resultado no Formulário "Cadastro de Cliente", como se fosse o próprio comando Localizar e Substituir do Access, mas sem aquela formatação toda.

Espero que possam me ajudar.

Grata,

Bem vinda ao Fórum.


Tenho essa dica, caso queira, é a seguinte:

1 - Crie uma caixa de combinação, não acoplada, ou seja, não vincule a nenhum campo da tabela, no form Cadastro de Clientes;

2 - Em propriedades da cx combinação, na aba Dados, campo Origem da Linha: crie uma consulta com os três campos da sua tabela cliente, dando prioridade para que o campo código do cliente seja o primeiro campo;

3 - Em seguida cole o seguinte código no Evento Após Atualizar da sua combo:

Código:

Private Sub SuaCombo_AfterUpdate()

  ' Encontrar o registro que coincide com o controle.
   
    Me.RecordsetClone.FindFirst "[código cliente da sua tabela] = " & Me![SuaCombo] & ""
 
    Me.Bookmark = Me.RecordsetClone.Bookmark
   
    Me.PrimeiroCampoDoSeuForm.SetFocus
   
    Me.SuaCombo = Null

End Sub

Agora é só testar, e dar um retorno pra nos.


Abraços,

Caro Cleverson,

Fantástica sua dica!!! Resolveu em parte meu problema!

Com relação a localizar o registro no formulário através do código, ao invés de colocar somente o evento "após atualizar" na combobox, coloquei também um botão, que funciona direitinho. Ele realiza a busca pelo código normalmente.

Mas, gostaria que houvesse a possibilidade de buscar também pelo nome. Então criei uma outra combobox não acoplada e tentei adaptar seu código para esta também. O que acontece é que após clicar no botão, ele dá o foco no campo "nome" do Formulário, mas, não realiza a busca propriamente dita; outrora, apresenta erro.

O que estou fazendo de errado?

Você só precisa alterar alguns detalhes:

01 - Coloque o campo NomeCliente como o primeiro campo da consulta;

02 - Mas mantenha o campo códigocliente, pode ficar como o terceiro;

03 - Troque a respectiva linha do código por esta abaixo, preste atenção que agora são apóstrofes, pois o tipo de dados mudou para texto;

Código:

    Me.RecordsetClone.FindFirst "[Cliente_Nome] = '" & Me![BuscaCliente] & "'"


Pronto, agora é só testar.


Abraços,

Valeu Cleverson!


Tudo funcionando direitinho!! Muitíssimo obrigada!


Abs,

O Fórum agradece o retorno.


Abraços,

Esse tópico me ajudou também!

Legal, que ajudamos vc também!!!!