This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(32, 41%, 13%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EW%3C/text%3E%3C/svg%3E)
I'm using this code:
Application.CurrentProject.Properties.Add "AppIcon", Application.CurrentProject.Path & "\myicon.ico"
Application.RefreshTitleBar
to change the application icon of my access database, but the Access icon is still displayed in the main, like this:
Forms and reports are updated with the customiced Icon, but not the "main" icon as shown.
I have tried to use different code, like this:
CurrentDb.Properties("AppIcon").Value = CurrentProject.Path & "\myicon.ico"
Application.RefreshTitleBar
But still no updates for the "application" icon.
PS:
This code has been working for several years, but lately its not updating the "application" Icon.
Did you try the AddAppProperty example, that uses the CreateProperty function: https://learn.microsoft.com/en-us/office/vba/api/access.application.appicon? But if the icon that was set manually in Options dialog does not have effect on main Access icon, then maybe it is not supported.
This method has worked for many years, but after upgrading to windows 11, it no longer works... Forms and report icon are updated, but not the application icon.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(3.2, 1%, 10%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EDC%3C/text%3E%3C/svg%3E)
i have used this for 15 years and no issues.
in the resent few months it stopped working!!!!.
i try both windows 10 and 11, same issue!!!!!!
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(60.8, 44%, 15%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EL%3C/text%3E%3C/svg%3E)
I have encountered the same problem. I cannot make it work.
I think this is just the result of too many meetings at microsoft. They left out this 'petty' feature because they don't pay that much attention to the needs of the non-MS programmers who want a good, slick looking product for their clients.
IMHO...
-cs