CreateQueryDef Problems

[Gary_Mc_Mahon]

Hi, Can someone please help me, this is driving me mad. I keep getting run time error with an invalid arguement around the line "set qdf......"

I have the Microsoft DAO 3.6 Object Library selected.

Private Sub Command1_Click()

Dim qdf As DAO.QueryDef
Dim db As DAO.Database
Dim strSQL As String

Set db = CurrentDb

strSQL = "SELECT tbl_RR19_Charge_Bucket_200212.* " & _
"FROM tbl_RR19_Charge_Bucket_200212;"

Set qdf = db.CreateQueryDef("qry_ZZTESTSQL1", strSQL)

DoCmd.OpenQuery "qry_ZZTESTSQL1"


db.QueryDefs.Delete ("qry_ZZTESTSQL1")

Set qdf = Nothing
Set db = Nothing



End Sub

Cheers,
Gary

 

[mdmilner]

I realize this may have been already handled, possibly with your other thread albeit with a different type of question here:
http://www.mrexcel.com/board2/viewtopic.php?t=85962

Your function looks good to me.

If you're still have a problem - what's everything on your references list?
Could there by a fieldname problem/bad SQL?

For some reason, my personal code samples/ones I did years ago with this method, are in the format of:

'DoCmd.OpenQuery "UpdateEquip", , acEdit

It is an update query. Not sure why I kept acEdit.

Mike