[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 156
  • Last Modified:

Object Not Valid

Experts,

In the attached subroutine, I'm checking to see if my main database object is Nothing so that it doesn't test for whether or not it's closed.  However, I get an error sometimes when I run the program because it says the object is "not valid" or "no longer set".  Isn't that what I'm testing for to begin with?  If the object is "not valid", how is it getting to the "Close" statement?
Public Sub BackUpDatabase()
 
    frmMessage.lblMessage.Caption = "Backing up database..."
    frmMessage.Show
 
    Dim SrcFile As String, DestFile As String
 
    If Not gdbKnowledgeTracker Is Nothing Then
        gdbKnowledgeTracker.Close
    End If
    
    SrcFile = App.Path & "\Data\KnowledgeTracker.mdb"
    DestFile = App.Path & "\Data\KnowledgeTracker_BAK.mdb"
 
    Call FileCopy(SrcFile, DestFile)
    
    
    Set gdbKnowledgeTracker = OpenDatabase(App.Path + "\Data\KnowledgeTracker.mdb")
            
    Unload frmMessage
 
End Sub

Open in new window

0
NigelRocks
Asked:
NigelRocks
1 Solution
 
hnasrCommented:
You may use a global variable blnFlag As Boolean=False to track your object  gdbKnowledgeTracker

When you set the object reassign blnFlag = True
0
 
everkleerCommented:
I think you need something like IsObject(gdbKnowledgeTracker) instead of gdbKnowledgeTracker is Nothing.  I forget exactly but I've wasted hours on a similar issue before.
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now