-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Ошибка run-time error 3021

Понедельник, 14 Марта 2016 г. 20:20 + в цитатник
Здравствуйте.

Пытаюсь сделать проверку логина и пароля в Access через VBA с использованием запросов.
Нужно чтобы выводило по логину и паролю получало id.

По нажатию на кнопку авторизации должна происходить проверка. Если логин и пароль есть в таблице Пользователи, то авторизация проходит успешно, но если логин или пароль с ошибкой, то при выполнении SQL запроса через VBA выскакивает ошибка "Run-time error 3021, Текущая запись отсутствует".

Пытался бороться с ней проверяя значение rst!result_2, но возникает тогда другая ошибка - Run-time error '424', Object required

Помогите пожалуйста разобраться.

Dim rst As DAO.Recordset
Dim log As String
Dim pass As String

        log = Me.username
        pass = Me.password
        
        Set rst = CurrentDb.OpenRecordset("SELECT Пользователи.id AS result_2 FROM Пользователи WHERE Пользователи.Логин = '" & log & "' AND Пользователи.Пароль='" & pass & "';")
        'выше возникает ошибка 3021, а ниже проверка и если она присутствует, то выдает ошибку 
            If (rst!result_2 Is EOL) Then
                t_ans = 0
                MsgBox "Ошибка авторизации"
            Else
                t_ans = rst!result_2
            End If
            
            rst.Close
        Set rst = Nothing

http://www.sql.ru/forum/1205202/oshibka-run-time-error-3021


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку