Как защитить паролем флажок?

Question

У меня есть вопрос о флажках в доступе 2003

У меня есть 4 флажка в моей форме и один из этих полей, я хочу установить ограничения, чтобы только пользователи, которым предоставлен правильный пароль, например (report1), могли установить этот флажок. У меня есть небольшое текстовое поле сбоку от флажка, помеченного паролем менеджера.

Я не уверен, как установить эту проверку в доступе. Я щелкнул правой кнопкой мыши по флажку, зашел в свойства и увидел правило проверки, но не уверен, куда идти. У меня есть представление о том, каким будет мой код VB, если применимо, и я включаю его, если это поможет

Фрагмент кода Если txtpassword.text = "report1" затем closedsftleader.yes = true еще msgbox.show "Неверный пароль управления, повторите попытку"

END IF

Даже не уверен, что этот код будет работать, но это идея. Пожалуйста, помогите, когда сможете. Спасибо.

Answer 1

Рассматривали ли вы блокировку или отключение этого конкретного флажка? Например:

Private Sub Form_Current()
    Me.closedsftleader.Enabled = (Me.txtpassword = "Report1")
End Sub

Private Sub txtpassword_AfterUpdate()
    Me.closedsftleader.Enabled = (Me.txtpassword = "Report1")
End Sub

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

Обычно я устанавливаю свойства тега для элементов управления, что позволяет мне скрывать или включать элементы управления в пакетах в соответствии с пользователем и / или паролем.

Answer 2

Вы можете обрабатывать событие OnClick для этого флажка и не разрешать изменение, если в текстовом поле неверный пароль.

Answer 3

Вы хотите добавить событие в текстовое поле (я считаю, что это «измененное» событие), а затем включить / отключить текстовое поле на основе содержимого текстового поля.

Как примечание, это странный дизайн для защиты содержимого формы. Возможно, вы захотите заставить пользователей войти в приложение Access.