[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)