Public Sub CheckIconFile()

    Dim db As Database, IconFile As String
    
    Set db = CurrentDb
    IconFile = CurrentProject.Path & "\MYLOGO.ICO"
    
    If Dir(db.Properties("AppIcon").Value) = "" Then ' Icon file not found. Resetting it.
        If Dir(IconFile) <> "" Then ' Icon file exists, update property
            db.Properties("AppIcon").Value = IconFile
            Application.RefreshTitleBar ' Refresh Access TaskBar logo
            DoCmd.Close acForm, "MainMenuF", acSaveYes ' close/reopen main menu
            DoCmd.OpenForm "MainMenuF"
        End If
    End If
    
End Sub


Copy