Run-time error 91...

[Guest]

....Object variable or With block variable not set

My code is generating this error. I first created the query in Query design
view, which works correctly. After modifying it as shown, it generates the
error.

Can anyone help?
Sprinks

‘ SQL Cut & Pasted From Query Design View
UPDATE Timesheet INNER JOIN (TimeRecords INNER JOIN TimeSheetDetail
ON TimeRecords.ProjectNumber = TimeSheetDetail.ProjectNumber)
ON Timesheet.TimesheetID = TimeSheetDetail.TimesheetID SET
TimeSheetDetail.DayHours1 = [TimeRecords].[Hours], TimeSheetDetail.Status1 =
IIf([TimeRecords].[StatusID]=2,1,[TimeRecords].[StatusID])
WHERE (((TimeRecords.TSID)=266) AND ((TimeRecords.PeriodDay)=1) AND
((Timesheet.StaffID)=[Forms]![RestoreTimesheet].[cboStaffID]));


‘ Code in procedure
strSQL = "UPDATE Timesheet INNER JOIN (TimeRecords INNER JOIN TimeSheetDetail"
strSQL = strSQL & " ON TimeRecords.ProjectNumber =
TimeSheetDetail.ProjectNumber)"
strSQL = strSQL & " ON Timesheet.TimesheetID = TimeSheetDetail.TimesheetID"
strSQL = strSQL & " SET TimeSheetDetail.DayHours1 = TimeRecords.Hours,"
strSQL = strSQL & " TimeSheetDetail.Status1 =
IIf(TimeRecords.StatusID=2,1,TimeRecords.StatusID)"
strSQL = strSQL & " WHERE (((TimeRecords.TSID)=266) AND
((TimeRecords.PeriodDay)=1)"
strSQL = strSQL & " AND ((Timesheet.StaffID)=" &
Forms("RestoreTimesheet").Controls("cboStaffID")

db.Execute strSQL, dbFailOnError

 

[Brendan Reynolds]

How and where is the variable 'db' declared and instantiated?

 

[Guest]

Thanks, Brandan--

I'd inadvertently commented out

Set db = DBEngine(0)(0)

Sprinks

How and where is the variable 'db' declared and instantiated?

--
Brendan Reynolds
Access MVP

...Object variable or With block variable not set

My code is generating this error. I first created the query in Query
design
view, which works correctly. After modifying it as shown, it generates
the
error.

Can anyone help?
Sprinks

' SQL Cut & Pasted From Query Design View
UPDATE Timesheet INNER JOIN (TimeRecords INNER JOIN TimeSheetDetail
ON TimeRecords.ProjectNumber = TimeSheetDetail.ProjectNumber)
ON Timesheet.TimesheetID = TimeSheetDetail.TimesheetID SET
TimeSheetDetail.DayHours1 = [TimeRecords].[Hours], TimeSheetDetail.Status1
=
IIf([TimeRecords].[StatusID]=2,1,[TimeRecords].[StatusID])
WHERE (((TimeRecords.TSID)=266) AND ((TimeRecords.PeriodDay)=1) AND
((Timesheet.StaffID)=[Forms]![RestoreTimesheet].[cboStaffID]));


' Code in procedure
strSQL = "UPDATE Timesheet INNER JOIN (TimeRecords INNER JOIN
TimeSheetDetail"
strSQL = strSQL & " ON TimeRecords.ProjectNumber =
TimeSheetDetail.ProjectNumber)"
strSQL = strSQL & " ON Timesheet.TimesheetID =
TimeSheetDetail.TimesheetID"
strSQL = strSQL & " SET TimeSheetDetail.DayHours1 = TimeRecords.Hours,"
strSQL = strSQL & " TimeSheetDetail.Status1 =
IIf(TimeRecords.StatusID=2,1,TimeRecords.StatusID)"
strSQL = strSQL & " WHERE (((TimeRecords.TSID)=266) AND
((TimeRecords.PeriodDay)=1)"
strSQL = strSQL & " AND ((Timesheet.StaffID)=" &
Forms("RestoreTimesheet").Controls("cboStaffID")

db.Execute strSQL, dbFailOnError