CMD buuton to run selected query

[Dgavilanes]

CMD button to run selected query

Hi All,

When I use the following code in the cmd button I get a compile error

Sub Or Function not defined

Private Sub cmbQueries_Click()

Dim stDocName As String

If IsNull(Me!cmbQueries) Then
Call Message("Please select a query to edit.")
Else
stDocName = Me!cmbQueries
DoCmd.OpenQuery stDocName, AcFormView.acDesign, AcOpenDataMode.acEdit

End If

End Sub

Any assistance would be greatly appreciated

Dennis

 

[SOS]

This is incorrect:

AcFormView.acDesign, AcOpenDataMode.acEdit

 

[SOS]

It would be:

DoCmd.OpenQuery stDocName, acViewNormal, acEdit

But why open queries? I don't let users open queries or tables directly. I use a FORM for viewing queries or table information. You have more control over what they can do that way.

 

[Dgavilanes]

Thanks fo the quick reply, I replaced the code as suggested by the error message stil the same

Regards, Dennis

 

[SOS]

So, what does the code look like that you currently have (now with the changes) and which line does it highlight?

 

[Dgavilanes]

The call Message is highlighted

Private Sub cmbQueries_Click()
Dim stDocName As String

If IsNull(Me!cmbQueries) Then
Call Message("Please select a query to edit.")
Else
stDocName = Me!cmbQueries
DoCmd.OpenQuery stDocName, acViewNormal, acEdit

End If
End Sub

 

[SOS]

Ah, yes I should have spotted it sooner.

Call MsgBox("Please select a query to edit.")

or just use

MsgBox "Please select a query to edit."

 

[SOS]

Oh, and why are they opening a query to change the DESIGN of it?

 

[Dgavilanes]

You got it!!!

You are a genius

Thanks a bunch

Dennis