Always passes as False problem

[JBurlison]

im trying to see if a record exists, if not create it but it always comes out as False

Private Sub Command121_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim User As String
    Dim SN As String
    Dim DateA As String

    Set db = CurrentDb
    Set rs = db.OpenRecordset("Previous Owners", dbOpenDynaset)


    DateA = Date

    If Me.User_Asigned.Value = "" Or IsNull(Me.User_Asigned.Value) Then
    Else
        Me.Date_Edited.Value = DateA

        User = [User Asigned]
        SN = [Sai Serial Number]


        If Me.User_Asigned.Value = "" Or IsNull(Me.User_Asigned.Value) Then
        Else
            If DCount("[Sai Serial Number]", "Previous Owners", "[Sai Serial Number]=" & Me.Sai_Serial_Number) > 0 And DCount("[User Asigned]", "Previous Owners", "[User Asigned]='" & Me.User_Asigned & "'") > 0 And DCount("[Date Asigned]", "Previous Owners", "[Date Asigned]='" & Me.Date_User_Aquired & "'") > 0 Then
            Else
                With rs
                    .AddNew
                    .Fields("User Asigned") = User
                    .Fields("Sai Serial Number") = SN
                    .Fields("Date Asigned") = DateA
                    .Update
                End With

            End If
        End If
    End If

    DoCmd.Close
    DoCmd.Restore



End Sub

TThis is not working correctly it is still making duplicate records

 If DCount("[Sai Serial Number]", "Previous Owners", "[Sai Serial Number]=" & Me.Sai_Serial_Number) > 0 And DCount("[User Asigned]", "Previous Owners", "[User Asigned]='" & Me.User_Asigned & "'") > 0 And DCount("[Date Asigned]", "Previous Owners", "[Date Asigned]='" & Me.Date_User_Aquired & "'") > 0 Then
            Else

 

[ByteMyzer]

Try:

If DCount("[Sai Serial Number]", "Previous Owners", _
    "[Sai Serial Number]=" & Me.Sai_Serial_Number _
    & " AND [User Asigned]='" & Me.User_Asigned & "'" _
    & " AND [Date Asigned]=#" & Me.Date_User_Aquired & "#") > 0 Then

 

[JBurlison]

Works Great thank you!