ник: snipe
Доброго времени суток.....
вот выдрал из своей базки кусок кода - попробуй может поможет.....
(сам код тупо переписал из какой то книги)
Private Sub Кнопка533_Click()
Dim IsFormOpen As Boolean
Dim objAccess As AccessObject, dbObject As Object
Set dbObject = Application.CurrentProject
For Each objAccess In dbObject.AllForms
If objAccess.IsLoaded = True And objAccess.Name = "Основная1" Then
IsFormOpen = True
Exit For
Else
IsFormOpen = False
End If
Next objAccess
If IsFormOpen = True Then
DoCmd.Close acForm, "сроки"
Else
DoCmd.OpenForm "Стартовая форма", acNormal, "", "", , acNormal
DoCmd.Close acForm, "сроки"
End If
End Sub
суть всего этого хода в следующем - пользователь может попасть с форму "сроки" двумя путями из "стартовой формы" или из "основной1", но что бы попасть в форму "основная1" пользователю нужно ввести пароль. если пользователь попал в форму "сроки" через "стартовую форму" то форма "основная1" не открыта а если через форму "основная1" - то соответственно форма открыта (она не закрывается в момент запуска формы "сроки") Теперь если пользователь захочет выйти из формы "сроки"- то он попадет в форму "основная1" без ввода пароля, либо (если "основная 1" закрыта) в "стартовую форму" для ввода пароля. Ну а что бы это реализовать весь это бред нужно было просто проверить открыта форма "основная 1" или нет