[Resolvido]Pesquisa de produto

Boa tarde,

Venho mais uma vez buscar ajuda junto aos amigos...


Pois bem tentei adaptar de um formulário de vendas mais não consegui a estrutura esta montada como podem ver no arquivo anexo, porém não consegui fazer a caixa de pesquisa filtrar a lista de produto e nem ao dar dois click no produto encontrado na lista o mesmo filtrar para edição nos campos a esquerda, poderiam me dar uma força???


desde já agradeço.

Veja aqui:

Criando um formulário de pesquisa

Boas muito boa a aula

Deu certinho a busca no txtpesquisa     

Agora como dar 2 click e filtrar para edição no lado esquerdo da tela?

Essa outra aula, mostra como fazer isso. Tente adaptar.

Aula - Botão procurar

Bom dia gilberlanio,

tentei fazer conforme a sua video aula porém não acontece nada, o código ficou assim

Private Sub lstProduto_DblClick(Cancel As Integer)

DoCmd.OpenForm "flrProduto", acNormal, "", "[Identificacao]= [forms]![flrProduto]![lstProduto]", , acNormal

End Sub

Porém ao dar dois click nada acontece

Poderia me dar uma força maior   

Lembrando que a lista de produto esta no mesmo local do cadastro de produto.

Desde já agradeço

Postei um exemplo hoje que faz exatamente isso, é só adaptar.

http://maximoaccess.forumeiros.com/t18132-cadastro-de-produtos#134543

Adapte agora ai amigo.

https://dl.dropboxusercontent.com/u/90217826/Cad%20Produto.zip

Abçs.

Kaynan OBRIGADOOOO    

Esta a funfar muito bem, mas não entendo nada de macro e tudo que tenho esta em VBA, esta a funcionar 100%

Porém...

Gostaria de entender como o amigo gilberlanio fez em seu form pois tentei colocar em meu form mas da erro.

estou fazendo desta maneira:

Private Sub lstProduto_DblClick(Cancel As Integer)
On Error GoTo lstProduto_Click_Err
   DoCmd.OpenForm "flrProduto", acNormal, "", "[Identificacao]=[Forms]![flrproduto]![lstproduto]", , acNormal
   
lst_nomes_Click_Exit:
   Exit Sub
lst_nomes_Click_Err:
   MsgBox Error$
   Resume lstProduto_Click_Exit
End Sub


O erro que da é este em anexo...

Troque por esse e veja.

Private Sub lstProduto_DblClick(Cancel As Integer)
On Error GoTo lstProduto_Click_Err
DoCmd.OpenForm "flrProduto", acNormal, "", "[Identificacao]=[Forms]![flrproduto]![lstproduto]", , acNormal

lstProduto_Click_Exit:
Exit Sub
lstProduto_Click_Err:
MsgBox Error$
Resume lstProduto_Click_Exit
End Sub

Amigos peço desculpas mais não consigo adaptar     


Em anexo segue banco como ficou, se puderem fazer o código comentado para eu ver onde estou errando.

desde já agradeço

Termine ai amigo,se ao clicar 2 vezes dar erro compile e depure que funciona.
Abçs.

https://dl.dropboxusercontent.com/u/90217826/cad%20prod.zip

Bom dia, mais uma vez obrigado agora deu certinho e eu to rindo atoa    .

gostaria de por o joinha nos dois mas o sistema não aceita, mas fica aqui meu muito obrigado ao amigo Kaynan e ao amigo gilberlanio.


Assunto resolvido.


Até a proxima    

Valeu pelo retorno amigo,sucesso.