<html><div style='background-color:'><DIV>
<P>I don't know if you solved this already, but I would do a debug.print to see the SQL thats getting created before it executes -then it will jump out at you.<BR>_d<BR></P></DIV><BR><BR><BR>
<DIV></DIV>
<DIV><FONT face="Geneva, Arial, Sans-serif" color=#6666ff size=2><EM>"Things are only free to the extent that you don't pay for them." </EM></FONT></DIV>
<DIV><FONT color=#33cc66></FONT></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>>From: "Nancy Lytle" <NANCY.LYTLE@AUATAC.COM>
<DIV></DIV>>Reply-To: accessd@databaseadvisors.com
<DIV></DIV>>To: "Accessd" <ACCESSD@DATABASEADVISORS.COM>
<DIV></DIV>>Subject: [AccessD] Opening Recordset Error
<DIV></DIV>>Date: Mon, 2 Jun 2003 09:56:48 -0400
<DIV></DIV>>
<DIV></DIV>>Can someone see what I am missing here? I keep getting the error: "Too few
<DIV></DIV>>Parameters: Expected 1"
<DIV></DIV>>
<DIV></DIV>>Dim intCounter As Integer
<DIV></DIV>>Dim rstFunded As DAO.Recordset
<DIV></DIV>>Dim dbFunded As DAO.Database
<DIV></DIV>>Dim strFunded As String
<DIV></DIV>>strFunded = "SELECT Sum([tblInvoiceFunding.FundsFromCode]) AS Funded"
<DIV></DIV>>strFunded = strFunded & " , tblInvoiceFunding.InvoiceID FROM
<DIV></DIV>>tblInvoiceFunding GROUP BY tblInvoiceFunding.InvoiceID"
<DIV></DIV>>strFunded = strFunded & " HAVING
<DIV></DIV>>(((tblInvoiceFunding.InvoiceID)=[Forms]![frmInvoiceDataEntry]![txtINVOICE_ID
<DIV></DIV>>]))"
<DIV></DIV>>Set dbFunded = CurrentDb()
<DIV></DIV>>Set rstFunded = dbFunded.OpenRecordset(strFunded, dbOpenDynaset, dbReadOnly)
<DIV></DIV>>
<DIV></DIV>>TIA,
<DIV></DIV>>Nancy L
<DIV></DIV>>
<DIV></DIV>>_______________________________________________
<DIV></DIV>>AccessD mailing list
<DIV></DIV>>AccessD@databaseadvisors.com
<DIV></DIV>>http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>>Website: http://www.databaseadvisors.com
<DIV></DIV></div><br clear=all><hr>Protect your PC - <a href="http://g.msn.com/8HMKENUS/2755??PS=">Click here</a> for McAfee.com VirusScan Online </html>