date parameter

[rammudali]

Dear Friends

I have a small issue and i dont know how to solve the same

the issue is i am updating data from a cross tabquery and it works fine but if i selecte the records based on the dates (here Tdate) it is giving runtime error 3061, Too few parameters. expected 0.

the code is as follows

Sub SaveComplexQueryIntoTable()
Dim qdf As DAO.QueryDef

SstrSQL = "PARAMETERS PARAMETERS [forms]![FrmTimesheet]![Text0] DateTime, [forms]![FrmTimesheet]![Text2] DateTime datetime;"
strSQL = "TRANSFORM Sum(qryTimesheet.TWhrs) AS SumOfTWhrs"
strSQL = strSQL + " SELECT qryTimesheet.TEmpno, Sum(qryTimesheet.TWhrs) AS [Total hrs]"
strSQL = strSQL + " FROM qryTimesheet WHERE (((qryTimesheet.TEMPno) = '" & [Forms]![FrmTimesheet]![txtempno] & "')) GROUP BY qryTimesheet.TEmpno PIVOT qryTimesheet.Tdate;"
Set qdf = CurrentDb.CreateQueryDef("qryTimesheetCrstbTM11", strSQL)
qdf.Close

""""""""" this part is not getting executed"""""""""""""""
CurrentDb.Execute "SELECT * INTO tbltmpTsH FROM qryTimesheetCrstbTM11;"

End Sub


and the qrytimesheet is follows

SELECT TblTimesheets.TEmpno, TblTimesheets.Tdate, TblTimesheets.TWhrs, TblTimesheets.OffshoreAllow, TblTimesheets.ClStatus, TblTimesheets.UlStatus, TblTimesheets.Hdet, TblTimesheets.Hshrtnme
FROM TblTimesheets
WHERE (((TblTimesheets.Tdate)>=[forms]![FrmTimesheet]![Text0] And (TblTimesheets.Tdate)<=[forms]![FrmTimesheet]![Text2]))
ORDER BY TblTimesheets.TEmpno, TblTimesheets.Tdate;


any help is highly appreciated


Ram

 

[JHB]

Only if you are you using the variable "SstrSQL" anywhere, there are 2 "PARAMETERS PARAMETERS"!

SstrSQL = "PARAMETERS PARAMETERS [forms]![FrmTimesheet]![Text0] DateTime, [forms]![FrmTimesheet]![Text2] DateTime datetime;"

Too few parameters. expected 0

It seems to be 1 to much, (expected 0)!
How does qryTimesheetCrstbTM11 looks like if you open it in the Query design?

 

[rammudali]

Thank you,