Sean O'Halloran
Registered User.
- Local time
- Today, 11:41
- Joined
- Dec 25, 2002
- Messages
- 52
My database was working well but I decided to clear out unused objects, etc., because a major revamp is coming. I made several copies, ran FMS Total Access Analyzer on one copy and started removing objects. After removing a number of 'unused' queries, my modInitialize started yelling DEBUG at me with this:
Public Function GetcurrentDB() As Database
Static db As Database
Dim strName As String
On Error Resume Next
>> strName = db.Name
If Err.Number <> 0 Then
Set db = CurrentDb()
End If
Set GetcurrentDB = db
Set db = Nothing
End Function
Then, when I tried to run any of the un-analyzed copies, I got the same debug message...
So I moved the problem copy to another machine with the same version of WIN NT and Access 2k - and it ran fine; no problems.
Can someone tell me what I'm missing here? Thanks in advance. - Scratchin'-my-head-Sean
Public Function GetcurrentDB() As Database
Static db As Database
Dim strName As String
On Error Resume Next
>> strName = db.Name
If Err.Number <> 0 Then
Set db = CurrentDb()
End If
Set GetcurrentDB = db
Set db = Nothing
End Function
Then, when I tried to run any of the un-analyzed copies, I got the same debug message...
So I moved the problem copy to another machine with the same version of WIN NT and Access 2k - and it ran fine; no problems.
Can someone tell me what I'm missing here? Thanks in advance. - Scratchin'-my-head-Sean
Last edited:
