[Resolvido]Condição com Not Exists - VBA

Código:


Private Sub txtData_AfterUpdate()
Dim VerificaData

VerificaData = DLookup("Data","tblEscalaFiliais","CodFilial = '" & Me.txtCodFilial & "'")
    If IsNull(VerificaData) Then
        DoCmd.RunMacro ("CriarData")
    Else
        DoCmd.RunMacro ("AlterarDados")
    End If
End Sub


Private Sub txtData_AfterUpdate()
Dim VerificaData

VerificaData = DCount("*","tblEscalaFiliais","CodFilial = '" & Me.txtCodFilial & "'")
    If VerificaData = 0 Then
        DoCmd.RunMacro ("CriarData")
    Else
        DoCmd.RunMacro ("AlterarDados")
    End If
End Sub

VerificaData = DCount("*", "tblEscalaFiliais", "CodFilial = '" & Me.txtCodFilial & "' AND Data=#" & Me.Data & "#")

Private Sub txtData_AfterUpdate()
'By JPaulo ® Maximo Access
Dim strConc As String
Dim rs As DAO.Recordset

'abre o recordset à tabela tblEscalaFiliais
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblEscalaFiliais ", dbOpenDynaset)
'concaneta o código com a data
strConc = Trim(Me!txtCod.Value) & Trim(Me.txtData.Value)

    Do While Not rs.EOF
'valida se o código com a data existe
    If Trim(rs![CodFilial]) & Trim(rs![Data]) = strConc Then

       MsgBox "Atenção a data  " & txtData & Chr(10) + "que você digitou já existe!", vbCritical, "Data Duplicada"
       Me.txtData.Value = ""
       rs.Close
       Set rs = Nothing
       Exit Sub
       Else

    End If
    rs.MoveNext
    Loop
    ' se não existir, avança
            MsgBox "OK! A Data digitada ainda não existe!", vbInformation, "Data Verificada."
            Me.cboFuncionarios.Enabled = True
            Me.Recalc
            Me.cboFuncionarios.SetFocus
            Me.cboFuncionarios.Dropdown
rs.Close
Set rs = Nothing
End Sub