	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.2

Error 3061 too few parameters / QueryDef Parameter Problem

Asked by mattdc1978 in Access Coding/Macros, Access Architecture/Design, Access Reports

Tags: Microsoft Access, QueryDef, Error 3061

Hi all,

First time posting and pretty new at this, so apologies in advance for any stupidity...I'm building a bookings database in MS Access and have created a command button ("Command25") on a form ("subfrmBooking") which is supposed to send a confirmation email to a student who is booked in for an appointment with an attachment ("rptBookingConfirmationEmail").

I have created a query ("qryBookingIDAndStudentEmail") which selects "StudentEmail" from a table ("Student") and BookingID from a table ("Booking") where Booking.BookingID = subfrmBooking.BookingID. The query seems to work fine; however, when I try to click the command button I am confronted with a pop-up informing me of Error 3061: Too few parameters. Expected 1"

I've spent hours trawling previous posts and other sites, and I believe that the problem may relate to my having to define the parameters in the vba editor using QueryDef, but can't seem to get my head around how to apply it to my code, which I've pasted below in the hope that someone might be able to help.

Any advice would be much appreciated!

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

           
           
             Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim lngBookingID As Long
Dim strEmail As String
 
strSQL = "SELECT BookingID,StudentEmail From qryBookingIDAndStudentEmail"
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSQL)
 
rst.MoveFirst
 
    Do While Not rst.EOF
        lngBookingID = rst!BookingID
        strEmail = rst!StudentEmail
        DoCmd.SendObject acSendReport, "rptBookingConfirmationEmail", acFormatHTML, strEmail, , , "Confirmation of Needs Assessment Booking.", "Please find attached details of your pending appointment at CLASS", True
        rst.MoveNext
    Loop
lngpubBookingID = 0
 
MsgBox "Done", vbInformation
 
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing
 
Exit_Command25_Click:
    On Error Resume Next
    rst.Close
    Set rst = Nothing
    dbs.Close
    Set dbs = Nothing
    Exit Sub
 
Err_Command25_Click:
    If Err.Number = 2501 Then
        Resume Exit_Command25_Click
    Else
        MsgBox "There was an error sending the email" & vbCrLf & vbCrLf & Err.Number & ": " & vbCrLf & vbCrLf & Error, vbExclamation
        Resume Exit_Command25_Click
End If
End Sub

           
         

20091021-EE-VQP-81 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. capricorn11,329,230
2. boag2000771,757
3. LSMCons...639,120
4. peter57r426,701
5. matthews...368,277
6. DatabaseMX358,575
7. cwood-...304,235
8. thenelson296,407
9. rockiroads275,019
10. Helen_Fe...202,456
11. TextReport194,917
12. tbsgadi188,389
13. JDettman146,620
14. harfang104,818
15. mbizup104,239
16. jimpen104,100
17. GRayL82,203
18. angelIII75,364
19. kelvinsparks70,000
20. MikeToole65,685
21. mildurait60,369
22. puppydog...56,575
23. cactus_d...54,014
24. rorya50,700
25. jmoss11147,308

1. capricorn13,262,343
2. LSMCons...1,644,974
3. boag20001,490,214
4. DatabaseMX1,145,010
5. peter57r1,135,537
6. matthews...770,783
7. harfang565,870
8. rockiroads452,102
9. jimhorn391,984
10. mbizup386,985
11. jefftwilley386,135
12. thenelson363,067
13. cwood-...339,839
14. TextReport328,663
15. JDettman307,285
16. MikeToole294,248
17. GRayL274,972
18. tbsgadi256,827
19. frankytee243,267
20. stevbe222,414
21. omgang222,181
22. angelIII210,042
23. Helen_Fe...202,456
24. LPurvis191,460
25. jimpen190,346

Error 3061 too few parameters / QueryDef Parameter Problem

Asked by mattdc1978 in Access Coding/Macros, Access Architecture/Design, Access Reports

Tags: Microsoft Access, QueryDef, Error 3061

About this solution