Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.07.2018, 08:29   #1
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
По умолчанию Ошибка "3251" на проверку данных с таблицей

Всем добрый день. Хочу создать несколько пользователей и индивидуальный вход для каждого. Но при проверки введенного логина с таблицей выдает ошибку.
Вот строчка из кода

Код:
rst.FindFirst (Me.Логин.Value)
Вот на всякий случай весь код

Код:
Private Sub iBaseOpen_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Сотрудники_iBase")
With rst
If IsNull(Me.Логин.Value) Then
MsgBox "Поле пользователя пустое. Выбирите пользователя из списка.", vbInformation, "Информация"
Me.Логин.SetFocus
Exit Sub
Else
rst.FindFirst (Me.Логин.Value)
'.FindFirst (Me.Логин.Value)

End If
End With
End Sub
vb777 вне форума Ответить с цитированием
Старый 13.07.2018, 09:08   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Set rst = CurrentDb.OpenRecordset("Сотрудники_iBase",dbOpenDynaset)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 13.07.2018, 09:24   #3
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
По умолчанию

Сейчас ошибка 3464. Несоответствие типов данных в выражении условия отбора

Сделал
Код:
Private Sub iBaseOpen_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Сотрудники_iBase", dbOpenDynaset)
With rst
If IsNull(Me.Логин.Value) Then
MsgBox "Поле пользователя пустое. Выбирите пользователя из списка.", vbInformation, "Информация"
Me.Логин.SetFocus
Exit Sub
Else
rst.FindFirst ("Логин='" & Me.Логин.Value & "'")

If .NoMatch Then
MsgBox "О данном пользователе нет информации в БД"
Me.Логин.Value = ""
Me.Логин.SetFocus
Exit Sub
End If
End If
End With
End Sub
Но сейчас выводит что нет пользователя в бд. Хотя он есть.

Последний раз редактировалось vb777; 13.07.2018 в 10:04. Причина: Дополнил
vb777 вне форума Ответить с цитированием
Старый 13.07.2018, 11:03   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

приложите результат "Сотрудники_iBase". Нагляднее будет
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 13.07.2018, 11:40   #5
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
По умолчанию Скрин приложил

Таблица Сотрудники_iBase
Изображения
Тип файла: png 2018-07-13_13-37-00.png (9.6 Кб, 93 просмотров)
vb777 вне форума Ответить с цитированием
Старый 13.07.2018, 11:58   #6
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
По умолчанию

Разобрался. На самом деле первое стояло не логин, а артикул на счетчике. Запросом все отблосил и получилось
vb777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать папки "Pictures", "Music", "Видео", "Downloads" из "МОЙ КОМПЬЮТЕР" Бахтиёр1916 Windows 1 05.04.2017 12:53
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 14:23