Boa noite, revirei o forum e resolci uma parte da minha necessidade...
Quando digito o telefone, se o cliente for cadastrado ele avisa e abre o cadastro do cliente, porém, se não for cadastrado ele abre direto o form para cadastro, gostaria que ele desse a mensagem sim/não para escolher se cadastra ou não o cliente.
Private Sub Txt_Tel_Fixo_BeforeUpdate(Cancel As Integer)
If DCount("Tel_Fixo_Cliente", "tb_Cliente", "Tel_Fixo_Cliente ='" & Me.Txt_Tel_Fixo & "'") Then
MsgBox ("Cliente Já Cadastrado"), vbInformation, "Aviso"
DoCmd.OpenForm "Frm_Cad_Clientes_Cs"
Cancel = True
Me!Txt_Tel_Fixo.Undo
End If
End Sub
Quando digito o telefone, se o cliente for cadastrado ele avisa e abre o cadastro do cliente, porém, se não for cadastrado ele abre direto o form para cadastro, gostaria que ele desse a mensagem sim/não para escolher se cadastra ou não o cliente.
Private Sub Txt_Tel_Fixo_BeforeUpdate(Cancel As Integer)
If DCount("Tel_Fixo_Cliente", "tb_Cliente", "Tel_Fixo_Cliente ='" & Me.Txt_Tel_Fixo & "'") Then
MsgBox ("Cliente Já Cadastrado"), vbInformation, "Aviso"
DoCmd.OpenForm "Frm_Cad_Clientes_Cs"
Cancel = True
Me!Txt_Tel_Fixo.Undo
End If
End Sub