-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Авторизационная форма. Роли: Администратор, Менеджер и Гость.

Среда, 04 Июня 2014 г. 11:50 + в цитатник
Доброго времени суток, форумчане!
Есть форма, для авторизации к базе данных. У каждого пользователя есть свой логин и пароль, кроме гостя.
Как сделать так чтобы выбрав логин: Гость, мне не надо было бы вводить пароль. Данные паролей хранятся в таблице "Роли", но для гостя поле пустое. Соответственно когда запускаю форму, выбираю гостя и не ввожу пароль, нажимаю ОК пишет "Неверный пароль".
Помогите разобраться, заранее благодарен.

Код для кнопки ок, где Поле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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку