I have a lookup db where I'm importing information that is transmitted on a monthly basis. The users of the db will check to see if an individual or group was included on the last transmission. The forms (and there are many) are based on parameter queries. In this example, I have a form/subform to show the transmittals by group number. Currently, if the group number is not a match, then they get a blank page. Our users are not computer-savvy, and I want to have a button or action to take them back to the lookup main menu to select another kind of lookup.
Here is the code I wrote, based on the Topic "No Data on a form based on a query" from 12/23:
Dim strMsg As String, strTitle As String
strMsg = "There were no records returned for criteria given."
strTitle = "No Matching Records"
If DCount("*", "DeltaCO- Group Qry") ,=0 Then
MsgBox strMsg, vbExclamation + vbOKOnly, strTitle
DoCmd.Close acForm, "DeltaCO - Group Frm", acSaveNo
DoCmd.OpenForm "DeltaCO Lookups Frm"
End if
End Sub
The error message I am getting is:
Run-time error '64479':
The expression you entered as a query parameter produced this error: 'The object doesn't contain the Automation object 'Enter Group Number:."
HELP!!
(and thank you)
Here is the code I wrote, based on the Topic "No Data on a form based on a query" from 12/23:
Dim strMsg As String, strTitle As String
strMsg = "There were no records returned for criteria given."
strTitle = "No Matching Records"
If DCount("*", "DeltaCO- Group Qry") ,=0 Then
MsgBox strMsg, vbExclamation + vbOKOnly, strTitle
DoCmd.Close acForm, "DeltaCO - Group Frm", acSaveNo
DoCmd.OpenForm "DeltaCO Lookups Frm"
End if
End Sub
The error message I am getting is:
Run-time error '64479':
The expression you entered as a query parameter produced this error: 'The object doesn't contain the Automation object 'Enter Group Number:."
HELP!!
(and thank you)
