所以我不确定我问的是否正确；让我解释一下：
有没有一种方法可以在没有表单/报告周围的访问 shell 的情况下运行我的 MDE？提供菜单的部分，以及小应用程序标题。我认为这是我所有访问内容所在的整体表示层形式，但我不确定。我只是想知道你是否可以摆脱它。
谢谢
【问题讨论】：
如果您想进一步“隐藏”您的应用程序是用 access 编写的这一事实，您还可以做一些其他的事情。如果您将位图图像放在同一个文件夹中并将其命名为与数据库完全相同的名称，即“MyDatabase.mde”和“MyDatabase.bmp”，那么访问将使用它作为启动屏幕，而不是仅显示它。
这里还有一些代码可以更改每个表单上的表单标题旁边显示的图标
'place this sub in each forms "Load" event
Private Sub Form_Load()
SetFormIcon Me.hWnd, Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & “\myicon.ico"
‘if the icon file is stored in the same directory as the db
‘or
SetFormIcon Me.hWnd, "C:\Icons\Icon1.ico" 'Location of icon file
End Sub
'copy below code in a new public module
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON As Long = 49
Private Const SM_CYSMICON As Long = 50
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private Declare Function Long, ByVal wMsg As Long, ByVal wParam As Long, LParam As Any) As Long
Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean
Dim lIcon As Long
Dim lResult As Long
Dim X As Long, Y As Long
X = GetSystemMetrics(SM_CXSMICON)
Y = GetSystemMetrics(SM_CYSMICON)
lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)
lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)
End Function
SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As
【讨论】：
【讨论】：