Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.
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 3 days 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 3 days 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 3 days 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 3 days 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
Task Manager for Hyper-V provides critical information that allows you to monitor Hyper-V performance by displaying real-time views of CPU and memory at the individual VM-level, so you can quickly identify which VMs are using host resources.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening. This article shows how to create and use them.
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string.
Specify the first argument, which is the expression to be returned:
Specify the second argument, which …
Suggested Courses
Course of the Month13 days, 15 hours left to enroll
656 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.