Run-Time Error '3061' 2

[robojeff]

I keep getting a Run-Time Error '3061' when I attempt to open a recordset with
the following code:

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb

strSQL = "SELECT M_tbl.ID, M_tbl.Asm, M_tbl.Desc FROM M_tbl WHERE M_tbl.ID =forms!MACaddr_frm!Device"

Set rst = dbs.OpenRecordset(strSQL)

But while my form is open, I can create the following query and it displays the data that I want:

SELECT M_tbl.ID, M_tbl.Asm, M_tbl.Desc, FROM M_tbl WHERE M_tbl.ID =forms!MACaddr_frm!Device;

Why is that and how do I fix this problem?

Thanks

 

[PHV]

strSQL = "SELECT ID,Asm,[Desc] FROM M_tbl WHERE ID=" & Forms!MACaddr_frm!Device

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[robojeff]

Thanks PHV-

That does work.. not sure why it works but it does...

 

[dhookom]

The recordset doesn't understand the parameter (reference to a control on a form). You can program around this by setting the recordset parameters but PH's solution is the best.

If you have questions about this, search the web on 'Access recordset parameters'.

Duane
Hook'D on Access
MS Access MVP