@safira111

Почему ругается на код для входа в базу данных под разными ролями?

имеется база данных. в ней таблица сотрудники (логин, ФИО, должность, отдел). Подразумевается что в зависимости от отдела в котором работает сотрудник, будут открываться разные формы. Если входит сотрудник отдела тех. поддержки, то открывается форма "ИсполнителиМакет", если остальные "ПользователиМакет". Реализовано это на входной форме, где выбирается логин, фио и при нажатии кнопки ок открывается необходимая форма.
Проблема в макросе на кнопке. Ругается на строчку 9.
Visual Basic
1. Private Sub Вход_Click()
2. Dim rst As DAO.Recordset
3. Set rst = CurrentDb.OpenRecordset("Сотрудники", dbOpenSnapshot) 'Сотрудники - указываем с какой таблицей будет работать сценарий
4. With rst
5. If IsNull(Me.Логин_поле.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то
6.       MsgBox "Ошибка входа! Выберите пользователя."
7.   Exit Sub
8.    Else
9.               .FindFirst ("Логин Like" & Me.Логин_поле.Value) 'Если поле не пустое, то производится поиск на соответствие с данными таблицы Сотрудники
10.
11.    DoCmd.Close 'Команда на закрытие текущей формы
12.    Select Case Сотрудники.Fields("Отдел").Value
13.      Case "Отдел технической поддержки"
14.       DoCmd.OpenForm "ИсполнителиМакет"
15.       Case Else
16.       DoCmd.OpenForm "ПользователиМакет"
17.     End Select
18.   End If
19.  End With
20. rst.Close
21. Set rst = Nothing
22. End Sub
  • Вопрос задан
  • 28 просмотров
Пригласить эксперта
Ответы на вопрос 1
BasiC2k
@BasiC2k
.NET developer (open to job offers)
А если запрос вернул пустой результат - у Вас в коде такой вариант предусмотрен?
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы