ник: час
азграничение прав доступа для пользователей? конечно есть
и самому можно создать куда кому лезьть запретить или только смотреть без права переписки, или какой отчёт нельзя смотреть или ..... ды чё хрчешь можно....
Тебе надо книжку и конкретное задание - тогда всё постепенно освоишь, а иначе Вам удачи не видать.
========== какой ты приставучий =================
Всё равно пока не поймёшь нифига
Вопрос: Как показывать, скрывать, свернуть, и развернуть главное окно Access (hWndAccessApp)
Совет:
Manipulate Access Window
(Q) How do I maximize or minimize the main Access Window from code?
(A) Pass one of the declared constants to the function fSetAccessWindow.
This same function can also be used to completely hide Access window and just show your form on the desktop.
Make the form popup and from it's Open Event, call the fSetAccessWindow function with SW_HIDE as the argument.
Warning: If you're hiding the main Access window, make sure your error handlers are good. Because with the
window hidden, if an error is raised, pressing "End" on the Error window will NOT make Access window visible and
you will be left with just the form open. A recommended method is to make a call to fSetAccessWindow with
SW_SHOWNORMAL from your error handlers.
If, for some reason, the Access window does not show itself, then you can always close the mdb from the Task
List, available in Win 95 with Control-Alt-Delete (once) and under NT, by right clicking on the Taskbar and selecting
Task Manager, by selecting the mdb and clicking End Task.
======================
Управляйте Окном Доступа
( Q), как я развертываю или свертывать главное Окно Доступа от кода?
( A) Передает одну из объявленных констант к функции fSetAccessWindow.
Это та же самая функция может также использоваться, чтобы полностью скрыть окно Access и только, показывает вашей форме на рабочем столе.
Делайте форму всплывающей, и от этого - Открытый Случай, вызывать(называть) функцию fSetAccessWindow с SW_HIDE как параметр.
ВНИМАНИЕ: Если вы скрываете главное окно Access, удостоверитесь, что ваши драйверы ошибки хороши. Поскольку с
Скрытое окно, если ошибка поднята, нажимая "Конец" на окне Error, не будет делать окно Access видимым и
Вы будете оставлены с только открытой формой. Рекомендуемый метод состоит в том, чтобы звонить по телефону к fSetAccessWindow с
SW_SHOWNORMAL от ваших драйверов ошибки.
Если, по некоторым причинам, окно Access не показывает себе, то Вы можете всегда закрывать mdb от Задачи
Список, доступный в WIN 95 с Control-Alt-Delete (однажды) и под NT, правом, нажимающим на Панель задач и выбор
Администратор Задачи, выбирая mdb и щелкая Конечную Задачу.
'************ Code Start **********
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function
'************ Code End **********