Доброго времени суток, форумчане!
Есть форма, для авторизации к базе данных. У каждого пользователя есть свой логин и пароль, кроме гостя.
Как сделать так чтобы выбрав логин: Гость, мне не надо было бы вводить пароль. Данные паролей хранятся в таблице "Роли", но для гостя поле пустое. Соответственно когда запускаю форму, выбираю гостя и не ввожу пароль, нажимаю ОК пишет "Неверный пароль".
Помогите разобраться, заранее благодарен.
Код для кнопки ок, где Поле6 - поле ввода пароля, а Поле8 - скрытое поле, проверяющее данные из таблицы "Роли":
Private Sub Кнопка10_Click()
Dim user As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Вы ввели неверный пароль!"
Style = vbOKOnly + vbExclamation
Title = "Внимание!!!"
If Me![Поле6] = Me![Поле8] Then
user = Me![ПолеСоСписком4]
If user = "Гость" Then
Form_Инфа_о_туре.Кнопка10.Visible = False
End If
If Me![ПолеСоСписком4] = "1" Then
DoCmd.OpenForm "Кнопочная_форма"
ElseIf Me![ПолеСоСписком4] = "2" Then
' посредством OpenArgs (аргументы открытия формы) передаем параметр название пользователя
DoCmd.OpenForm "Кнопочная_форма", , , , , acNormal, "Менеджер"
ElseIf Me![ПолеСоСписком4] = "3" Then
' посредством OpenArgs (аргументы открытия формы) передаем параметр название пользователя
DoCmd.OpenForm "Кнопочная_форма", , , , , acNormal, "Гость"
End If
DoCmd.Close acForm, "Вход"
Else
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
Me![Поле6].Value = ""
Me![Поле6].SetFocus
End If
End Sub
http://www.sql.ru/forum/1098493/avtorizacionnaya-forma-roli-administrator-menedzher-i-gost