[Resolvido]Registros Duplicados Código dá erro...

coloquei no form o seguinte código para registros duplicados:

Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "([Nome] = '" & Me.First_Name & "') And ([Sobrenome] = '" & Me.Last_Name & "')"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Existe Detento cadastrado com este Nome!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
Cancel = True
Me.Undo
Me.Bookmark = rst.Bookmark
End If
End If
Set rst = Nothing
End Sub


Utiliza dois campos para verificacao
Nome e Sobrenome (a serem verificados Juntos)

mas quando digito o campo Nome e vou digitar o sobrenome
dá erro na linha
CANCEL = True
(Variável nao definida)

Alguem pode me ajudar?

Obrigado

Dim cancel as integer

Dim rst As DAO.Recordset
Dim strCriteria As String
Dim CANCEL as integer

strCriteria = "([Nome] = '" & Me.First_Name & "') And ([Sobrenome] = '" & Me.Last_Name & "')"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Existe Detento cadastrado com este Nome!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
Cancel = True
Me.Undo
Me.Bookmark = rst.Bookmark
End If
End If
Set rst = Nothing
End Sub

Obrigado, apliquei a correção e funcionou..

Grato
Harysohn

Obrigado pela resposta
O fórum agradece