Code: Select all
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo cmdhistory_Click_Error
stDocName = "frmPatientHistory"
stLinkCriteria = "[Patient]=" & "'" & Me![cbosearch] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria