Necessito que este código me alerte se o registo já deu entrada através do "FindFirst" em dois campos, numérico e data.
Este mesmo código está a correr noutra BD só que os dois campos são de texto.
Antecipadamente grato
Luís Filipe Antunes
Este mesmo código está a correr noutra BD só que os dois campos são de texto.
Antecipadamente grato
Luís Filipe Antunes
- Código:
Private Sub Ofnº_BeforeUpdate(Cancel As Integer)
'seta variavel recordset
Set Tabela = Me.RecordsetClone
With Tabela
'verifica se o cliente já está cadastrado
.FindFirst "OfNº='" & Me.OfN & "' and [DataEntrada]= '" & Me.DataEntrada & "'"
'se encontrou então
If Not .NoMatch Then
Cancel = True
'Desfaz o registro
Me.Undo
MsgBox "Registo repetido", vbCritical, "Atenção"
'exibe o registro já cadastrado
Me.Bookmark = .Bookmark
End If
End With
Set Tabela = Nothing
End Sub