Проблема с кодом VB для Access базы

Жалоба
Вопрос

Имеется данный код:_____________________________Private Sub Кнопка8_Click()Function login()If ([Forms]![Авторизация]![Поле11].Value = "") ThenElsetest = DFirst("Код_пользователя", "Пользователи", "[Имя для входа] Like [Forms]![Авторизация]![Поле1].Value AND [Пароль для входа] Like [Forms]![Авторизация]![Поле2].Value")   If (test <> "") Then       lol = MsgBox("Авторизация прошла успешно", vbOKOnly, "Вывод")   Else       lol = MsgBox("Данные введены не верно", vbOKOnly, "Ошибка авторизации")   End IfEnd IfEnd Function______________________________Код нужен для авторизации, при нажатии кнопки он выдает ошибку Expected End Sub( читал, мол не закрыт Sub, дописывал end Sub, ничего не меняется) что делать

В процессе 1
программирование 4 года назад 0 Ответов 134 Просмотров 0

Ответов ( 0 )

    Ваш ответ будет первым!

Ваш ответ