ACCESS TITLE BAR

  • Thread starter Thread starter Jess
  • Start date Start date
Hi Jess,
This work until aceess 2003, I don't know for newer version:
Add this function in the first form that you open

Function AddAppProperty(strName As String, varType As Variant, varValue As
Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True

AddProp_Bye:
Exit Function

AddProp_Err:
If err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function

Then on the open event of the form put this code

Const DB_Text As Long = 10

intX = AddAppProperty("AppTitle", DB_Text, "Your title") ' this set the
title
intX = AddAppProperty("AppIcon", DB_Text, "your icon with full path") '
this set the icon if you like
Application.RefreshTitleBar

HTH Paolo
 
Back
Top