表示されるアイコンに対して既にこれを実行しましたアプリケーションの実行中にタスクバーで。今、私はウィンドウ上のショートカットアイコンまたはアプリケーションアイコン（すべてのWindowsプログラム/アプリを見たときに表示されるアイコン）のためにこれをやろうとしています。
これは.dllファイルで実行できることを読みましたが、それには興味がありません。
私の直感では、これは実際には.mdb内のVBAで行うことはできません。うまくいけば、私は間違っています。可能な解決策についての議論を探しています。
ありがとう。
回答：
回答№1は2Windowsショートカットには、icoファイルがあります。そのショートカットに指定されます。 「頻繁に」それらは.exeへのショートカットを指し、ショートカットは.exeの内部にあるicoを引き出しますが、ショートカットのicoを指定することができます。すべての場合において、ショートカットは実際にmsaccess.exeを指すため、icoを指定してカスタムショートカットを作成する必要があります。手動でショートカットを作成し、icoを指定し、VBAを使用してそのショートカットをデスクトップにコピーすることもできます（アプリケーションへのパス名が常に同じであると仮定します-パス名がユーザーからユーザー、その後、インストーラーは本当にこの問題を解決する唯一の実用的な方法です）。
ショートカットを設定/作成できるかどうかわからないVBA。ただし、Windowsインストーラー（またはInnoのような無料のインストーラー）を採用することをお勧めします。これらのインストーラーはデスクトップ上にショートカットを作成し、アイコンを指定できるようにします。
1つの無料で人気のあるインストーラー（inno）はここにあります。
http://www.jrsoftware.org/isinfo.php
デスクトップでアイコンとショートカットを設定するVBAコードとAccessを使用すると、ユーザーが最初にショートカットをセットアップするためにアプリケーション/ VBAコードをまだ実行していないため、ほとんど意味がありません!!!そのため、この目的にはインストーラーを使用してください。
回答№2については2
VBAからショートカットを作成する方法を探している場合は、 ショートカットを作成する WshShellオブジェクトのメソッド。
Option Compare Database
Option Explicit
Sub CreateDesktopShortcutWithIcon()
" ref - https://msdn.microsoft.com/en-us/library/xsy6k3ys(v=vs.84).aspx
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
Dim strDesktop As String
strDesktop = WshShell.SpecialFolders("Desktop")
Dim oShellLink As Object
Set oShellLink = WshShell.CreateShortcut(strDesktop & "My Shortcut.lnk")
oShellLink.TargetPath = "C:UsersPublicUCanAccessTest.accdb"
oShellLink.WindowStyle = 1
"oShellLink.Hotkey = "Ctrl+Alt+f"
"oShellLink.IconLocation = "notepad.exe, 0" " for embedded icon
oShellLink.IconLocation = "C:__tmpMIMEfoo.ico" " for .ico file
oShellLink.Description = "My shortcut created by VBA"
oShellLink.WorkingDirectory = strDesktop
"oShellLink.Arguments = "C:myFile.txt"
oShellLink.Save
End Sub