Icon Flaw in access

[Tom]

Hello everyone,

I have created an application icon for my db but when I
package it up I find the destination machine always seems
to get the icon wrong.

The icon is always installed in the directory next to the
main db file.

CurrentProject.path

can I use this to set the path in code to get around this
flaw in access packaging?

Thanks

Tom

 

[Paul Overway]

It gets it wrong because you haven't told Access where to find it. You need
to run code while your app is starting...

Dim db as database

Set db = currentdb()
db.Properties("AppIcon") = CurrentProject.Path & "\someicon.ico"
Application.RefreshTitleBar

You could also use SetOption.