Solved finding RECORDS WITH TWO CRITERIA (1 Viewer)

[sbaud2003]

I HAVE A TABLE WHERE SERIAL NO IS AUTO GENERATED AND THE CORRESPONDING YEAR.
i WAND TO HAVE TWO COMBO BOX SHEWING THE SERIAL NO AND THE YEAR. i WANT TO FIND THE RECORDS BASED ON THE SERIAL NO SELECTED FROM COMBO SERIAL NO BASE ON THE YEAR IN COMYEAR
I HAVE TRIED WITH THE CODE BUT NOT WORKING

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PAYMENT_SL] = " & Str(Nz(Me![COMSL], 0)) And "[FINYEAR] = " & Me![COMTFY]
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

NAY BODY CAN HELP

 

[arnelgp]

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
    If Not (.BOF And .EOF) Then
        .MoveFirst
        .FindFirst "[PAYMENT_SL] = " & Str(Nz(Me![COMSL], 0)) & " And [FINYEAR] = " & Me![COMTFY]
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        End If
    End If
End With
Set rs = Nothing

 

[Ranman256]

If seisl# is a string,them it must be in quotes:

rs.FindFirst "[PAYMENT_SL] = '" & Str(Nz(Me![COMSL], 0)) & "' and [fINYEAR] = " & Me![COMTFY]

 

[sbaud2003]

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
    If Not (.BOF And .EOF) Then
        .MoveFirst
        .FindFirst "[PAYMENT_SL] = " & Str(Nz(Me![COMSL], 0)) & " And [FINYEAR] = " & Me![COMTFY]
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        End If
    End If
End With
Set rs = Nothing

Thnaks a lot sir.....
its perfectly working..
this forum is relay wonderful
I am learning alot.

 

[arnelgp]

ur welcome.