QueryDef problems in form

[hobbes]

I have a multiselect form that is attached to temp tables and queries. I copied the following code from another database I work with, but am unable to get it to work with the one I designed. I think there might be a problem with my Dim statements because when I comment them out, my form will open but it won't let me execute any selection commands (whose code I can post if I need to). The code below is for my Dim statements and Form_Open event (which is suppose to clear out the temp tables so that new reports can be pulled based on the criteria selected). Any help or thoughts would be greatly appeciated. Thanks!

CODE:

Option Compare Database
Option Explicit

Dim qdfCatExampleRemove As QueryDef
Dim qdfCatExampleAdd As QueryDef
Dim qdfCatExampleRemove2 As QueryDef
Dim qdfCatExampleAdd2 As QueryDef
Dim qdfCatExampleRemove3 As QueryDef
Dim qdfCatExampleAdd3 As QueryDef
Dim qdfCatExampleRemove4 As QueryDef
Dim qdfCatExampleAdd4 As QueryDef
Dim qdfCatExampleRemove5 As QueryDef
Dim qdfCatExampleAdd5 As QueryDef
Dim qdfCatExampleRemove6 As QueryDef
Dim qdfCatExampleAdd6 As QueryDef
Dim qdfCatExampleRemove7 As QueryDef
Dim qdfCatExampleAdd7 As QueryDef
Dim qdfCatExampleRemove8 As QueryDef
Dim qdfCatExampleAdd8 As QueryDef

Private Sub Form_Open(Cancel As Integer)

CurrentDb.Execute "Delete * from tblAccountTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd = CurrentDb.QueryDefs("qryCatAccountTempAdd")
Set qdfCatExampleRemove = CurrentDb.QueryDefs("qryCatAccountTempRemove")
CurrentDb.Execute "Delete * from tblAccountNameTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd2 = CurrentDb.QueryDefs("qryCatAccountNameTempAdd")
Set qdfCatExampleRemove2 = CurrentDb.QueryDefs("qryCatAccountNameTempRemove")
CurrentDb.Execute "Delete * from tblFeeTypeTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd3 = CurrentDb.QueryDefs("qryCatFeeTypeTempAdd")
Set qdfCatExampleRemove3 = CurrentDb.QueryDefs("qryCatFeeTypeTempRemove")
CurrentDb.Execute "Delete * from tblCostCenterTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd4 = CurrentDb.QueryDefs("qryCatCostCenterTempAdd")
Set qdfCatExampleRemove4 = CurrentDb.QueryDefs("qryCatCostCenterTempRemove")
CurrentDb.Execute "Delete * from tblCusipTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd5 = CurrentDb.QueryDefs("qryCatCusipTempAdd")
Set qdfCatExampleRemove5 = CurrentDb.QueryDefs("qryCatCusipTempRemove")
CurrentDb.Execute "Delete * from tblFundFamilyTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd6 = CurrentDb.QueryDefs("qryCatFundFamilyTempAdd")
Set qdfCatExampleRemove6 = CurrentDb.QueryDefs("qryCatFundFamilyTempRemove")
CurrentDb.Execute "Delete * from tblBusinessLineTemp"
'Set reference up for adding and removing categories to the temp table
Set qdfCatExampleAdd7 = CurrentDb.QueryDefs("qryBusinessLinesTempAdd")
Set qdfCatExampleRemove7 = CurrentDb.QueryDefs("qryBusinessLinesTempRemove")
CurrentDb.Execute "Delete * from tblRevenueSourceTemp"
'Set references up for adding and removing categories to the temp table
Set qdfCatExampleAdd8 = CurrentDb.QueryDefs("qryCatRevenueSourceTempAdd")
Set qdfCatExampleRemove8 = CurrentDb.QueryDefs("qryCatRevenueSourceTempRemove")

End Sub

 

[pbaldy]

The first thing I'd check is that you have a reference set to the DAO library.