параметрическое открытие OpenForm, работа с полями таблицы через .Fields

[Познающий]

Всем привет вот и снова я =)

В своей эпопее по достижению доступа по авторизации достиг того, что имеется форма записи, которая запросто откроет форму для определенной записи (фильтр по полю (пароль у меня)), однако проблема - если ввести неверный пароль (оный что отсутствует в БД вообще) форма все равно откроется...
В общем случае использую

DoCmd.OpenForm "Форма модератора", , , "Пароль=[Введите пароль]"

Чтоб достичь приветствия и анализа введенного пароля сделал следующее:

Private Sub Вход_Click()
Dim pass As String
Dim sheet As Recordset
Dim flag As Boolean

flag = False
pass = ""

If Moder.Value = True Then
                                                                 
    Set sheet = CurrentDb.OpenRecordset("Модератор")
    sheet.MoveFirst
  
    Do Until sheet.EOF
    If sheet.Fields("Пароль") = pass Then
                 DoCmd.OpenForm "Форма модератора", , , "Пароль=[Введите пароль]"
                 flag = True
End If
sheet.MoveNext
Loop
sheet.Close

End If
End Sub

Запись привел в порядок прям тут на скору руку. самое важное - что делать? если испольщовать .Fields то вводится пароль с поля, если DoCmd то с окошка, в моем случае приходится делать ввод два раза - с поля и с окошка дуцмд, первое для того чтобы удостовериться в пароле, второе - чтоб правильно открыть форму.

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

[AdrenalinE]

А по Вашему коду получается, что достаточно ввести любой из существующих паролей?

[Teslenko_EA]

Здравствуйте Познающий.
Если вариант "..в отдельной форме ввести пароль.." - не критичен и Вы обратили внимание и прислушались к вопросу AdrenalinE, возможно будет достаточно одной проверки имени пользователя и пароля:

Private Sub Вход_Click()
Dim sNam$, sPwd$, rs As DAO.Recordset
Const sQ1 = "select * from Модератор where FieldName = '", sQ2 = "' and  FieldPassword = '"
sNam = FormField1 & "": sPwd = FormField2 & "" 'получение данных из полей формы
Set rs = CurrentDb.OpenRecordset(sQ1 + sNam + sQ2 + sPwd + "'")
If Not Moder.Value = True Then 'это Ваша проверка не знаю чего:confused:
ElseIf Not rs.EOF Then 'если логин и пароль существуют - рекордсет содержит записи
    'открываем форму передавая ей в условие уже введенный пароль
    DoCmd.OpenForm "Форма модератора", , , "Пароль='" + sPwd + "'"
    GoTo 9
End If
'здесь может быть сообщение - попытка не удалась
9
rs.Close: Set rs = Nothing
End Sub

Евгений.

[Познающий]

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

А по Вашему коду получается, что достаточно ввести любой из существующих паролей?

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

и прислушались к вопросу AdrenalinE

Просто думал зачем вводить "лишние" данные. соригинальничать хотел =)
Модер Админ и Юзер у меня там просто форма такая смешная

о Администратор
о Модератор
о Пользователь

Проверяется истинность выбранного кружочка

Евгений, я не понимаю как работает

Set rs = CurrentDb.OpenRecordset(sQ1 + sNam + sQ2 + sPwd + "'")

как выглядит табличка rs ? насколько я понял (запрос, имя, ???, пароль)
У нас sQ2 просто обнулено зачем?

а тут апострофы есть? просто непонятно вроде " " означают пустую строчку

Const sQ1 = "select * from Модератор where Ник = '", sQ2 = "' and Пароль = '"

' ", sQ2 = " ' - что это? апострофы "вырезают" эс кью2 из запроса?

-------------
Получается задаем константу sQ1 в нее заносим запрос из модераторов где ник равен непоймучему, и вторую константу sQ2 (не пойму что с апострофами >_< )

[Teslenko_EA]

Здравствуйте Познающий.

не понимаю как работает
Set rs = CurrentDb.OpenRecordset(sQ1 + sNam + sQ2 + sPwd + "'")

в своей конструкции Вы открываете рекордсет с полным набором данных из источника (таблицы/запроса) "Модератор", а затем перебором записей выполняете поиск совпадений. Конструкция предложенная мной открывает рекордсет источником которого является текстовая строка (SQL конструкция) в условии отбора которой размещены данные введенные в поля формы.

sNam = FormField1 & "": sPwd = FormField2 & "" 'получение данных из полей формы

' - что это...

- об этом стоит почитать в учебнике, апострофами обрамляется текстовое значение передаваемое в запрос.
Евгений.

[Познающий]

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

Здравствуйте Познающий.

в своей конструкции Вы открываете рекордсет с полным набором данных из источника (таблицы/запроса) "Модератор", а затем перебором записей выполняете поиск совпадений. Конструкция предложенная мной открывает рекордсет источником которого является текстовая строка (SQL конструкция) в условии отбора которой размещены данные введенные в поля формы.

хорошая вещь. заменила мои строк 10 кода =)
У меня постоянно выдает ошибку о неправильно построенном запросе

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

апострофами обрамляется текстовое значение передаваемое в запрос.

Ну я уже начал просто попугаиничать и сделал почти копию того что написали вы

'Const sQ1 = "select * from Модератор where FieldName = '", sQ2 = "' and  FieldPassword = '"

(много менял апострофы..) получается в запрос в текстовое значение передавалось sQ2= (а зачем запятая?Выскакивала однажды ошибка с запятой) а после поля пароля зачем одиночный апостроф?
PS Гончаренко читаю щас скачал какой-то вроде направленный именно на ВБ

Вот вроде самое близкое к истине..

Private Sub Вход_Click()
Dim pass$ ' понравилось объявление стринга =)
Dim name$
Dim sheet As Recordset
'опустил модервалуе к делу не относится =)
Const sQ1 = "select * from Модератор where Ник ='", sQ2 = "' And Пароль = '"
name = Me.FieldName & "": pass = Me.FieldPassword & ""

Set sheet = CurrentDb.OpenRecordset(sQ1 + name + sQ2 + pass + "")

При компиляции ругается на опенрекордсет, то неправильно построен запрос( вот здесь пишет синтаксич ошибка), если убрать в коснсте1 после пароля апостроф пишет "мало параметров - надо 1" удивлен.

[Teslenko_EA]

Познающий, конструкция запроса ".. pass + ""..", не закрывает апострофом текстовое значение, пошагово выполните следующую конструкцию:

...
'объяните дополнительную переменную
Dim s$
'соберите в ней SQL строку
s = sQ1 + name + sQ2 + pass + "'"
'выполните команду
Debug.Print s
'она должна отобразиться подобным образом
'select * from Модератор where Ник = 'F1' And Пароль = 'F2' 
'F1, F2 - значения полей формы соответственно
'и полько потом, убедившись в её верности открывайте рекордсет
Set sheet = CurrentDb.OpenRecordset(s)
...

и удача Вам улыбнется.
Евгений.

[Teslenko_EA]

рекомендация:
откажитесь от использования в качестве имен переменных зарезервированных слов VB(A), (name, sheet,...) это избавит Вас от проблем в будущем.
Евгений.

[Познающий]

красиво написано. мне дебаггер по поводу запроса интересное фи высказывает - вроде все верно(выводит полную структуру запроса) но ему не нравится. лан посмотрим. авось улыбнется

[AdrenalinE]

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

рекомендация:
откажитесь от использования в качестве имен переменных зарезервированных слов VB(A), (name, sheet,...) это избавит Вас от проблем в будущем.
Евгений.

Очень дельный совет, сталкивался на личном опыте. Также советую не использовать зарезервированные слова в качестве названия полей таблиц (date, time и т.д.).