更改 Microsoft Access 数据库上的图标

Question

这让我发疯，我真的不明白为什么它不起作用...... 我正在尝试使用 VBA 更改 Access 数据库的图标，它/几乎/可以工作。

我在启动表单的 OnOpen 事件中使用以下代码：

    CurrentDb.Properties("AppIcon").Value = CurrentProject.Path & "\favicon.ico"
    CurrentDb.Properties("UseAppIconForFrmRpt").Value = True
    Application.RefreshTitleBar

该图标可以正常显示在标题栏和主 Access 窗口中，但是该图标不会显示在表单上。奇怪的是：它确实出现在报告中。谁能告诉我 H 到底发生了什么？预先感谢您！

Answer 1

这是因为访问不会重新加载当前表单。

我使用的解决方法是首先测试图标是否已经正常。 第一次加载表单时，只会更新 Windows 标题栏中的应用程序图标。 但第二次加载表单时，该图标将在表单中可见。

示例：

If Application.CurrentDb.Properties("AppIcon") <> path0 & "ScepticalKat.ico" Then
   Application.CurrentDb.Properties("AppIcon") = path0 & "ScepticalKat.ico"
   Application.CurrentDb.Properties("UseAppIconForFrmRpt") = True  
   Application.RefreshTitleBar
End If