访问VBA - 更改.accde中的应用程序标题在启动时无效

Question

我有一个Access Front-End，我想在其中自动检测它是否已编译成accde，然后重命名该apptitle。 我使用以下代码：

 If CurrentDb.Name Like "*.accde" Then
    CurrentDb.Properties("AppTitle").value = "Release Client"
    Application.RefreshTitleBar
  Else
    CurrentDb.Properties("AppTitle").value = "Test Client"
    Application.RefreshTitleBar
  End If

当我启动我开发/测试的.accdb时，一切都很完美。我可以手动更改apptitle，关闭并重新打开，并将其正确地重命名为Test Client。但是，一旦我编译它，在启动新编译的.accde时，它不会重命名该apptitle。我已经尝试将代码从AutoExec函数移动到第一个窗体的OnOpen事件，甚至是第一个窗体的OnTimer事件（设置为1）。

如果我通过立即窗口手动运行代码，它都会正确解析，所以代码在语法和逻辑上看起来都是正确的，我想我只是错过了在.accdb中运行此代码并在其中运行它之间的链接.accde。

感谢任何帮助，谢谢！ - 阿舍尔

Answer 1

原来我犯了错误，最基本的愚蠢。我有一个启动器，我指向一个位置，但忘记将我的编译更新到新位置。 :) 这意味着我的原始代码在HansUp提到的Form Load中很有效。