G
Guest
Hello!
Got stuck trying to pass vallue from query to a textbox.
Query is:
SELECT Sum(DateDiff("n",[StartTime],[EndTime])/60) AS TotalTime FROM tblTime
WHERE (((tblTime.ReviewNumber)=[Forms]![frmReview]![txtReviewNumber])) GROUP
BY tblTime.ReviewNumber
It runs when On Activate, On Current or On Load event of frmReview is
invoked and should pass that single value to textbox txtTotalTime on same
form.
I'm getting error message:
"Run-time error '3061': Too few parameters. Expected 1."
This is what I've done so far:
Private Sub TimeTotal()
Dim db As Database
Dim rs As Recordset
Dim strTimeTotal As Variant
Dim SQLStr As String
SQLStr = "SELECT Sum(DateDiff(""n"",[StartTime],[EndTime])/60) AS
TotalTime FROM tblTime WHERE (((tblTime.ReviewNumber)="
SQLStr = SQLStr & [Forms]![frmReview]![txtReviewNumber] & ")) GROUP BY
tblTime.ReviewNumber"
Set db = CurrentDb()
'Set rs = db.OpenRecordset(SQLStr)
If IsNull(db.OpenRecordset(SQLStr)) Then
[Forms]![frmReview]![txtTotalTime] = 0
Else
Set rs = db.OpenRecordset(SQLStr)
[Forms]![frmReview]![txtTotalTime] = rs
End If
[Forms]![frmReview]![txtTotalTime] = strTimeTotal
End Sub
Please help!
Deki PA
Got stuck trying to pass vallue from query to a textbox.
Query is:
SELECT Sum(DateDiff("n",[StartTime],[EndTime])/60) AS TotalTime FROM tblTime
WHERE (((tblTime.ReviewNumber)=[Forms]![frmReview]![txtReviewNumber])) GROUP
BY tblTime.ReviewNumber
It runs when On Activate, On Current or On Load event of frmReview is
invoked and should pass that single value to textbox txtTotalTime on same
form.
I'm getting error message:
"Run-time error '3061': Too few parameters. Expected 1."
This is what I've done so far:
Private Sub TimeTotal()
Dim db As Database
Dim rs As Recordset
Dim strTimeTotal As Variant
Dim SQLStr As String
SQLStr = "SELECT Sum(DateDiff(""n"",[StartTime],[EndTime])/60) AS
TotalTime FROM tblTime WHERE (((tblTime.ReviewNumber)="
SQLStr = SQLStr & [Forms]![frmReview]![txtReviewNumber] & ")) GROUP BY
tblTime.ReviewNumber"
Set db = CurrentDb()
'Set rs = db.OpenRecordset(SQLStr)
If IsNull(db.OpenRecordset(SQLStr)) Then
[Forms]![frmReview]![txtTotalTime] = 0
Else
Set rs = db.OpenRecordset(SQLStr)
[Forms]![frmReview]![txtTotalTime] = rs
End If
[Forms]![frmReview]![txtTotalTime] = strTimeTotal
End Sub
Please help!
Deki PA