Change Heading Bar on Database

[crann]

Hi Guys

Ok, i am near finishing my database ready for it to go to work, but i would like to know if it is possible to change the top bar on the database, that says Microsoft Access, it is in blue and is the actual program name and has a icon of Ms Access.

I have seen other database where a custom name has been inserted and the Ms Access one deleted, also the colour has been changed.

It would make the database look more professional if i had the name of the database at the top instead of the standard Ms Access.

Is this possible and how.

Many thanks


Crann

 

[Mile-O]

Select Tools ---> Startup from the menu.

There you can change Application Title and Application Icon amongst other things.

 

[Schof]

You can also do it through code. Put the appropriate properties you want to configure in a macro or module that gets called when the database is opened...

' Set STARTUP options
changeProperty "AppTitle", DB_Text, ""
changeProperty "StartupForm", DB_Text, "Menu"
changeProperty "StartupShowDBWindow", DB_Boolean, False
changeProperty "StartupShowStatusBar", DB_Boolean, False
changeProperty "StartupShowDBWindow", DB_Text, ""
changeProperty "StartupShowStatusBar", DB_Boolean, True
changeProperty "AllowFullMenus", DB_Boolean, False
changeProperty "AllowShortcutMenus", DB_Boolean, False
changeProperty "AllowBuiltinToolbars", DB_Boolean, False
changeProperty "AllowToolbarChanges", DB_Boolean, False
changeProperty "AllowBreakIntoCode", DB_Boolean, False
changeProperty "AllowSpecialKeys", DB_Boolean, False
changeProperty "AllowBypassKey", DB_Boolean, False

...and this to process the options...

Function changeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_changeProperty

Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Err_changeProperty
dbs.Properties(strPropName) = varPropValue
changeProperty = True

Exit_changeProperty:
Exit Function

Err_changeProperty:
If err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
changeProperty = False
Resume Exit_changeProperty
End If
End Function