I am on code want to display records on the form by order_number, but i am unable to do it.
Please help me if i am going wrong anywhere:
Private Sub Combo63_AfterUpdate()
Dim rs As DAO.Recordset
Dim intcount As Integer
On Error GoTo ErrorHandler
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Master_Log WHERE Order_number = " & Combo63.Value & "", dbOpenSnapshot)
intcount = CurrentDb.Recordsets.Count
Debug.Print intcount
For Each rs In CurrentDb.Recordsets
Debug.Print "Open recordset: " & rs.NextRecordset
Next rs
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Exit Sub
End Sub