Change MS Access application title and icon using VBA

Category: MS AccessTags: , ,

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().

Share

11 comments

Your email address will not be published. Required fields are marked *

  1. Grailly says:

    LoadIconA
    Hicon=LoadImageA(…..
    SendMessageA Hwnd,uMsg WM_SETICON,wParam &0,lPaearm Byval Hicon

  2. Willie says:

    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

  3. albert says:

    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,

  4. Stefan says:

    Thanks boss. Am wondering if there’s a way of programmatically changing the startup form

    1. 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.

  5. Steven says:

    Probably dead by now but is their a way to define the icon for the forms and reports separately from the application icon?

    1. vishal says:

      Steven,

      I am not aware of any trick to accomplish the needed task.

  6. Ramon says:

    Where I have to write down that syntax
    Thanks

  7. donno says:

    This code was very useful. Thanks.

  8. D. Cohen says:

    Nice & simple 🙂

  9. Vlad says:

    Usefull. Thanx