Run-time error 3601 Too few parametrs. Expected 1

Option Compare Database

Private Sub Command2_Click()

Dim rs As DAO.Recordset
Dim db As Database
Dim str As String
Dim abc, abc1 As String
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object


Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("E:\testfile.xlsx")
Set objWS = objWB.Worksheets("A")
Set db = CurrentDb()

str = "SELECT ID_Balance, SumOfA_001, SumOfA_005 FROM QueryTotalStart"
Set rs = db.OpenRecordset(str)
abc = rs("A_001")
abc1 = rs("A_005")



With objWS
.Cells(3, 3).Value = abc
.Cells(4, 3).Value = abc1

End With
objXL.Visible = True

End Sub

SELECT ReportDate.ID_Balance, Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005
FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance
GROUP BY ReportDate.ID_Balance
HAVING (((ReportDate.ID_Balance)=[Forms]![ReportTotal]![ReportDataStart]));

 добавить параметр, который заполнять при обращении к запросу

sql = "SELECT ReportDate.ID_Balance, Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005" & _
"FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance GROUP BY ReportDate.ID_Balance" & _
" HAVING (((ReportDate.ID_Balance)=[Forms]![ReportTotal]![ReportDataStart]))"
Debug.Print sql

Set rs = db.OpenRecordset(sql)

Private Sub Command7_Click()
CurrentDb.QueryDefs("QueryTotalEnd").SQL = "select ReportDate.ID_Balance,Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005 FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance where ReportDate.ID_Balance=Me.ReportDataEnd"
DoCmd.TransferSpreadsheet acExport, , "QueryTotalEnd", "E:\testfile.xlsx"
End Sub

Private Sub Command7_Click()
CurrentDb.QueryDefs("QueryTotalEnd").SQL = "select Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005 FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance where ReportDate.ID_Balance=Me.ReportDataEnd"
DoCmd.TransferSpreadsheet acExport, , "QueryTotalEnd", "E:\testfile.xlsx", True

 
End Sub

Private Sub Command2_Click()

Dim rs As DAO.Recordset
Dim db As Database
Dim str As String
Dim aaa, abc, abc1 As String
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object


Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("E:\testfile.xlsx")
Set objWS = objWB.Worksheets("A")
Set db = CurrentDb()

SQL = "SELECT ReportDate.ID_Balance, Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005" & _
"FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance GROUP BY ReportDate.ID_Balance" & _
" HAVING (((ReportDate.ID_Balance)=[Forms]![ReportTotal]![ReportDataStart]))"
Debug.Print SQL
Set rs = db.OpenRecordset(str)
abc1 = rs("DateBalance")
aaa = rs("SumOfA_001")
abc = rs("SumOfA_005")


With objWS
.Cells(2, 3).Value = abc1
.Cells(3, 3).Value = aaa
.Cells(4, 3).Value = abc

End With
objXL.Visible = True

End Sub

Set rs = db.OpenRecordset(str)

SELECT ReportDate.ID_Balance, Sum(BalanceSheet.A_001) AS SumOfA_001, Sum(BalanceSheet.A_005) AS SumOfA_005FROM ReportDate RIGHT JOIN BalanceSheet ON ReportDate.ID_Balance = BalanceSheet.ID_Balance GROUP BY ReportDate.ID_Balance HAVING (((ReportDate.ID_Balance)=[Forms]![ReportTotal]![ReportDataStart]))

" HAVING (((ReportDate.ID_Balance)=" & _
[Forms]![ReportTotal]![ReportDataStart] & _
"))" 

меня смущает связь некого кода баланса и некой даты

 (((ReportDate.ID_Balance)=[Forms]![ReportTotal]![ReportDataStart]))

Private Sub Command7_Click()
Dim dbs As Database
Dim tabl As DAO.Recordset
Dim a, b As String
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object

Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("C:\Templates\test1.xls")
Set objWS = objWB.Worksheets("A")
Set dbs = CurrentDb()

Set tabl = dbs.OpenRecordset("TotalBalance1", dbOpenTable)
a = tabl("SumOfA_001")
With objWS
.Cells(14, 1).Value = a

End With
MsgBox "Export sucesfuly."
End Sub