Question

在Access 2016中，数据库＆＃34; MediaMan.accdb＆＃34;标题栏中的应用程序名称设置（＆＃34; MediaMan - Dev Copy＆＃34;）与文件名不同，VBA没有设置，应用程序标题的当前数据库下的选项设置为＆＃34; MediaMan＆＃ 34 ;.这是我在家里使用的个人数据库，我有一个开发副本和一个实时副本。当然，我在开发副本中的某个位置设置了它，然后将其作为实时副本进行克隆，并忘记删除实时副本中的附件。对于我的生活，我不记得我如何设置它，虽然我希望在主要形式OnLoad（）。通过其他方式可以设置？（有一个后端数据库和一个链接的＆＃34;仅限接口＆＃34;实例一次运行）

Answer 1

如果您使用了API函数，请在AppTitle的VBA代码中进行全局搜索，也可以在SetWindowText进行全局搜索。

也许你有一个调用启动代码的AutoExec宏。

来自在线帮助：

Sub ChangeTitle()
    Dim obj As Object
    Const conPropNotFoundError = 3270

    On Error GoTo ErrorHandler
    Set dbs = CurrentDb
    ' Change title bar.
    dbs.Properties!AppTitle = "Contacts Database"
    ' Update title bar on screen.
    Application.RefreshTitleBar
    Exit Sub

ErrorHandler:
    If Err.Number = conPropNotFoundError Then
        Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database")
        dbs.Properties.Append obj
    Else
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    End If
    Resume Next
End Sub

我怎么能在标题栏中设置数据库应用程序名称？

1 个答案: