[Resolvido]Abrir form ao inserir código

Ola gente boa, quero neste exemplo no formulario "FrnAbre" ao colocar o código do produto na caixa texto, já abrir o form "CadProd" com os dados referente a esse código sem precisar teclar em outro botão, algum colega da uma olhada.

https://dl.dropboxusercontent.com/u/90217826/EXEMPLO.rar

Kaynan,

Cole o código abaixo no evento após atualizar de sua caixa de texto:

Código:

On Error Resume Next 'Quero que o código não seja interrompido mesmo que haja o erro 94
'---------------------------------
'Crio uma variável para tratamento
'---------------------------------
Dim xProd As String
xProd = DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Texto2 & "'")
'-----------------------
'Aqui eu trato o erro 94
'-----------------------
If err.Number = 94 Then: Texto2 = "": MsgBox "Produto não cadastrado.", vbInformation, "Sistema": Exit Sub
'-----------------------------------------------
'Se o produto existe abre o cadastro relacionado
'-----------------------------------------------
DoCmd.Close acForm, "frmAbre"
DoCmd.OpenForm "CadProd", acNormal, , "CódigoBarras='" & xProd & "'", , acWindowNormal

*** Digite o código e veja o resultado.


Abraços,

Ai Uilson,com teu código resolvi mais um probleminha aqui.
Muito obrigado amigo,valeu mesmo.

Abç. amigo.

Kaynan, O que você pretende já existe.
Veja que na consulta "Cs_TitulosAreceber" tem um critério ([Formulários]![Frm_BT_BuscaCodCliente]![CODIGO])  ligado ao formulário "Frm_BT_BuscaCodCliente".
Agora abra o formulário "Frm_BT_BuscaCodCliente" e digite o código do cliente 702 ou 703 que terás o que pretendes.

Ops!!! Você editou a segunda dúvida. Mas tá aí a solução para ela.

Abraços,