Ошибка при вводе пароля в базу данных. Что делать?

@UserABC · Регистрация: 16.03.2011

Добрый вечер. Такое задание - создать форму, которая обеспечивает разноуровневый доступ (то есть для админа, для пользователя и др). Создал для этого форму, на ней поле со списком и поле для пароля. А также некую кнопку ОК, отвечающую за вход в базу данных. Ввожу пароль (при запуске формы), а он ошибку выводит, ссылаясь на код. Скажите в чем ошибка в коде?

Visual Basic

Private Sub Êíîïêà5_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Âû ââåëè íåâåðíûé ïàðîëü!"
Style = vbOKOnly + vbExclamation
Title = "Âíèìàíèå!"
If Me![Ïàðîëü] = Me![Ïîëå3] Then
If Me![ÏîëåÑîÑïèñêîì0] = "1" Then
DoCmd.OpenForm "Ïàðîëè"
ElseIf Me![ÏîëåÑîÑïèñêîì0] = "2" Then
DoCmd.OpenForm "Ïàðîëè", , , , , acNormal, "Ïîëüçîâàòåëü"
ElseIf Me![ÏîëåÑîÑïèñêîì0] = "3" Then
DoCmd.OpenForm "Ïàðîëè", , , , , acNormal, "Ìåíåäæåð"
End If
DoCmd.Close acForm, "ïàðîëè"
Else
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
Me![Ïàðîëü].Value = ""
Me![Ïàðîëü].SetFocus
End If
 
End Sub

@UserABC · 16.04.2012, 18:22 **[ТС]**

Вот такая ошибка
Там кстати на форме есть скрытой "поле3" называется. Именно с этим полем происходит проверка. то есть проверяется запись введенная в поле "пароль" с записью, в "поле3"

@UserABC · 16.04.2012, 18:35 **[ТС]**

Вот базу прилагаю. Заранее спасибо!

@minob · 16.04.2012, 18:50

Так поля то с именем "Пароль" нет, есть надпись с таким именем, а у надписей свойство Value отсутствует.

@UserABC · 16.04.2012, 19:32 **[ТС]**

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

Добавлено через 17 минут
Я так понимаю, часть кода для меню, не совсем правильная, потому как при авторизации (меню у меня скрыты), никакие меню ни для кого не открываются

Visual Basic

Private Sub Form_Load()
DoCmd.Restore
If OpenAgrs = "Àäìèíèñòðàòîð" Then
DoCmd.ShowToolbar ìåíþøêà
ElseIf OpenAgrs = "Ïîëüçîâàòåëü" Then
DoCmd.ShowToolbar ìåíþ
ElseIf OpenAgrs = "Ìåíåäæåð" Then
DoCmd.ShowToolbar ìåíþ
DoCmd.ShowToolbar ìåíþ1
End If
End Sub

@minob · 16.04.2012, 19:38

А если вместо
DoCmd.ShowToolbar менюшка
попробовать
CommandBars("менюшка").Visible=True

@UserABC · 16.04.2012, 19:42 **[ТС]**

Также .. никак не отображается..
Я вроде их скрыл.. вызвал контекстное меню панелей.. и снял галочку напротив панели, которую скрываю (Менюшка). Вроде скрыл то правильно
Но все равно не отображается

@minob · 16.04.2012, 20:09

Сообщение от UserABC

Также .. никак не отображается.

Так чего же им отображаться, если OpenAgrs у вас Empty, а следовательно ни в какую ветку IF при выполнении не попадаем. Да если бы и попали, то получили бы ошибку, т.к. в DoCmd.ShowToolbar менюшка нужно имя панели брать в кавычки, т.е. DoCmd.ShowToolbar "менюшка". С CommandBars тоже все будет работать.

@UserABC · 16.04.2012, 20:20 **[ТС]**

Сообщение от minob

в DoCmd.ShowToolbar менюшка нужно имя панели брать в кавычки, т.е. DoCmd.ShowToolbar "менюшка"

Вот, сделал как вы сказали, испробовал на бд, никак не открывается. Сделал так:

@minob · 16.04.2012, 20:32

Сообщение от UserABC

Вот, сделал как вы сказали

Я же ва русским по белому

объяснил, что при входе в процедуру свойство OpenArgs имеет значение Empty, т.е. не равно ни "Администратор", ни "Пользователь", ни "Менеджер", т.е. ни в одну из веток If, где у вас открываются менюшки, программа не войдет.

@UserABC · 16.04.2012, 20:35 **[ТС]**

А, подскажите, какие есть варианты устранения проблемы этой?

Сообщение от minob

С CommandBars тоже все будет работать

Так, почему-то не работает..

@minob · 16.04.2012, 21:21

Сообщение от UserABC

А, подскажите, какие есть варианты устранения проблемы этой?

Никаких проблем нет. У меня на вашей базе работает, как ваше DoCmd, так и CommandBars.
Вы мое сообщение от 19:32 видели?

Добавлено через 36 минут
И еще, информация для размышления, что вы на самом деле хотели написать - OpenAgrs или OpenArgs.

@UserABC · 16.04.2012, 22:08 **[ТС]**

Почему же у меня не запускается то.. странно.. уже код изменил на вариант CommandBars

@UserABC · 16.04.2012, 22:09 **[ТС]**

Вот код

@minob · 16.04.2012, 22:40

Сообщение от UserABC

Вот код

Я вас повторно спрашиваю: вы вот это мое сообщение читали?

Сделайте точку останова на строке
If OpenArgs = "Пользователь" Then
и посмотрите, чему у вас равно значение OpenArgs.

Где вы присваиваете ему значение?

@UserABC · 16.04.2012, 22:46 **[ТС]**

Да я понимаю, что OpenArgs пустое значение.. но каким образом мне присвоить ему значение?

@UserABC · 16.04.2012, 22:48 **[ТС]**

Да.. и как вообще задавать или присваивать значение, если ..

@minob · 16.04.2012, 23:20

Сообщение от UserABC

Да я понимаю, что OpenArgs пустое значение.. но каким образом мне присвоить ему значение?

Читайте справку о методе OpenForm.

Добавлено через 26 минут
И вообще странная у вас логика. При загрузке формы вы пытаетесь задать/определить информацию о вошедшем, тогда как она станет доступной только после того, как в этой же форме пользователь введет логин и пароль.

@UserABC · 16.04.2012, 23:32 **[ТС]**

то есть лучше будет, эту часть кода в конец переместить?

@minob · 16.04.2012, 23:42

Сообщение от UserABC

то есть лучше будет, эту часть кода в конец переместить?

Я бы поместил после того, как пользователь идентифицирован по введенным им логину и паролю, т.е. опознан "своим".

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 20:32	10
	Сообщение от UserABC Вот, сделал как вы сказали Я же ва русским по белому объяснил, что при входе в процедуру свойство OpenArgs имеет значение Empty, т.е. не равно ни "Администратор", ни "Пользователь", ни "Менеджер", т.е. ни в одну из веток If, где у вас открываются менюшки, программа не войдет. 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 22:08 [ТС]	13
	Почему же у меня не запускается то.. странно.. уже код изменил на вариант CommandBars 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 22:09 [ТС]	14
	Вот код Миниатюры 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 22:40	15
	Сообщение от UserABC Вот код Я вас повторно спрашиваю: вы вот это мое сообщение читали? Сделайте точку останова на строке If OpenArgs = "Пользователь" Then и посмотрите, чему у вас равно значение OpenArgs. Где вы присваиваете ему значение? 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 18:22 [ТС]	2
	Вот такая ошибка Там кстати на форме есть скрытой "поле3" называется. Именно с этим полем происходит проверка. то есть проверяется запись введенная в поле "пароль" с записью, в "поле3" Миниатюры 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 18:50	4
	Так поля то с именем "Пароль" нет, есть надпись с таким именем, а у надписей свойство Value отсутствует. 1

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 19:38	6
	А если вместо DoCmd.ShowToolbar менюшка попробовать CommandBars("менюшка").Visible=True 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 19:42 [ТС]	7
	Также .. никак не отображается.. Я вроде их скрыл.. вызвал контекстное меню панелей.. и снял галочку напротив панели, которую скрываю (Менюшка). Вроде скрыл то правильно Но все равно не отображается 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 20:09	8
	Сообщение от UserABC Также .. никак не отображается. Так чего же им отображаться, если OpenAgrs у вас Empty, а следовательно ни в какую ветку IF при выполнении не попадаем. Да если бы и попали, то получили бы ошибку, т.к. в DoCmd.ShowToolbar менюшка нужно имя панели брать в кавычки, т.е. DoCmd.ShowToolbar "менюшка". С CommandBars тоже все будет работать. 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 20:20 [ТС]	9
	Сообщение от minob в DoCmd.ShowToolbar менюшка нужно имя панели брать в кавычки, т.е. DoCmd.ShowToolbar "менюшка" Вот, сделал как вы сказали, испробовал на бд, никак не открывается. Сделал так: Изображения 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 20:35 [ТС]	11
	А, подскажите, какие есть варианты устранения проблемы этой? Сообщение от minob С CommandBars тоже все будет работать Так, почему-то не работает.. 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 21:21	12
	Сообщение от UserABC А, подскажите, какие есть варианты устранения проблемы этой? Никаких проблем нет. У меня на вашей базе работает, как ваше DoCmd, так и CommandBars. Вы мое сообщение от 19:32 видели? Добавлено через 36 минут И еще, информация для размышления, что вы на самом деле хотели написать - OpenAgrs или OpenArgs. 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 22:46 [ТС]	16
	Да я понимаю, что OpenArgs пустое значение.. но каким образом мне присвоить ему значение? 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 22:48 [ТС]	17
	Да.. и как вообще задавать или присваивать значение, если .. Миниатюры 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 23:20	18
	Сообщение от UserABC Да я понимаю, что OpenArgs пустое значение.. но каким образом мне присвоить ему значение? Читайте справку о методе OpenForm. Добавлено через 26 минут И вообще странная у вас логика. При загрузке формы вы пытаетесь задать/определить информацию о вошедшем, тогда как она станет доступной только после того, как в этой же форме пользователь введет логин и пароль. 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	16.04.2012, 23:32 [ТС]	19
	то есть лучше будет, эту часть кода в конец переместить? 0

@minob 3541 / 1115 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	16.04.2012, 23:42	20
	Сообщение от UserABC то есть лучше будет, эту часть кода в конец переместить? Я бы поместил после того, как пользователь идентифицирован по введенным им логину и паролю, т.е. опознан "своим". 1