Removing "Microsft Access" from the title bar in Access

  • Thread starter Thread starter Mark
  • Start date Start date
M

Mark

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
 
Mark said:
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
Click to expand...

In Tools Startup you can set your own application title.
 
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
Click to expand...

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
 
Back
Top