Application icon 1

[AndyH1]

I have an Access database and want to associate an application icon to it. However, since I don't know where the person will put it on their computer I cannot simply set it in the tools > startup options > application Icon option as this needs the directory. The icon is in always in the same directory as the database. is there any way of programming so that I get the current directory and then set the application icon (ie in VBA)?
Thanks
Andy

 

[mp9]

If the icon file is always going to be in the same directory as the database, you can use a line of code like this to set the application icon:

CurrentDb.Properties("AppIcon").Value = Application.CurrentProject.Path & "\myIcon.ico"

Obviously substituting myIcon.ico for the filename of your icon.

This will work fine and you can put it anywhere - in a function that you call at startup from an AutoExec macro (read more about this at

http://www22.brinkster.com/accessory/macros/001.shtml)

or in the OnLoad event of a startup form.

However the user has to have Admin privileges to be able to set this property at run-time, so if you're database is secured to a user-level you might have to think carefully about this.

Hope this helps.