[AccessD] Help with syntax please....OpenRecordset

Hi Kath,

You need to add your query parameters to the parameters collection.  I am away from my references now so can't give a good example, but look in the Developers Handbook under recordsets based on queries.  They give the code for doing this.  It is DAO.

Doug
> 
> From: "ACTEBS" <actebs at actebs.com.au>
> Date: 2004/10/12 Tue PM 10:50:28 EDT
> To: "Access Developers discussion and problem solving"
> 	<accessd at databaseadvisors.com>
> Subject: RE: [AccessD] Help with syntax please....OpenRecordset
> 
> Kath,
> 
> Maybe like this:
> 
> Dim strerrormsg, strsql, StrQueryName As String
> Dim VarEmailto As Variant
> Dim intrecno, IntWebLetterID As Integer
> Dim db As DAO.Database '>>>>>>>>>I changed this
> Dim rs As DAO.Recordset
> 
> Set db = CurrentDb
> 
> 
> StrQueryName = "QryWebLetter_ReadRecipientsEmail"
>   
> Set rs = db.OpenRecordset(StrQueryName, dbOpenDynaset)     ' Open
> recordset on saved query        ERROR HERE
> 
> '>>>>>>>>>>>>>>Made a few changes here
> If rs.recordcount > 0 then
> Rs.movefirst
> 	Do Until rs.EOF
> 		With rs
> 		    .Edit
>      			VarEmailto = .Fields("LoginEmail")
>     		    .Update	
> 		End With
> 	rs.movenext
> 	loop
> End if
> 
> 'MsgBox ("Going to " & VarEmailto)
> 
> 'Call Send_Email(VarEmailto, StrNamePDFFile)
> 
> Rs.close
> Set rs = nothing
> Db.close
> Set db = nothing
> 
> HTH. You will need to check over it as I did it off the top of my head,
> but you'll get the idea anyway...
> 
> Vlad
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti
> Sent: Wednesday, 13 October 2004 11:46 AM
> To: AccessD at databaseadvisors.com
> Subject: [AccessD] Help with syntax please....OpenRecordset
> 
> 
> I am trying to use a saved query for my recordset source....but keep
> getting an error 'Too few parameters - expected 1' on the line 'Set rs =
> ' After many hours, I can't fix it so would appreciate the help.....
> 
> 
> Code:
> 
> ------------------------------------------------------------------------
> --------
> 
> Public Function EmailWebLetterRecipients()
> Dim strerrormsg, strsql, StrQueryName As String
> Dim VarEmailto As Variant
> Dim intrecno, IntWebLetterID As Integer
> Dim db As Database
> Dim rs As DAO.Recordset
> Set db = CurrentDb
> 
> 
> StrQueryName = "QryWebLetter_ReadRecipientsEmail"
>   
> Set rs = db.OpenRecordset(StrQueryName, dbOpenDynaset)     ' Open
> recordset on saved query        ERROR HERE
> 
> With rs
>     .MoveFirst
>     .Edit
> 
>      VarEmailto = .Fields("LoginEmail")
>     .Update
>     .close
> End With
> 'MsgBox ("Going to " & VarEmailto)
> 
> 'Call Send_Email(VarEmailto, StrNamePDFFile)
> 
> Normal_exit:
>     DoCmd.SetWarnings True
>     Exit Function
> 
> Err_Handler:
>     MsgBox "Error: [" & Err.Number & "]  " & IIf(Len(strerrormsg) > 0,
> strerrormsg, Err.Description), vbCritical, "Error Message"
>     Resume Normal_exit
> End Function
> 
> 
> ------------------------------------------------------------------------
> --------
> 
> Kath Pelletti
> Software Design & Solutions Pty Ltd.
> Ph: 9505-6714
> Fax: 9505-6430
> KP at SDSOnline.net
> -- 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>