MS Access 2003 - Existe-t-il un moyen d'exécuter l'accès (mde) sans le shell d'accès autour des formulaires/rapports?

Question

Donc je ne suis pas sûr si je le demande correctement; laissez-moi vous expliquer:

Y a-t-il un moyen de lancer mon MDE sans le shell d'accès autour des formulaires/rapports? La partie qui fournit le menu et le petit titre de l'application. Je pense que c'est la forme générale de la couche de présentation sur laquelle tout mon contenu d'accès est assis, mais je ne suis pas sûr. Je me demande simplement si vous pouvez vous en débarrasser.

Merci

Answer 1

Si vous voulez encore "cacher" le fait que votre application est écrite en accès, vous pouvez faire d'autres choses. Si vous placez une image bitmap dans le même dossier et l'appelez exactement la même chose que votre base de données, c'est-à-dire "MyDatabase.mde" et "MyDatabase.bmp", l'accès l'utilisera comme écran de démarrage et ne l'affichera pas.

est un code aussi ici pour changer l'icône qui apparaît à côté de la forme sous-titres sur toutes les formes

'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 

Answer 2

Voici comment cela peut être fait en utilisant VBA.

Setting Start-Up Options Using VBA

regarder ailleurs sous les options de base de données en cours pour quelque chose comme Allow menus complets et Autoriser par défaut des menus contextuels et les désactiver.