{"id":2154,"date":"2014-07-04T13:11:39","date_gmt":"2014-07-04T03:11:39","guid":{"rendered":"http:\/\/www.itdiscovery.com.au\/?p=2154"},"modified":"2021-03-12T17:25:21","modified_gmt":"2021-03-12T07:25:21","slug":"creating-a-custom-icon-for-ms-access-vba-program","status":"publish","type":"post","link":"https:\/\/www.itdiscovery.com.au\/?p=2154","title":{"rendered":"Creating a Custom icon for MS Access VBA Program"},"content":{"rendered":"<p>For example, to launch an application named My DB.mdb on C:\\ root, open properties of a shortcut then put this command line in the target :<br \/>\n&#8220;C:\\Program Files (x86)\\Microsoft Office 20XX\\OFFICE1X\\MSACCESS.EXE&#8221; &#8220;C:\\My DB.mdb&#8221;<br \/>\nModify x to fit with your MS Office version. Finally, change shortcut icon.<\/p>\n<p>When you run this shortcut, your MS Access application runs in a separated group of you W7 taskbar that shows your own icon.<\/p>\n<p>You can totally automise this process with a CreateShortcut Windows API from vb and detect automatically MS Access executable to get a professional issue.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>For example, to launch an application named My DB.mdb on C:\\ root, open properties of a shortcut then put this command line in the target : &#8220;C:\\Program Files (x86)\\Microsoft Office 20XX\\OFFICE1X\\MSACCESS.EXE&#8221; &#8220;C:\\My DB.mdb&#8221; Modify x to fit with your MS Office version. Finally, change shortcut icon. When you run this shortcut, your MS Access application&hellip; <br \/> <a class=\"read-more\" href=\"https:\/\/www.itdiscovery.com.au\/?p=2154\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/posts\/2154"}],"collection":[{"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2154"}],"version-history":[{"count":1,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/posts\/2154\/revisions"}],"predecessor-version":[{"id":2155,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=\/wp\/v2\/posts\/2154\/revisions\/2155"}],"wp:attachment":[{"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2154"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2154"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.itdiscovery.com.au\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2154"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}