[AccessD] Opening Recordset Error

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
> 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>