MS Access 2003 - есть ли способ запустить доступ (mde) без оболочки доступа вокруг форм / отчетов - PullRequest
Новая
       18

MS Access 2003 - есть ли способ запустить доступ (mde) без оболочки доступа вокруг форм / отчетов

0 голосов
/ 27 марта 2010

Так что я не уверен, правильно ли я спрашиваю об этом;позвольте мне объяснить:

Есть ли способ запустить мой MDE без оболочки доступа к формам / отчетам?Часть, которая предоставляет меню, и маленький заголовок приложения.Я думаю, что это общая форма уровня представления, на которой расположены все мои материалы для доступа, но я не уверен.Мне просто интересно, если вы можете избавиться от этого.

Спасибо

Ответы [ 2 ]

1 голос
/ 29 марта 2010

Если вы хотите еще больше «скрыть» тот факт, что ваше приложение написано в доступе, есть несколько других вещей, которые вы можете сделать. Если вы поместите растровое изображение в ту же папку и назовете его точно так же, как и ваша база данных, т.е. «MyDatabase.mde» и «MyDatabase.bmp», то access будет использовать его в качестве заставки и не отображать только ее.

Также здесь приведен код для изменения значка, который появляется рядом с заголовком формы в каждой форме 

'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
1 голос
/ 27 марта 2010

Вот как это можно сделать с помощью VBA.

Настройка параметров запуска с использованием VBA

В противном случае посмотрите под текущими параметрами базы данных что-то вроде Разрешить полные меню и Разрешить стандартные контекстные меню и отключите их.

...