OpenQueryDef Problem

[liltechy]

I recently upgraded from Access97 to Access2000 and an existing module would not compile. Access2000 does not recognize "openquerydef" in my vba code. How do I fix the module? Below is the part of the code that would not compile.


Dim db As Database
Dim query1 As QueryDef
Dim query2 As QueryDef
Dim query3 As QueryDef
Dim query4 As QueryDef
Dim query5 As QueryDef
Dim query6 As QueryDef
Dim query7 As QueryDef
Dim query8 As QueryDef
Dim query9 As QueryDef
Dim query10 As QueryDef
Dim query11 As QueryDef
Dim query12 As QueryDef
Dim query13 As QueryDef
Dim query14 As QueryDef
Dim query15 As QueryDef
Dim query16 As QueryDef
Dim Rset1 As Recordset
Dim Rset2 As Recordset
Dim Rset3 As Recordset
Dim Rset4 As Recordset
Dim Rset5 As Recordset
Dim Emisunit As String
Dim group As String
Dim Produnit As String
Dim prodarea As String
Dim sitearea As String

DoCmd.SetWarnings False
DoCmd.OpenQuery ("Delete LT SPEC EMIS1&quot
If vreport = "Speciated Emissions Report" Then
DoCmd.OpenQuery ("Append to LT SPEC EMIS1&quot
Else
DoCmd.OpenQuery ("Append to LT SPEC EMIS1 Max PTE&quot
End If

Set db = CurrentDb()
Set query1 = db.OpenQueryDef("LQ PWSYS_VLD_EMIS&quot
Set query2 = db.OpenQueryDef("Update Emis Unit Include&quot
Set query3 = db.OpenQueryDef("Update Chem Group Include&quot
Set query4 = db.OpenQueryDef("LQ PWSYS_VLD_REG&quot
Set query5 = db.OpenQueryDef("LQ PWSYS_VLD_PROD&quot
Set query6 = db.OpenQueryDef("Update Prod Unit Include&quot
Set query7 = db.OpenQueryDef("Update Prod Area Include&quot
Set query9 = db.OpenQueryDef("LQ PWSYS_VLD_SITE_AREA&quot
Set query10 = db.OpenQueryDef("Update Site Area Include&quot
Set query11 = db.OpenQueryDef("LQ PWSYS_VLD_PROD_AREA&quot
Set query12 = db.OpenQueryDef("Filter Emission Units&quot
Set query13 = db.OpenQueryDef("Filter Production Units&quot
Set query14 = db.OpenQueryDef("Filter Chem Groups&quot
Set query15 = db.OpenQueryDef("Filter Production Areas&quot
Set query16 = db.OpenQueryDef("Filter Site Areas&quot


liltechy

 

[jrbarnett]

Hi,


Go into the VBA code editor of any module
Go to Tools menu and choose references
Check to make sure that the DAO object library is ticked. Tick it if not.

This should fix it. It is basically because MS want everybody to use ADO rather than DAO code.

John