Here is a code to change MS Access application title and icon using VBA. This code also sets the application icon as form and report default icon.
Dim db As Database
Set db = CurrentDb
db.Properties("AppIcon").Value = CurrentProject.Path & "\Bee.ico"
db.Properties("AppTitle").Value = msgMainTitle
db.Properties("UseAppIconForFrmRpt").Value = True
Application.RefreshTitleBar
Click here for list of all properties exposed by CurrentDB.Properties().
LoadIconA
Hicon=LoadImageA(…..
SendMessageA Hwnd,uMsg WM_SETICON,wParam &0,lPaearm Byval Hicon
I have tried this code… but so far i have no success. Don’t know if this will be on a new module or on a startup form? I’ve tried both but still not working.
willie
Hello,
This is exactly what I’m trying to accomplish, not sure where to enter the vba code so that properties are set at startup,
Thanks boss. Am wondering if there’s a way of programmatically changing the startup form
Hi Stefan,
I am not aware of it but I think you may create a temporary startup form and depending on the criteria (username / role / access level ), open up needed form.
Probably dead by now but is their a way to define the icon for the forms and reports separately from the application icon?
Steven,
I am not aware of any trick to accomplish the needed task.
Where I have to write down that syntax
Thanks
This code was very useful. Thanks.
Nice & simple 🙂
Usefull. Thanx