PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
Course Of The Month
5 days, 2 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Access 2007 Receiving Run-time error '3061'
Posted on 2012-12-20
Receiving Run-time error '3061' Too few parameters. Expected @ Set rst = CurrentDb.OpenRecordset(st
'Total Households Served
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String
Dim vcatch As String
Dim vsql As String
vsql = Me.cboProvider
strSql = "SELECT tblPSHClients.[Entry Exit Provider Id], Count(tblPSHClients.[Clien
"FROM tblPSHClients " & vbCrLf & _
"WHERE (((tblPSHClients.[Househol
"GROUP BY tblPSHClients.[Entry Exit Provider Id] " & vbCrLf & _
"HAVING tblPSHClients.[Entry Exit Provider Id]= " & vsql & ";"
Set rst = CurrentDb.OpenRecordset(st
If Not rst.EOF Then
Me.txtTotalHouseholds = rst![CountOfClient Uid]
Else
'MsgBox "Client" & " " & Me.txtsearch & " " & "does not have a veteran stauts"
Me.txtTotalHouseholds.Valu
End If
Set rst = Nothing
Set db = Nothing
'Total Households Served
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String
Dim vcatch As String
Dim vsql As String
vsql = Me.cboProvider
strSql = "SELECT tblPSHClients.[Entry Exit Provider Id], Count(tblPSHClients.[Clien
"FROM tblPSHClients " & vbCrLf & _
"WHERE (((tblPSHClients.[Househol
"GROUP BY tblPSHClients.[Entry Exit Provider Id] " & vbCrLf & _
"HAVING tblPSHClients.[Entry Exit Provider Id]= " & vsql & ";"
Set rst = CurrentDb.OpenRecordset(st
If Not rst.EOF Then
Me.txtTotalHouseholds = rst![CountOfClient Uid]
Else
'MsgBox "Client" & " " & Me.txtsearch & " " & "does not have a veteran stauts"
Me.txtTotalHouseholds.Valu
End If
Set rst = Nothing
Set db = Nothing
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
4
-
3
2
11 Comments
Active 1 day ago
Scrutinize your table and field names for typos.
This error generally means that one of your field names is unrecognized.
This error generally means that one of your field names is unrecognized.
Active 1 day ago
I've also simplified your sql here - you don't need the vbCRLF's:
strSql = "SELECT tblPSHClients.[Entry Exit Provider Id], Count(tblPSHClients.[Client Uid]) AS [CountOfClient Uid] " & _
"FROM tblPSHClients " & _
"WHERE tblPSHClients.[Household Relate# Head Of Household] <> 'No' " & _
"GROUP BY tblPSHClients.[Entry Exit Provider Id] " & _
"HAVING tblPSHClients.[Entry Exit Provider Id]= " & vsql
Active 1 day ago
Simplified a little more:
Also is Entry Exit Provider Id text or numeric?
If it is text, use this instead:
Finally if none of these ideas help try renaming [Household Relate# Head Of Household] to something that does not include any special characters.
strSql = "SELECT [Entry Exit Provider Id], Count([Client Uid]) AS [CountOfClient Uid] " & _
"FROM tblPSHClients " & _
"WHERE [Household Relate# Head Of Household] <> 'No' " & _
"GROUP BY [Entry Exit Provider Id] " & _
"HAVING [Entry Exit Provider Id]= " & vsql
Also is Entry Exit Provider Id text or numeric?
If it is text, use this instead:
strSql = "SELECT [Entry Exit Provider Id], Count([Client Uid]) AS [CountOfClient Uid] " & _
"FROM tblPSHClients " & _
"WHERE [Household Relate# Head Of Household] <> 'No' " & _
"GROUP BY [Entry Exit Provider Id] " & _
"HAVING [Entry Exit Provider Id]='" & vsql & "'"
Finally if none of these ideas help try renaming [Household Relate# Head Of Household] to something that does not include any special characters.
Active 1 day ago
jbakestull,
Did you see my last suggestion for revising your query for a text [Entry Exit Provider Id]?
http:#a38711652
Did you see my last suggestion for revising your query for a text [Entry Exit Provider Id]?
http:#a38711652
Featured Post
This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Learn how to number pages in an Access report over each group.
Activate two pass printing by referencing the pages property:
Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses
Course of the Month5 days, 2 hours left to enroll
688 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.