Runtime Error 3061. Too few parameters, expected 2

[Gina Maylone]

Hello all,



I have a form (EmailEmployees) that I use to send an email to employees with their upcoming work schedule. It works fine until I add date criteria to the underlying query (using the Form fields "From" and "To") That's when I get the runtime error, too few parameters. If I enter the criteria directly into the underlying query it also works fine. I am stumped! I've been reading threads, double checked my spelling and what not. Any insight will be greatly appreciated!

Private Sub cmdemail_Click()
 Dim Db As DAO.Database
  Dim qDef As DAO.QueryDef
  Dim rsEmail As DAO.Recordset
  
  Dim strEmail As String
  Dim strSubject As String
  Dim strContactName As String
  
  Set Db = CurrentDb
  Set qDef = Db.QueryDefs("EmployeeEmailQuery")
  
  Set rsEmail = qDef.OpenRecordset
  
  Do While Not rsEmail.EOF
    strEmail = rsEmail.Fields("emailaddress").Value

   ' 'strContactName = rsEmail.Fields("LastName").Value

    DoCmd.SendObject acSendReport, "schedule", formatpdf, strEmail, , ("" & Me!Subject), ("" & Me!Greeting), ("" & Me!Message)
     
       ' False
      
    rsEmail.MoveNext

  Loop
   
  Set rsEmail = Nothing
  Set qDef = Nothing
  Set Db = Nothing
   
  MsgBox "Emails have been sent"

End Sub

[RuralGuy]

How about showing us the SQL for the underlying query where you are trying to limit the dates?

[orange]

3061 often identifies a spelling mistake --double check you variable and parameter names

[NTC]

does your query result have no records? or perhaps is resulting in records that have nulls in critical fields? ... I believe that is your issue.

[Dal Jeanis]

Generally, that kind of message happens when you either have a syntax error, or when you have a parameter that is NULL.

Per these pages:
http://msdn.microsoft.com/en-us/libr.../ff197046.aspx
http://www.fmsinc.com/MicrosoftAcces...endObject.html
This is the format:

DoCmd.SendObject ObjectType, ObjectName, OutputFormat, To, Cc, Bcc, Subject, MessageText, EditMessage, TemplateFile

So it looks like you may have a missing comma for the BCC parameter:

 DoCmd.SendObject acSendReport, "schedule", formatpdf, strEmail, , , ("" & Me!Subject), ("" & Me!Greeting), ("" & Me!Message)

Also, in this case, I'm not sure what effect the parenthesis around your Subject, Greeting and Message parameters would cause.

Try these two and see if one of them works:

DoCmd.SendObject acSendReport, "schedule", formatpdf, strEmail, , , "" & Me!Subject, "" & Me!Greeting, "" & Me!Message

DoCmd.SendObject acSendReport, "schedule", formatpdf, strEmail, , , """" & Me!Subject & """", """" & Me!Greeting & """", """" & Me!Message  & """"

[Gina Maylone]

How about showing us the SQL for the underlying query where you are trying to limit the dates?

SELECT MoversScheduleQuery.EmailAddress, MoversScheduleQuery.FullName, MoversScheduleQuery.[Move Date]
FROM MoversScheduleQuery
WHERE (((MoversScheduleQuery.[Move Date]) Between [Forms]![EmailEmployees]![from] And [Forms]![EmailEmployees]![to]));

Thank you.

[RuralGuy]

Nothing jumps out at me other than [TO] and [FROM] are reserved words: http://www.allenbrowne.com/AppIssueBadWord.html which can confuse Access on occasion. I also tend to use the dot "." rather than the bang "!".
[Forms].[EmailEmployees].[from] And [Forms].[EmailEmployees].[to]

[Gina Maylone]

Thank you all for your responses. I tried the various suggestions - have no null fields - and yet still get the Too Few Parameters expected 2 error.

It errors at this line: Set rsEmail = qDef.OpenRecordset

[orange]

Suggest you post a copy of your database(remove anything private/confidential first). Then zip it.

[Gina Maylone]

Sorry - it won't let me save it backwards - too many functions etc.

[Gina Maylone]

CleanMatts.zip

I hope I did this correctly.

[orange]

Without some data, it's had to replicate a situation.
I looked at your Form and have no idea what is expected of me.
I tied entering 2 dates and preview?????

Perhaps you could tell the reader what steps should be taken to repeat your problem.

[RuralGuy]

If it helps, I cobbled together enough of the db to demonstrate the issue. I've not resolved it yet but this db demonstrates the problem. There are many issues with this db and this is only one of them. I was working in ac2010 and the db is in ac2007 but I don't think it matters. I could be wrong there.

[RuralGuy]

I wonder if it could have something to do with the fact that SharePoint is involved somehow?

[Gina Maylone]

If it helps, I cobbled together enough of the db to demonstrate the issue. I've not resolved it yet but this db demonstrates the problem. There are many issues with this db and this is only one of them. I was working in ac2010 and the db is in ac2007 but I don't think it matters. I could be wrong there.

I didn't create this database, I've been brought in to fix it.

Thank you for your time and suggestioins!