如何指定Access开发的程序图标

我们在使用Access开发的程序，启动后默认的程序图标就是Access本身图标，通常我们是在设置选项里指定当前目录下的ICO图片作为启动程序的图标（即绝对路径图标），如何使用VBA代码指定一个相对路径的图标作为程序图标呢？

当然是可以的。首先建立一个模块，写一个自定义函数，如下：

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

然后在启动窗体的“加载”事项写入以下代码：

    Dim intX As Integer
    Const DB_Text As Long = 10
    intX = AddAppProperty("AppTitle", DB_Text, "程序名称") '程序标题
     '为数据库所在文件夹中的图标名称
    intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\图标名称.ico")

这时候当Access程序运行时就会自动加载指定路径的图片作为程序的图标了。