| |
|
|
| | Как программно скрыть окно базы данных? | |
| |
| |
|
|
|
|
| |
|
|
| | Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_NORMAL = 1
Private Sub Form_open(Cancel As Integer)
ShowWindow Application.hWndAccessApp, SW_HIDE
End Sub | |
| |
| |
| |
|
|
| | Установи в свойствах формы "всплывающее окно" - да, "модальное окно" - да | |
| |
| |
|
|
| |
|
|
| | Сделал вот так
' скрыть окно базы данных
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
|
| |
| |
| |
| |
|
|
| | Вот еще прикольный способ.
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hwndinsertafter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wfkags As Long) As Long
Public Function NOACCESS()
Dim hwnd_topmost, swp_showwindow
SetWindowPos Application.hWndAccessApp, hwnd_topmost, -30, -30, 0, 0, swp_showwindow
End Function
|
и вешаешь ф-ю NOACCESS() на открытие формы.
аксес уплывает за экран, а форма остается. удобно для приложений с одной формой.  | |
| |
| |
| |
|
|
| | Спасибо - это я юзаю уже.
А тут надо, что бы пользователи не бедокурили........
Защиту от шифта, канечно прилепить......... | |
| |
| |
|
|
| |
|
|
| |
Защиту от шифта, канечно прилепить.........
|
1. есть специальные клавиатуры продаются - без шифта
2. можно плоскогубцать выломать кнопочку Shift
3. вскрыть клаву и перерезать на плате дорожки
4. на кнопку Shift повесить управляемую подачу 220V (при попытку запуска Акса и нажатом шифте срабатывает).
| |
| |
| |
|
|
