Removing "Microsft Access" from the title bar in Access

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
 
R

Rick Brandt

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

In Tools Startup you can set your own application title.
 
F

fredg

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top