me.visible doesn't work

[Bill Reed via AccessMonster.com]

I have the following code in the Open event of a form:

Private Sub Form_Open(Cancel As Integer)
Dim obj As Object
Dim dbs As Database
Dim strPath As String

On Error GoTo ErrorHandler

Set dbs = CurrentDb
With dbs
strPath = .Name
' Change title bar.
.Properties!AppTitle = strPath
' Update title bar on screen.
Application.RefreshTitleBar
End With

Me.Visible = False
Exit Sub

ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set obj = dbs.CreateProperty("AppTitle", dbText, strPath)
dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next

End Sub

The form opens on startup. When I step through the code, the form obeys the
me.visible = true line. When it runs automatically, it doesn't.

 

[Lynn Trapp]

I got it to work, but had to change the error handler to this:

ErrorHandler:
If Err.Number = 3270 Then
Set obj = dbs.CreateProperty("AppTitle", dbText, strPath)
dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Jeff Conrad's Big List: www.ltcomputerdesigns.com/JCReferences.html

 

[Bill Reed via AccessMonster.com]

Thanks a million. What's the explanation for this? It didn't seem to
generate an error when I stepped through it.

 

[Lynn Trapp]

You are welcome. Because Err.Number was never found to be equal to
Err.Number = conPropNotFoundError, so it didn't create the property. You
were probably just skipping over the Me.Visible statement.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Jeff Conrad's Big List: www.ltcomputerdesigns.com/JCReferences.html