在Access2002中，可以通過數據庫窗體的[啟動]屬性來設置應用程序(ACCESS主窗體)的標題和圖標，那麼在ACCESS2000中怎麼辦呢？其實Access提供了APPTitle和AppIco兩個屬性以及RefreshTitleBar方法,可以用來實現這個目的，本文將詳細介紹如何編制程序和使用。
首先,新建一個模塊，在模塊中定義兩個常量(來自微軟幫助中的例程)：
PublicConstDB_TextAsLong=10 '屬性值為文本類型
PublicConstDB_BooleanAsLong=1 '屬性值為邏輯類型
接下編寫下列函數(此函數來自Access幫助中)，以實現在數據庫中添加或修改數據庫屬性。
PublicFunctionAddAppProperty(strNameAsString,varTypeAsVariant,varvalueAsVariant)AsInteger
'=============================================================================================
'本函數用來給當前數據庫(.mdb)添加屬性
'
'strName：屬性名
'varType：屬性類型
'varvalue：屬性的值
'
'返回值 ：成功為True(-1)
' 失敗為False(0)
'
' 例如：應用程序標題欄和應用程序圖標
' intX=AddAppProperty("APPTitle",DB_Text,"更改應用各標題欄和應用程序圖標的例子")
' intX=AddAppProperty("AppIcon",DB_Text,CurrentProject.Path&"MSN.ico")
' '應用設置
' Application.RefreshTitleBar
'
' 易和軟件：朱亦文2002.05.01
'=============================================================================================
DimdbsAsObject,prpAsVariant
ConstconPropNotFoundError=3270
'返回指向當前數據庫的Database對象變量。
Setdbs=CurrentDb '如果是ADP，則為CurrentProject
OnErrorGoToAddProp_Err
'更改屬性值,在更改屬性值出錯出，
'則表示該屬性不存在，轉到錯誤處理程序。
dbs.PropertIEs(strName)=varvalue
AddAppProperty=True
AddProp_Bye:
ExitFunction
AddProp_Err:
IfErr=conPropNotFoundErrorThen
'添加此屬性
Setprp=dbs.CreateProperty(strName,varType,varvalue)
dbs.PropertIEs.Appendprp
Resume
Else
AddAppProperty=False
ResumeAddProp_Bye
EndIf
EndFunction
然後編寫更改Access標題和圖標的函數：
PublicFunctionChangeMyAccessTitle(strTitleAsString)AsInteger
'設置Access主窗體的標題
ChangeMyAccessTitle=AddAppProperty("APPTitle",DB_Text,strTitle)
Application.RefreshTitleBar '刷新標題欄，設置Access的標題
EndFunction
PublicFunctionChangeMyAccessIco(strIcoPathAsString)AsInteger
'設置Access主窗體的圖標
ChangeMyAccessIco=AddAppProperty("AppIcon",DB_Text,strIcoPath)
Application.RefreshTitleBar '刷新標題欄，設置Access的圖標
EndFunction
如果想要把Access的圖標改在C:my.ico,則只要這樣就可以了：
iX=ChangeMyAccessIco("C:my.ico")
如果想要把Access的標題改為“我的應用程序”，則只要這樣：
iX=ChangeMyAccessTitle("我的應用程序")
