Run time erro 91

[Puebles]

Hello.

I am getting the run time error 91 indicating that the variable is not set. I do not understand why I am having this error at this particular time.

The puropse of this procedure is to check on update where we are in the procedure (Function FindOutWhereWeAre) to toggle the enabled property on various controls. When rs3!WhereAreWe = 1 this indicates that the Download FromDate or ToDate has been changed and the download must be re-ran prior to processing or reporting.

Private Sub fldFromDate_AfterUpdate()

Dim rs3 As DAO.Recordset
Set rs3 = db.OpenRecordset("tblControl", dbOpenTable) ' This is where I am getting the error.
rs3!WhereAreWe = 1
FindOutWhereWeAre (rs3!WhereAreWe)

End Sub

This line that errors out is used in several procedures without an issue.

[ItsMe]

You need to assign your recordset to a database. Maybe CurrentDB. DB or db has not been declared. That is the error

Dim db as DAO.Database
set db = CurrentDB

[Puebles]

Yikes...I feel stupid....db was noit declared in that procedure.

Sorry.

[ItsMe]

Not a problem. I try to close my db declarations and set to = Nothing at the end of the routine. This way an error does not sneak up if a routine may be depending on a previous declaration