[Resolvido]Consulta ao Digitar no textBox

Boa Tarde, Pessoal.

Alguém poderia me ajudar no seguinte problema, tenho um formulário de vendas que informo o Código em uma textbox e ele abre os dados do produto, o problema e que preciso de um modo de validar este código antes de mudar de foco, porque se digito algo que não existe ele só informa pela mensagem do access após perder o foco da textbox, como poderia filtrar este dados e exibir uma mensagem de erro ao sair da textbox.

Grato,Fico no aguardo.

Experimente utilizar a função DCount().

O código irá contar quantos registros existem igual ao número digitado, ser for igual a zero, ou seja, nao tem esse código na tabela, GRITA!!


If DCount("*","NomeDaTabela","[Codigo]" = & Me.CaixaDeTexto) = 0 then
  msgbox " Não existe esse registro"

End If


[ ]'s

Noobezinho,

Testei o codigo ficou assim, só fiz uma pequena alteração o sinal de = fica dentro das aspas

if Dcount("*","tbl_Carrinho1","[CodProduto]=" & Me.txtCodProduto) = 0 Then
msgbox"Produto não Cadastrado"
me.txtCodProduto.setfocus
End if

Funcionou, agora vc pode ajudar em duas coisinhas só pra eu terminar esta parte, ele informa que o código esta errado mas muda o foco para outro campo, tem como evitar que aconteça isso até informar o código certo, o setfocus que coloquei não resolveu, lembrando que coloquei o comando no evento apos atualizar.
Outra coisa como desabilito as mensagens que o access mostra, como neste caso e em outros?
Obrigado

Melhor colocar na propriedade Antes de atualizar:

if Dcount("*","tbl_Carrinho1","[CodProduto]=" & Me.txtCodProduto) = 0 Then
  msgbox"Produto não Cadastrado"
  Exit sub
else

blalbalabl

Endif

Assim ele não sai do controle.

Coloquei conforme vc falou ms continua indo para outro textbox, mesmo com o codigo errado.

Copie e cole todo o código pra eu poder ver

Segue ae meu brother,

Option Compare Database


Private Sub txtCodProduto_BeforeUpdate(Cancel As Integer)
If DCount("*", "tbl_Carrinho", "[CodProduto]=" & Me.txtCodProduto) = 0 Then
MsgBox "Produto não Cadastrado"
Exit Sub
Me.txtCodProduto.SetFocus
Else
Me.txtValor = 0
Me.txtQuantidade.Enabled = True
End If
End Sub

Private Sub txtCodProduto_GotFocus()
Me.txtCodVenda = Forms!frmVendas.txtCódigo.Value
End Sub

Private Sub txtQuantidade_AfterUpdate()
If Me.txtQuantidade = 0 Then
MsgBox "Informe a quantidade!"
Me.txtQuantidade.SetFocus
End If
End Sub

Private Sub txtQuantidade_Exit(Cancel As Integer)
If Me.txtQuantidade = 0 Then
MsgBox "Informe a quantidade!"
Else
Me.txtValor = Me.txtPrecoProduto.Value * Me.txtQuantidade.Value
Me.txtPrecoProd = Me.txtPrecoProduto.Value
Me.txtSomaTudo = Me.txtSomaTudo.Value + Me.txtValor.Value
Forms!frmVendas.txtValorVenda = Me.txtSomaTudo.Value
DoCmd.RunCommand acCmdSaveRecord
End If

End Sub

Acrescente a linha em azul no teu código e veja se funfa:


Private Sub txtCodProduto_BeforeUpdate(Cancel As Integer)
If DCount("*", "tbl_Carrinho", "[CodProduto]=" & Me.txtCodProduto) = 0 Then
   MsgBox "Produto não Cadastrado"
    Cancel = True
   Exit Sub
   Me.txtCodProduto.SetFocus  --> Tire essa linha, pois já está na caixa de texto
Else
   Me.txtValor = 0
   Me.txtQuantidade.Enabled = True
End If
End Sub

Vlw, Noobezinho.

Agora tá fino, obrigado pela ajuda.

Tamos aí, mano !!

Boa sorte !!