Problem with search function

[sk88]

I have a problem with my database but I am not sure where I went wrong. Please see the attachment.

I have a search form which searches/works fine until when I want to click on to the record that I am looking for, it gives me an error and won't open the right record.



These codes were copied and paste from online examples,. I might have done wrong somewhere.

Hope someone will be able to help me.

Thank you .

[June7]

Have you run Debug>Compile?
Have you step debugged?

In my test the code errors in the SelectPatient function on the line:
qry.Parameters("lngStudyID") = lngStudyID

I modified the procedure to:

Private Function SelectPatient(ByVal lngStudyID As String)
    DoCmd.OpenForm "FrmAuditTool", , , "VisitID = " & Me.txtMetricsID
    DoCmd.Close acForm, "fdlgSearchPatient"
End Function

I also changed the RecordSource for FrmAuditTool to simply tblAudit. The qryFindMetricsID is not needed with these mods. If you want to leave this form open and repeat a search from fdlgSearchPatient, will need to expand the code to reset the form's filter criteria. That is what the original code is attempting to allow. I don't do this by altering query definition. I do this by setting the form's Filter and FilterOn properties. Otherwise, close the Audit form and start a new search.

[sk88]

Have you run Debug>Compile?
Have you step debugged?

In my test the code errors in the SelectPatient function on the line:
qry.Parameters("lngStudyID") = lngStudyID

I modified the procedure to:

Private Function SelectPatient(ByVal lngStudyID As String)
    DoCmd.OpenForm "FrmAuditTool", , , "VisitID = " & Me.txtMetricsID
    DoCmd.Close acForm, "fdlgSearchPatient"
End Function

I also changed the RecordSource for FrmAuditTool to simply tblAudit. The qryFindMetricsID is not needed with these mods. If you want to leave this form open and repeat a search from fdlgSearchPatient, will need to expand the code to reset the form's filter criteria. That is what the original code is attempting to allow. I don't do this by altering query definition. I do this by setting the form's Filter and FilterOn properties. Otherwise, close the Audit form and start a new search.

Thank you so much, June for all your help! You won't believe how happy I am right now!! Thanks!!