asked on
Access 2007 Receiving Run-time error '3061'
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
Microsoft Access
Last Comment
jerryb30
ASKER
I've complied the database and double checked naming, no errors.
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
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
[Entry Exit Provider Id] is text
vsql is a string
maybe:
"HAVING tblPSHClients.[Entry Exit Provider Id]= '" & vsql & "'"
maybe:
"HAVING tblPSHClients.[Entry Exit Provider Id]= '" & vsql & "'"
ASKER
thanks
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
I did not notice that, either.
This should be mbizup's.
This should be mbizup's.
This error generally means that one of your field names is unrecognized.