[Resolvido]Erro para identificar campo em duplicidade

Boa tarde pessoal,

Preciso de uma pequena ajuda de vocês, estou usando esse code para identificar se tem algum registro em duplicidade e se eu desejo continuar, o problema é seguinte quando eu coloco sim ele funcionar perfeitamente, mais quando eu coloco não ele da uma mensagem de erro anexa, quando eu mando Depura e diz que o erro esta aqui strWhere.Text = "", o que eu faço para corrigir.  

Código:

Private Sub strWhere_BeforeUpdate(Cancel As Integer)
Dim db As DAO.Database
Dim RS As DAO.Recordset
If IsNull(DLookup("sys", "CSample", "([sys] = '" & Forms![frmSample]![sys] & "')")) Then
GoTo Saida
End If
If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbYes Then
    Else
    strWhere.Text = ""
End If
 Exit Sub
Saida:

    Exit Sub

End Sub

Messias

Vendo o teu código:

Private Sub strWhere_BeforeUpdate(Cancel As Integer)
Dim db As DAO.Database
Dim RS As DAO.Recordset
If IsNull(DLookup("sys", "CSample", "[sys] = '" & Forms!frmSample!sys & "'" Then
  Exit sub
End If

If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbNo Then
      Me.strWhere = Null
End If

End sub

[ ]'s

Obrigado pela ajuda, de imediato apareceu o mesmo erro, mais após analisar o seu code consegui descobrir onde eu estava errando, como eu estava usando no evento antes de atualizar, acredito que era por que eu estava anulando um campo que já estava nulo, por isso que estava dando a mensagem de erro.

Private Sub strWhere_BeforeUpdate(Cancel As Integer)
Dim db As DAO.Database
Dim RS As DAO.Recordset
If IsNull(DLookup("sys", "CSample", "[sys] = '" & Forms!frmSample!sys & "'")) Then
 Exit sub
End If

If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbNo Then
     Me.strWhere = Null 'Substitui esse campo por outro, ficou perfeito'
End If

End sub

Agradeço a esta equipe por esta sempre disposto a nos ajudar e Deus venha abençoando vocês cada vez mais.

Ótimo que resolveu

Valeu pelo retorno.

Estaremos aguardando teu retorno, Messias!

Boa sorte!