Novice having problems executing a macro - Help

  • Thread starter Thread starter Kate
  • Start date Start date
K

Kate

Module 1 conatins 2 subs

Option Compare Database

Sub SingleAvailability()

End Sub

Sub CreateBooking()

End Sub

I then have a macro connected to a form:

Option Compare Database

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

DoCmd.OpenQuery "CreateBooking"

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click

End Sub

When I click the button I get the error message Microsoft
Access can't find the Object 'CreateBookin.'

What is likely to be the problem?
 
CreateBooking is a subroutine, not a query. OpenQuery is only used with
Queries.

Try replacing

DoCmd.OpenQuery "CreateBooking"

with

Call CreateBooking
 
you listed two public procedures, but your private sub says to open a
*query*. do you have a query named "CreateBooking" in the database? if yes,
is the spelling/spacing of the object name in the database window *exactly*
the same as the spelling/spacing you use in the VBA code?
 
Back
Top