When I run this, I get
An expression you entered is the wrong data type for one of the arguments.
Private Sub Select_Exhibitor_DblClick(Cancel As Integer)
On Error GoTo Select_Exhibitor_DblClick_Err
DoCmd.SelectObject acForm, "Exhibitors"
DoCmd.GoToControl "LastName"
DoCmd.FindRecord Forms![Exhibitor Search]![Select Exhibitor], acEntire, False, acDown, False, acCurrent
DoCmd.Close acForm, "Exhibitor Search"
Select_Exhibitor_DblClick_Exit:
Exit Sub
Select_Exhibitor_DblClick_Err:
MsgBox Err.Description
Resume Select_Exhibitor_DblClick_Exit
End Sub
An expression you entered is the wrong data type for one of the arguments.
Private Sub Select_Exhibitor_DblClick(Cancel As Integer)
On Error GoTo Select_Exhibitor_DblClick_Err
DoCmd.SelectObject acForm, "Exhibitors"
DoCmd.GoToControl "LastName"
DoCmd.FindRecord Forms![Exhibitor Search]![Select Exhibitor], acEntire, False, acDown, False, acCurrent
DoCmd.Close acForm, "Exhibitor Search"
Select_Exhibitor_DblClick_Exit:
Exit Sub
Select_Exhibitor_DblClick_Err:
MsgBox Err.Description
Resume Select_Exhibitor_DblClick_Exit
End Sub