Type Mismatch error... Please help...

[craig1988]

Hi all



Can anyone tell me why I get an error message when trying to run this code? I get a "Type Mismatch"??

Both Ref and Day are TEXT

Private Sub Ref_DblClick(Cancel As Integer)
    Dim sWhere As String
    
    sWhere = "[Ref] = '" & Me.Ref & "'" And "[Day] = '" & Me.Day & "'"
    
    DoCmd.OpenForm "frmChecklistSingle", , , sWhere
End Sub

[pbaldy]

The double quotes on both sides of And need to be removed.

[craig1988]

Can you be more specific?? I tried removing a number of the quotes but still had no luck??

Thanks

[pbaldy]

Take out the ones in red. The ones on both sides of And.

sWhere = "[Ref] = '" & Me.Ref & "'" And "[Day] = '" & Me.Day & "'"

[craig1988]

Perfect Thanks!!!!

[pbaldy]

No problem!