passing criteria from code

[Mike Kruger]

Hello all,

I'm trying to pass data from a control (subform) into a query. When I
run this get a 'Compile error: User defined type not defined' error on
the 'Dim db As Database' line. I'm using 2003. I know I've used
this code before (A97), but now it's not working. Has something
change or do I need to configure something?

I've removed the subform control from this, just to get it working
first.

Dim db As Database
Dim rs As Recordset
Dim qdfParmQry As QueryDef
Set db = CurrentDb()
Set qdfParmQry = db.QueryDefs("Kits_PB")
qdfParmQry![Kit Name:] = "NikeSmoke"
Set rs = qdfParmQry.OpenRecordset()

thanks for the help.

mike

[ManningFan]

On Apr 29, 4:29 pm, Mike Kruger <[e-mail]:

Hello all,

I'm trying to pass data from a control (subform) into a query. When I
run this get a 'Compile error: User defined type not defined' error on
the 'Dim db As Database' line. I'm using 2003. I know I've used
this code before (A97), but now it's not working. Has something
change or do I need to configure something?

I've removed the subform control from this, just to get it working
first.

Dim db As Database
Dim rs As Recordset
Dim qdfParmQry As QueryDef
Set db = CurrentDb()
Set qdfParmQry = db.QueryDefs("Kits_PB")
qdfParmQry![Kit Name:] = "NikeSmoke"
Set rs = qdfParmQry.OpenRecordset()

thanks for the help.

mike

Mike -
This is an issue with having the correct references. If you go into
a code window, click on the Tools menu and then References. Make sure
you have all the same references you had in the A97 DB checked off in
your new one.

[Mike Kruger]

Thanks, that did it, I thought that it might be a difference between
A97 and A03.

thanks again,
mike
On 29 Apr 2007 14:00:08 -0700, ManningFan <ma********@gmail.com>
wrote:

>On Apr 29, 4:29 pm, Mike Kruger <[e-mail]:

>Hello all,

I'm trying to pass data from a control (subform) into a query. When I
run this get a 'Compile error: User defined type not defined' error on
the 'Dim db As Database' line. I'm using 2003. I know I've used
this code before (A97), but now it's not working. Has something
change or do I need to configure something?

I've removed the subform control from this, just to get it working
first.

Dim db As Database
Dim rs As Recordset
Dim qdfParmQry As QueryDef
Set db = CurrentDb()
Set qdfParmQry = db.QueryDefs("Kits_PB")
qdfParmQry![Kit Name:] = "NikeSmoke"
Set rs = qdfParmQry.OpenRecordset()

thanks for the help.

mike

Mike -
This is an issue with having the correct references. If you go into
a code window, click on the Tools menu and then References. Make sure
you have all the same references you had in the A97 DB checked off in
your new one.

[Don Leverton]

I'm *pretty sure* that you will need to implicitly qualify those objects
(especially the recordset) as DAO objects.
Dim db As DAO.Database
Dim rs As DAO.Recordset

Here is a "fairly typical" past discussion that may help to clarify:
http://groups.google.ca/group/comp.d...780edf8b532824

Don
"Mike Kruger" <j9*******@earthlink.netwrote in message
news:19********************************@4ax.com...

Hello all,

I'm trying to pass data from a control (subform) into a query. When I
run this get a 'Compile error: User defined type not defined' error on
the 'Dim db As Database' line. I'm using 2003. I know I've used
this code before (A97), but now it's not working. Has something
change or do I need to configure something?

I've removed the subform control from this, just to get it working
first.

Dim db As Database
Dim rs As Recordset
Dim qdfParmQry As QueryDef
Set db = CurrentDb()
Set qdfParmQry = db.QueryDefs("Kits_PB")
qdfParmQry![Kit Name:] = "NikeSmoke"
Set rs = qdfParmQry.OpenRecordset()

thanks for the help.

mike