>From Access Help:
AppIcon, AppTitle Properties Example
The following example shows how to change the AppIcon and AppTitle
properties in a Microsoft Access database (.mdb). If the properties haven't
already been set or created, you must create them and append them to the
Properties collection by using the CreateProperty method.
Sub cmdAddProp_Click()
Dim intX As Integer
Const DB_Text As Long = 10
intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application")
intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp")
Application.RefreshTitleBar
End Sub
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
-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] Behalf Of verly yuli
Sent: Saturday, June 25, 2005 5:44 AM
To: [EMAIL PROTECTED]; [email protected]
Subject: [AccessDevelopers] how to change my application title?
helloo all..l
anyone can help me?
how i change the application title with vba code?
thank you
regards warmest
verly_yuli
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Please zip all files prior to uploading to Files section.
Yahoo! Groups Links
Please zip all files prior to uploading to Files section.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessDevelopers/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
