eshurak
asked on
open query in a recordset
Hello,
I'm trying to open a query in a recordset and I'm getting a 3061 error. I've tried to do this in several ways and I've had no luck. I'm using Access 2010 with SQL Server 2005.
Any idea would be great. Thanks!
I'm trying to open a query in a recordset and I'm getting a 3061 error. I've tried to do this in several ways and I've had no luck. I'm using Access 2010 with SQL Server 2005.
Any idea would be great. Thanks!
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
strSQL = "Select NHID From qryFaxReminder"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
ASKER
PARAMETERS [Forms]![frmFaxReminder]![WeekFromNow] DateTime;
SELECT tblFacilityInfo.nhid, tblAdministrator.Administrator, tblContacts.ContactName, tblFacilityInfo.Fax, tblFacilityInfo.Phone, tblFacilities.FNAME, tblFacilityInfo.DateSched1, tblFacilityInfo.DateSched2, tblFacilityInfo.DateSched3, tblAdministrator.ContactNotAdmin
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSched1)=[Forms]![frmFaxReminder]![WeekFromNow]));
Try this ... using Eval()
PARAMETERS [Forms]![frmFaxReminder]![ WeekFromNo w] DateTime;
SELECT tblFacilityInfo.nhid, tblAdministrator.Administr ator, tblContacts.ContactName, tblFacilityInfo.Fax, tblFacilityInfo.Phone, tblFacilities.FNAME, tblFacilityInfo.DateSched1 , tblFacilityInfo.DateSched2 , tblFacilityInfo.DateSched3 , tblAdministrator.ContactNo tAdmin
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSch ed1)=EVAL("[Forms]![frmFaxRemin der]![Week FromNow]") ));
PARAMETERS [Forms]![frmFaxReminder]![
SELECT tblFacilityInfo.nhid, tblAdministrator.Administr
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSch
ASKER
I'm getting the same results using EVAL.
ASKER
The code stops at "Set rs = CurrentDb.OpenRecordset(st rSQL, dbOpenSnapshot)"
Really ... ok ...
1) Is that Form open when you run the code?
2) Are there *any* misspelled objects (typos) in [frmFaxReminder]![WeekFrom Now] or the query name itself.
Actually ... may need EVAL in the PARAMETERS part also:
PARAMETERS EVAL("[Forms]![frmFaxRemin der]![Week FromNow]") DateTime;
SELECT tblFacilityInfo.nhid, tblAdministrator.Administr ator, tblContacts.ContactName, tblFacilityInfo.Fax, tblFacilityInfo.Phone, tblFacilities.FNAME, tblFacilityInfo.DateSched1 , tblFacilityInfo.DateSched2 , tblFacilityInfo.DateSched3 , tblAdministrator.ContactNo tAdmin
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSch ed1)=EVAL( "[Forms]![ frmFaxRemi nder]![Wee kFromNow]" ) ));
mx
1) Is that Form open when you run the code?
2) Are there *any* misspelled objects (typos) in [frmFaxReminder]![WeekFrom
Actually ... may need EVAL in the PARAMETERS part also:
PARAMETERS EVAL("[Forms]![frmFaxRemin
SELECT tblFacilityInfo.nhid, tblAdministrator.Administr
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSch
mx
ASKER
1. Yes form is open.
2. No.
3. EVAL in PARAMETERS does not work.
2. No.
3. EVAL in PARAMETERS does not work.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks for your help.
Well, that's what Eval() in the SQL gets around ... doing the qry.Parameters in code.
Does that work ?
mx
Does that work ?
mx
ASKER
No, the EVAL did not work.
PARAMETERS [Forms]![frmFaxReminder]![WeekFromNow] DateTime;
SELECT tblFacilityInfo.nhid, tblAdministrator.Administrator, tblContacts.ContactName, tblFacilityInfo.Fax, tblFacilityInfo.Phone, tblFacilities.FNAME, tblFacilityInfo.DateSched1, tblFacilityInfo.DateSched2, tblFacilityInfo.DateSched3, tblAdministrator.ContactNotAdmin
FROM ((tblFacilityInfo LEFT JOIN tblContacts ON tblFacilityInfo.nhid = tblContacts.nhid) INNER JOIN tblFacilities ON tblFacilityInfo.nhid = tblFacilities.nhid) LEFT JOIN tblAdministrator ON tblFacilityInfo.nhid = tblAdministrator.nhid
WHERE (((tblFacilityInfo.DateSched1)=Eval("[Forms]![frmFaxReminder]![WeekFromNow]")));
No, I meant what you posted ... re "I'm going this route."
?
?
ASKER
Oh, yes. The qry.Parameters works.
Very strange ... sorry
ASKER
I found this solution without expert assistance.
mx