Removing "Microsft Access" from the title bar in Access

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 wrote:
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.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

On Sat, 18 Oct 2008 14:50:01 -0700, Mark wrote:

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

--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail