Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 13.07.2018, 09:29   #1
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
Репутация: 10
По умолчанию Ошибка "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, 10:08   #2
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,432
Репутация: 885

skype: aleksandr.gryb
По умолчанию

Код:

Set rst = CurrentDb.OpenRecordset("Сотрудники_iBase",dbOpenDynaset)

__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Старый 13.07.2018, 10:24   #3
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
Репутация: 10
По умолчанию

Сейчас ошибка 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 в 11:04. Причина: Дополнил
vb777 вне форума   Ответить с цитированием
Старый 13.07.2018, 12:03   #4
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,432
Репутация: 885

skype: aleksandr.gryb
По умолчанию

приложите результат "Сотрудники_iBase". Нагляднее будет
__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Старый 13.07.2018, 12:40   #5
vb777
Пользователь
 
Регистрация: 13.07.2018
Сообщений: 11
Репутация: 10
По умолчанию Скрин приложил

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


03:00.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru