Boa Noite caros colegas!!
Tenho um formulário de cadastro onde este possui alguns botões, novo, editar, avançar, anterior, etc..
Também tenho um formulário de pesquisa para pesquisar os cadastros no BD.
No formulário de pesquisa quando dou um duplo clique na lista ele carrega os dados da lista no meu formulário de cadastro para que eu possa alterar ou excluir.
O problema que tenho é que ao carregar os dados da lista no formulário de cadastro os botões de navegação (primeiro, anterior, proximo e ultimo) simplismente param de funcionar.
Ficaria muito grato com uma ajudinha.
Segue abaixo os códigos e o BD:
Botao Localizar:
Lista ao clicar:
Lista ao clicar 2x:
Tenho um formulário de cadastro onde este possui alguns botões, novo, editar, avançar, anterior, etc..
Também tenho um formulário de pesquisa para pesquisar os cadastros no BD.
No formulário de pesquisa quando dou um duplo clique na lista ele carrega os dados da lista no meu formulário de cadastro para que eu possa alterar ou excluir.
O problema que tenho é que ao carregar os dados da lista no formulário de cadastro os botões de navegação (primeiro, anterior, proximo e ultimo) simplismente param de funcionar.
Ficaria muito grato com uma ajudinha.
Segue abaixo os códigos e o BD:
Botao Localizar:
- Código:
Private Sub Btn_Localizar_Click()
DoCmd.Close
DoCmd.OpenForm "Frm_Pesq_Cad_Forn"
End Sub
Lista ao clicar:
- Código:
Private Sub ltxListaProdutos_Click()
Selecionado = True
End Sub
Lista ao clicar 2x:
- Código:
Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
On Error GoTo ltxListaProdutos_Click_Err
DoCmd.OpenForm "Frm_Cad_Forn", acNormal, "", "[CLIENTES]=[Forms]![Frm_Pesq_Cad_Forn]![ltxListaProdutos]", , acNormal
DoCmd.Close acForm, "Frm_Pesq_Cad_Forn"
ltxListaProdutos_Click_Exit:
Exit Sub
ltxListaProdutos_Click_Err:
MsgBox Error$
Resume ltxListaProdutos_Click_Exit
End Sub
- Anexos
Cad_Forn.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (91 Kb) Baixado 12 vez(es)