[Resolvido]exibir mensagem e impedir de prosseguir

Agravina 7/5/2012, 23:13

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº1

exibir mensagem e impedir de prosseguir

Mensagem Agravina 7/5/2012, 23:13

Pessoal tenho campo que efetua um consulta por código,usando função Dlookup
Me.txtproduto.Value = DLookup("[produto]", "tblprodutos", "[codbarras]= '" & Me.txtcod.Value & "'")

mas preciso que quando entrar com um código que não esteja cadastrado,exibir a mensagem Não Cadastro e não permitir ir para proximo campo?

Convidad 7/5/2012, 23:39

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]exibir mensagem e impedir de prosseguir

Mensagem Convidad 7/5/2012, 23:39

Private Sub NomeCampo_BeforeUpdate(Cancel As Integer)
If IsNull(DLookup("[produto]", "tblprodutos", "[codbarras]= '" & Me.txtcod.Value & "'")) Then
Cancel = True
Me.NomeCampo.Undo
MsgBox "Produto não cadastrado."
End If
End Sub