Hi All,
Is there a way to remove the "Microsoft Access" title on the database? I'm
not talking about a form, but the program itself when open?
Thanks,
Mark
You can change it to a single space.
Adapted from VBA help:
Sub ChangeTitle()
Dim dbs As DAO.Database
Dim obj As Object
Const conPropNotFoundError = 3270
On Error GoTo ErrorHandler
' Return Database object variable pointing to
' the current database.
Set dbs = CurrentDb
' Change title bar.
dbs.Properties!AppTitle = " "
' Update title bar on screen.
Application.RefreshTitleBar
Exit Sub
ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set obj = dbs.CreateProperty("AppTitle", dbText, " ")
dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Sub