[AccessD] Opening Recordset Error

BINGO! that got me on the right track, I had to add single quotes on either
side of your string because the "ID" field is really a text not number
field.
Thanks everybody!  I don't know why I was having such a hard time of it
today.
Nancy

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: Monday, June 02, 2003 11:25 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Opening Recordset Error


Hi Nancy

When run from code the SQL doesn't know about forms.
Try this:

(tblInvoiceFunding.InvoiceID = " &
[Forms]![frmInvoiceDataEntry]![txtINVOICE_ID] & ")"

/gustav


> Nope, that's not working either, same error message, and the recordset is
> listed as "Expression not defined in context" or as "Out of Context".

> Nancy L

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Monday, June 02, 2003 10:22 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Opening Recordset Error


> No Lembit and Nancy, it's the brackets:

>>> strFunded = "SELECT Sum(tblInvoiceFunding.FundsFromCode) AS Funded"

> /gustav


>> semicolon at the end?

>> Lembit Soobik

>> ----- Original Message -----
>> From: "Nancy Lytle" <nancy.lytle at auatac.com>
>> To: "Accessd" <accessd at databaseadvisors.com>
>> Sent: Monday, June 02, 2003 3:56 PM
>> Subject: [AccessD] Opening Recordset Error


>>> Can someone see what I am missing here?  I keep getting the error: "Too
> few
>>> Parameters: Expected 1"
>>>
>>> Dim intCounter As Integer
>>> Dim rstFunded As DAO.Recordset
>>> Dim dbFunded As DAO.Database
>>> Dim strFunded As String
>>> strFunded = "SELECT Sum([tblInvoiceFunding.FundsFromCode]) AS Funded"
>>> strFunded = strFunded & " , tblInvoiceFunding.InvoiceID FROM
>>> tblInvoiceFunding GROUP BY tblInvoiceFunding.InvoiceID"
>>> strFunded = strFunded & " HAVING
>>>
>
(((tblInvoiceFunding.InvoiceID)=[Forms]![frmInvoiceDataEntry]![txtINVOICE_ID
>>> ]))"
>>> Set dbFunded = CurrentDb()
>>> Set rstFunded = dbFunded.OpenRecordset(strFunded, dbOpenDynaset,
> dbReadOnly)

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com