проблемы с кодом

[duh_si]

День добрый , пытаюсь сделать логиницу данные берутся из таблицы

TempVars.Add "namel", [Forms]![login]![cboCurrentEmployee].Value
On Error GoTo Err_Ex
Dim rstTemp As Recordset
Dim fr$
Dim strMessage As String
Dim s, strPassword As String
    If IsNull(Me.пароль) Then
        MsgBox "Введите пароль!", vbCritical, "Администратор"
        Me.пароль.SetFocus
        Exit Sub
    End If
'strMessage = Me.пароль & "j6kc2a"
''Call MD5_string(strMessage)
'  strPassword = MD5_string(strMessage)
    
    fr = "Select * From Employee Where код=" & Me.cboCurrentEmployee
    Set rstTemp = CurrentDb.OpenRecordset(fr)
    s = rstTemp!пароль
    
    If strPassword <> s Then
        MsgBox "Пароль не верен!", vbCritical, "Администратор"
        Me.пароль = Null
        Me.пароль.SetFocus
        rstTemp.Close
        Set rstTemp = Nothing
'        Exit Sub
'    Else
'       Me.пароль = ""
'        'flgEnabled = True
'        'DoCmd.OpenForm "Выборка"
'        'DoCmd.Close acForm, Me.Form.Name
''        UsLev = rstTemp!уровень
''        UsName = rstTemp!Фамилия
'        rstTemp.Close
'        Set rstTemp = Nothing
   End If

постоянно выдает пароль не верен , Me.пароль = Null отладчик останавливается в этой строке, хотя в БД пароль введен для этого человека "11" и в отладчике в переменную "s" эти 11 попадают,..в VBA плох, подскажите где что не так делаю

[duh_si]

Сори, только что разобрался.

[duh_si]

извиняюсь погорячился...все равно не правильно работает так же выдает Пароль не верен, но в программу заходит, и подскажите со строкой TempVars.Add "namel", [Forms]![login]![cboCurrentEmployee].Value как в namel получить фамилию входящего пользователя

[Myhaylo]

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

выдает Пароль не верен

Конечно выдаёт, ибо в строке

If strPassword <> s Then

strPassword="" всегда, а в s - пароль из таблицы.

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

Пароль не верен, но в программу заходит

MsgBox "Пароль не верен!", vbCritical, "Администратор"
DoCmd.Quit 'закрыть MS Access

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

подскажите со строкой TempVars.Add "namel", [Forms]![login]![cboCurrentEmployee].Value как в namel получить фамилию входящего пользователя

Кто такой TempVars - список, поле со списком? В любом случае, єтой командой Ві пітаетесь добавлять какие-то значения ("namel" и [Forms]![login]![cboCurrentEmployee]) куда-то. Но никак не считываете...

Почему Вы не хотите использовать стандартный механизм разделения прав доступа и паролей, основанный на файле рабочих групп?

[duh_si]

Почему Вы не хотите использовать стандартный механизм разделения прав доступа и паролей, основанный на файле рабочих групп?

в access 2010 разве такое возможно

[Myhaylo]

Из справки MS Access 2010:

MDW. Файлы рабочей группы содержат сведения о защищенных базах данных. В Access 2010 в формат MDW-файлов изменения не вносились. Руководитель рабочей группы Access 2010 создает MDW-файлы, идентичные аналогичным файлам Access 2000 — 2007. MDW-файлы, созданные в предыдущих версиях Access, можно использовать в базах данных Access 2010.
Примечание. Access 2010 можно использовать для открытия баз данных более ранних версий, которые были защищены на уровне пользователя. Однако в базах данных Access 2010 безопасность на уровне пользователей не применяется. На ленте нет команды запуска руководителя рабочей группы, но его все равно можно запустить в Access 2010 с помощью команды DoCmd.RunCommand acCmdWorkgroupAdministrator в коде VBA или с помощью макроса Access, содержащего действие RunCommand с аргументом Command со значением WorkgroupAdminstrator.

[duh_si]

если хотите я могу скинуть изначальный код который пытаюсь оптимизировать для своих нужд, мне нужно не только проверку пользователей сделать , но еще и что бы входящие пользователь попадали в журналВходящих, а так как я в VBA по ходу разбираюсь и читаю я его еле еле, а тут еще и писать надо, по этому у меня большие проблемы

[Myhaylo]

Нет, я не настаиваю и не говорю, что использование mdw-файлов - очень хорошо.

[Myhaylo]

Просто без Вашей базы здесь никак...

[duh_si]

Myhaylo вам нужно модератором быть, у меня такое ощущение ,что вы почти единственный кто тут пытается помочь)