Eror 3065, "cannot execute a select query"

[sisieko]

I am attaching this code to the onload event of a form bound to a table.
And i want it to check a chkbox on this form if some data on this form (Text18, txtResource) exits in "another" tiny table ([Weekending], [sID]).

Here is what i have at the onload event:

On Error GoTo Err_ChkBox_Click
Dim db As DAO.Database
Set db = CurrentDb()
Dim MySQL As String, DQ As String
DQ = """"

    MySQL = "SELECT [WeekEnding] from tblNoSupportHrs WHERE [sID] = " & DQ & Me.txtResource & DQ & _
        " And [WeekEnding] = " & DQ & Me.Text18 & DQ & ";"

        If Me.Text18 = MySQL Then
            Me.chkNoSupportHrs = True
        Else
        End If
db.Execute MySQL, dbFailOnError

Exit_ChkBox_Click:
    Set rs = Nothing
    Set db = Nothing
    Exit Sub

Err_ChkBox_Click:
   MsgBox "Error No:    " & Err.Number & vbCr & _
   "Description: " & Err.Description
   Resume Exit_ChkBox_Click

End Sub

However, i get this error: When i load my form.
Any thoughts or suggestions? What am i doing wrong?

 

[PHV]

The Execute method of the Database object should be used for action queries only (UPDATE, INSERT, DELETE, ALTER, ...)
Either play with a Recordset or the DLookUp function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[sisieko]

Hi PHV,

I have also tried the Dlookup you gave me. It does do anything. I still have it commented in my code. That's why i thot i try select again.

        If DLookup("WeekEnding", "tblNoSupportHrs", "sID=" & DQ & Me.txtResource & DQ & " AND WeekEnding=" & DQ & Me.Text18 & DQ) = Me.Text18 Then
            Me.chkNoSupportHrs = True
        Else
        End If

 

[PHV]

What happens if you move the DLookUp code from the Load to the Current event procedure ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[sisieko]

I have just done that. Still nothing
*wipes tear

 

[sisieko]

*bump

Please heeeeeeelpppppp