[Resolvido]Avisar se o produto esta cadastrado ou não

Olá boa tarde a todos,

No meu sufform de compras tenho um campo codProduto, Produto, valor, quantidade.

Como fazer um comando que Apos atualizar o campo CodProduto, se o produto não é cadastrado exibir uma mensagem dizendo que este produto nao esta cadastrado?

boas
penso que não deve ser feito após actualizar, mas sim antes de actualizar e quando inserir.
se quiser em ado tem aqui uma exemplo.

http://maximoaccess.forumeiros.com/t7587-resolvidocomo-identificar-se-valor-inserido-no-campo-e-igual-ao-anterior

cumps
acao

Boa tarde amigão..

Mas onde vais buscar esta informação?

Especifique a logica
tabelas envolvidas enfim...

Voce vai digitar o codigo do produto e buscar o mesmo em outra tabela?

Não é melhor no campo descrição, uma combo baseada na tabele onde esta cadastrado os produtos? e apos atualizar esta combo lançar os demais valores no campo respectivo?

*** No entanto se deseja como falou acima... o comando seria utilizando o Dlookup, algo assim:

If= DLookup("[CampoID]", "SuaTabela", "[SeuCampoASerPesquisado]= '" & Me.SuaCaixaTexto & "'") = 0 Then
MsgBox "Produto Não Cadastrado",VbCritical, "Aviso"
Else
Seu codigo aqui
End IF

Cumprimentos

Não percebi que estavas a responder Acao...

Cumprimentos.

boas
Harysohn, quanto mais ajudas melhor e assim já tem aonde escolher.
cumps
acao

Olá Harysohn quanto tempo tudo bem?

Obrigado a voce e ao ação pela ajuda:

Então tentei usar o criterio apos atualizar o comando que me passou:

Private Sub CodigoProduto_BeforeUpdate(Cancel As Integer)
If DLookup("[codigoProduto]", "tblPruduto", "[CodigoBarras]= '" & Me.CodigoProduto & "'") = 0 Then

MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Produto = DLookup("Produto", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)
Me.Vrl = DLookup("PrecoVenda", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)
Else
End If

Mas deu erro na compilação.

Obervação eu tenho o comando dlookup apos atualizar assim:

Me.Produto = DLookup("Produto", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)
Me.Vrl = DLookup("PrecoVenda", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)

Perdoe-me a falta de atenção...

utilize o Dcount ao invés do Dlookup

Cumprimentos

Obrigado amigao pela ajuda,

Entao esta dando o erro 3078 erro de mecanismo.

Poderia dar uma olhada na minha estrutura, derepente eu possa esta fazendo alguma coisa erra por favor?

Boas Danilo..

Qual form e tabelas envolvidos?

Amigão... Preste mais atenção na escrita... Você havia escrito tblPruduto.]]


Eis o código

Private Sub CodigoProduto_BeforeUpdate(Cancel As Integer)
If DCount("[codigoProduto]", "tblProduto", "[CodigoBarras]= " & Me.CodigoProduto & "") = 0 Then

MsgBox "Produto Não Cadastrado", vbCritical, "Aviso"
Me.Undo
Else
Me.Produto = DLookup("Produto", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)
Me.Vrl = DLookup("PrecoVenda", "tblProduto", "CodigoBarras=" & Me.CodigoProduto)

End If

Cumprimentos.

End Sub

Pois é meu amigo, um simples erro nao estava dando certo...Agora funcionou direitinho muito obrigado pela ajuda"!!!!

O Fórum agradece retorno.