[AccessD] Set Application Title Through Code

Thank you Mark.  Worked perfectly.

Best,

Rocky Smolin
Beach Access Software

----- Original Message ----- 
From: "Mitsules, Mark" <Mark.Mitsules at ngc.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, July 14, 2003 11:23 AM
Subject: RE: [AccessD] Set Application Title Through Code


> In help, look under "RefreshTitleBar Method".  However, I've pasted the
> example below.
>
>
> Mark
>
> <code>
> Sub ChangeTitle()
>     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 = "Contacts Database"
>     ' Update title bar on screen.
>     Application.RefreshTitleBar
>     Exit Sub
>
> ErrorHandler:
>     If Err.Number = conPropNotFoundError Then
>         Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts
> Database")
>         dbs.Properties.Append obj
>     Else
>         MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
>     End If
>     Resume Next
> End Sub
> </code>
>
>
>
> -----Original Message-----
> From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com]
> Sent: Monday, July 14, 2003 2:18 PM
> To: AccessD at databaseadvisors.com
> Subject: [AccessD] Set Application Title Through Code
>
>
> Dear List:
>
> Does anyone know how to set the Application Title through code?  The one
you
> can set manually from Tools-->Startup?
>
> MTIA,
>
> Rocky Smolin
> Beach Access Software
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>