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.
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