[Resolvido]Executar comando apenas em registros novos

Prezados (as), boa tarde,

Possuo o seguinte código para analisar se o valor inserido no campo já existe em outro registro:

Private Sub CPF_BeforeUpdate(Cancel As Integer)


'Evento que avalia se o CPF inserido já existe em algum registro
If (Not IsNull(DLookup("[CPF]", "Acesso_DTP", "[CPF] ='" & Me!CPF & "'"))) Then
Call MsgBox("O CPF inserido já está cadastrado no sistema. " & CPF.Text, vbInformation, "Atenção")
Call MsgBox("Clique no botão Excluir e busque o CPF do munícipe para localizar o registo e liberar a entrada. ", vbInformation, "Atenção")
Cancel = True 'cancela o evento.
Me!CPF.Undo 'desfaz a digitação.
End If


End Sub

Contudo, preciso que isto ocorra somente quando o usuário clicar no botão Novo, ou seja, em registros novos apenas.

Alguém conhece uma solução para isto?

Já grato pela atenção de todos!

Talvez;

Código:

If Me.NewRecord AND Not IsNull(DLookup("[CPF]", "Acesso_DTP", "[CPF] ='" & Me!CPF & "'")) Then

Boa tarde JPaulo,

Executei sua dica da seguinte forma (e deu certo):

Private Sub CPF_BeforeUpdate(Cancel As Integer)

If Me.NewRecord Then
'Evento que avalia se o CPF inserido já existe em algum registro
If (Not IsNull(DLookup("[CPF]", "Acesso_DTP", "[CPF] ='" & Me!CPF & "'"))) Then
Call MsgBox("O CPF inserido já está cadastrado no sistema. " & CPF.Text, vbInformation, "Atenção")
Call MsgBox("Clique no botão Excluir e busque o CPF do munícipe para localizar o registo e liberar a entrada. ", vbInformation, "Atenção")
Cancel = True 'cancela o evento.
Me!CPF.Undo 'desfaz a digitação.
End If
End If

Muito grato pela dica. Resolvido

Obrigado pelo retorno o forum agradece.