Soooooo, now it is time for troubleshooting..........
I don't (and never have) used split forms, so I'll be asking questions. (I would use a standard form and put the unbound controls in the form header or footer.)
What is the SQL of the form "RingSearchResult"?
Have to ask since I don't have your dB.... You're sure there are fields named "Order_Num" and "Ring_ID_No" in the record source?
If you comment out the Filter and Order lines, what happens? Does the form open? Error messages?
Code:
Private Sub Form_Load()
On Error GoTo TestSearch_Err
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
' gstrOrderSearch and gstrRingSearch are globally defined
' Me.Filter = "(Order_Num = '" & gstrOrderSearch & "') AND (Ring_ID_No = '" & gstrRingSearch & "')" '<<-- changed the double quotes to single quotes
' Me.FilterOn = True
' Me.OrderBy = "Scan_Time_Stamp" ' Scan_Time_Stamp in in the form's recordset
' Me.OrderByOn = True
Set db = CurrentDb
<snip>
What happens (errors, messages) if you change the Me.Filter line to
Code:
Private Sub Form_Load()
On Error GoTo TestSearch_Err
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
' gstrOrderSearch and gstrRingSearch are globally defined
Me.Filter = "(Order_Num = '" & gstrOrderSearch & "')"
' Me.Filter = "(Order_Num = '" & gstrOrderSearch & "') AND (Ring_ID_No = '" & gstrRingSearch & "')" '<<-- changed the double quotes to single quotes
' Me.FilterOn = True
' Me.OrderBy = "Scan_Time_Stamp" ' Scan_Time_Stamp in in the form's recordset
' Me.OrderByOn = True
Set db = CurrentDb
<snip>
Next change: what happens (errors, messages) if you change the Me.Filter line to
Code:
Private Sub Form_Load()
On Error GoTo TestSearch_Err
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
' gstrOrderSearch and gstrRingSearch are globally defined
Me.Filter = "(Ring_ID_No = '" & gstrRingSearch & "')"
' Me.Filter = "(Order_Num = '" & gstrOrderSearch & "') AND (Ring_ID_No = '" & gstrRingSearch & "')" '<<-- changed the double quotes to single quotes
' Me.FilterOn = True
' Me.OrderBy = "Scan_Time_Stamp" ' Scan_Time_Stamp in in the form's recordset
' Me.OrderByOn = True
Set db = CurrentDb
<snip>
Now try:
Code:
Private Sub Form_Load()
On Error GoTo TestSearch_Err
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
' gstrOrderSearch and gstrRingSearch are globally defined
' Me.Filter = "(Order_Num = '" & gstrOrderSearch & "') AND (Ring_ID_No = '" & gstrRingSearch & "')" '<<-- changed the double quotes to single quotes
' Me.FilterOn = True
Me.OrderBy = "Scan_Time_Stamp" ' Scan_Time_Stamp in in the form's recordset
Me.OrderByOn = True
Set db = CurrentDb
<snip>
Then change the code
Code:
Public Function SearchFunc()
On Error GoTo TestSearch_Err
' hard coded only for testing
gstrOrderSearch = "251822"
gstrRingSearch = "1"
' DoCmd.OpenForm "RingSearchResult", acNormal, "", "", , acNormal
DoCmd.OpenForm "RingSearchResult", , , "(Order_Num = '" & gstrOrderSearch & "')"
TestSearch_Exit:
Exit Function
TestSearch_Err:
MsgBox Error$
Resume TestSearch_Exit
End Function
Change the "Openform" line to
Code:
DoCmd.OpenForm "RingSearchResult", , , "(Ring_ID_No = '" & gstrRingSearch & "')"
If no errors, then then try both where clauses:
Code:
DoCmd.OpenForm "RingSearchResult", , , "(Order_Num = '" & gstrOrderSearch & "') AND (Ring_ID_No = '" & gstrRingSearch & "')"