Bom dia
Este código deteta a duplicidade mas num formulário desvinculado, não deixa continuar, mas não limpa o campo digitado ( Me.Undo), nem com Me.Nome_Cartão.Undo
Porquê ?
Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Cancel = True
Me.Undo
End If
End Sub
Obrigado
Este código deteta a duplicidade mas num formulário desvinculado, não deixa continuar, mas não limpa o campo digitado ( Me.Undo), nem com Me.Nome_Cartão.Undo
Porquê ?
Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Cancel = True
Me.Undo
End If
End Sub
Obrigado