[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)
>> 
>> TIA,
>> Nancy L