网友 一个人的Hui忆(719060850)  20:14:41 问题
请问老师  CurrentDb.Properties ("AppTitle")  这句代码是什么意思?

Accessoft--红尘如烟  20:22:42
是设置Access主窗口最顶上的标题用的，如下图:

示例参考如下:

代码参考如下:

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    Dim dbs As DAO.Database
    Dim prp As DAO.Property

    Const errPropertyNotFound = 3270

    Set dbs = CurrentDb
    dbs.Properties("AppTitle") = "Access软件网 Accessoft AccessGood 快速开发平台 UMVsoft 上海盟威软件"
    Application.RefreshTitleBar

ExitHere:
    Exit Sub

ErrorHandler:
    Select Case Err
    Case errPropertyNotFound
        dbs.Properties.Append dbs.CreateProperty("AppTitle", dbText, "Access软件网 Accessoft AccessGood 快速开发平台 UMVsoft 上海盟威软件")
        Resume
    Case Else
        MsgBox Err.Description, vbCritical, "错误 #" & Err
        Resume ExitHere
    End Select
End Sub