Run Time Error 3061 - Xtreme Visual Basic Talk

09-27-2005, 04:54 AM

achowe

Regular

Join Date: Nov 2003

Posts: 50

Run Time Error 3061

Can anyone help with this? When I run the following code I get an error on the last line....

Code:

sqltxt = "someQuery"
    
    db.CreateQueryDef "qry_" & currstruc, sqltxt
            
    Set rst = db.OpenRecordset("qry_" & currstruc)

Thanks guys!

09-27-2005, 04:56 AM

achowe

Regular

Join Date: Nov 2003

Posts: 50

sorry..error is RunTIme error 3061

Too few parameters, expected 1

Cheers!

09-28-2005, 02:34 AM

Qwanta

Centurion

Join Date: Dec 2003

Location: The Netherlands

Posts: 164

I'm not sure what you mean, but maybe this is a solution

Code:

Dim strText as string
Dim db as Database
Dim rst as Recordset


strText = "Select * from tbl_*"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strText)

__________________
//Qwanta
Electricity is really just organized lightning.

Posting Rules

You may not post new threads

You may not post replies

You may not post attachments

You may not edit your posts

BB code is On

Smilies are On

[IMG] code is Off

HTML code is Off

Forum Rules