Bom dia Srs.
Estou com um problema dá seguinte maneira, tenho uma Tabela de Produtos e um campo chamado Cadastro, e não quero que o Usuário cadastre o mesmo produto e cancele ou bloquei a inclusão desse registro e se possível me desse um Msgbox qual o código que está esse registro, cheguei ao seguinte código abaixo:
O que acontece ele dá a mensagem de "Produto já Cadastrado!", porém ele registra mesmo assim o item e não consegui fazer com que mostrasse qual o codigo desse produto já cadastrado.
Obrigado...
Estou com um problema dá seguinte maneira, tenho uma Tabela de Produtos e um campo chamado Cadastro, e não quero que o Usuário cadastre o mesmo produto e cancele ou bloquei a inclusão desse registro e se possível me desse um Msgbox qual o código que está esse registro, cheguei ao seguinte código abaixo:
- Código:
On Error GoTo Cadastro
If Not IsNull(DLookup("[CADASTRO]", "Tbl_PRODUTO", "[CADASTRO] ='" & Me!Txt_Cadastro & "'")) Then
Me.Txt_Cadastro.Undo
DoCmd.CancelEvent
Else
Cadastro:
MsgBox ("Produto já Cadastrado!"), vbInformation, "CADASTRO"
End If
O que acontece ele dá a mensagem de "Produto já Cadastrado!", porém ele registra mesmo assim o item e não consegui fazer com que mostrasse qual o codigo desse produto já cadastrado.
Obrigado...