[Resolvido]Item nao cadastrado.

Boa noite.
Alguem informa algum topico, que me oriente como fazer quando item nao esta cadastrado

Quando digito o codigo, ele retorna a descrição  do produto, caso nao esteja cadastrado ele mostra msn e posiciona o curso no campi que digitou o codigo. Tentei fazer, mas mesmo se nao tiver cadastrado ele pula pra proximo campo

Boas...

é só fazer uma busca aqui no fórum.

https://www.maximoaccess.com/t18204-resolvidoavisar-se-nao-cadastrado

https://www.maximoaccess.com/t7709-resolvidoavisar-se-o-produto-esta-cadastrado-ou-nao

https://www.maximoaccess.com/t38789-resolvidoduvida-com-codigo-de-verificacao-se-produto-tem-cadastro-na-tabela

Boa noite.
Após algumas tentativas , as orientações foram testadas e consegui que funcionasse, porém quando o código não estiver cadastrado, a ideia é que somente o campo que está o código, seja limpo. e o cursor posicione no campo código

Código:



Private Sub Cod_Produto_AfterUpdate()
If IsNull(DLookup("[desc_produto]", "tab_cadastro", "[cod_produto]= Forms!Frm_acerto!cod_produto")) Then
    MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
    'Me.Cod_Produto = " "
    'Me.Cod_Produto.SetFocus
    Me.Undo
    Else
    Me.Desc_Produto = DLookup("desc_Produto", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
    Me.Fisico_Produto = DLookup("QuantidadeAtual", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
End If

End Sub





Boa noite. Realizei uma alteração em uma linha , no lugar do comando me.undo (Limpa todas as celulas) usei cancel=true, porém ela posiciona o curso no campo cod_produto, mas não limpa este campo.

Código:



Private Sub Cod_Produto_BeforeUpdate(Cancel As Integer)
    If IsNull(DLookup("[desc_produto]", "tab_cadastro", "[cod_produto]= Forms!Frm_acerto!cod_produto")) Then
    MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
    'Me.Cod_Produto = Empty
    'Me.Cod_Produto.SetFocus
    'Me.Cod_Produto = ""
    'Me.Undo
    Cancel = True
    'Me.Cod_Produto = ""
    'Cod_Produto.SetFocus
   
    Me.Btn_Novo.Enabled = True
    Me.Btn_Cadastro.Enabled = True
    Else
    Me.Desc_Produto = DLookup("desc_Produto", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
    Me.Fisico_Produto = DLookup("QuantidadeAtual", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
End If
End Sub