LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
06 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Поиск дан...
Тема: Поиск данных в форме
15.06.2007 21:03:02
Roman
2 сообщения
Тема: Поиск данных в форме
Хочу обратиться к Вам с просьбой о помощи !!!
Не могли бы Вы мне помочь в Написании некоторого Кода. Хочу организовать Один поиск, но с написанием у меня проблемка. Поиск примерно такой: После нажатия кнопки появляется InputBox Куда я ввожу какие либо данные, затем данные InputBox-а ищут сравнение в таблице, если что то находит то выводит в MsgBox.
Взял даже код из одной книжки, но УВЫ !!!!
Ошибку мне посстоянно выкидывает в начале кода, ругаясь на Database в самом VBA
Просто я не понимаю как правильно его прописать в Модуле
Ещё у меня программа ругается на
1. OpenRecordset
2. NoMatch
Private Sub Кнопка1_Click()
Dim dbs As Database
Dim rstКлиент As Recordset
Dim strКарточка As String
Set dbs = CurrentDb()
Set rstКлиент = dbs.OpenRecordset ("КЛИЕНТ", dbOpenTable)
rstКлиент.Index = "PrimaryKey"
strКарточка = InputBox ("Введите № Карточки Клиента", "Поиск по Номеру Карточки")
rstКлиент.Seek "=", strКарточка
If rstКлиент.NoMatch Then
MsgBox "Номер карточки не найден!"
Exit Sub
End If
MsgBox "Результат Поиска" & "" & rstКлиент![№Карты] & ""
End Sub
P.S. Поиск в формах
Автор:
Roman
от 06.09.2002 15:21:05
Источник ...
15.06.2007 21:03:03
All
4316 сообщения
RE: Поиск данных в форме
1. Установите ссылку да DAO, т.к. в Access 2000 по умолчанию устанавливается сслыка на ADO.
2. Примеры по поиску данных есть в файле: la_find.mdb
P.S. Поиск в формах
Автор:
Виктор Конюков
от 0:00:00
Источник ...
15.06.2007 21:03:03
Roman
2 сообщения
RE: Поиск данных в форме
Спасибо Виктор!!!
ЗАРАБОТАЛО !!!
Теперь остались всякие мелочи :))
P.S. Поиск в формах
Автор:
Roman
от 09.09.2002 11:28:36
Источник ...
15.06.2007 21:03:03
Игорь4
26 сообщения
RE: Поиск данных в форме
Использовал пример контекстного поиска с отбором из файла la_find.mdb. Но мне еще нужно, чтобы найденную запись из подчиненной формы можно было бы удалять. Сделал кнопку удаления записи мастером, но запись не удаляется. Как быть? Помогите пожалуйста.
P.S. Поиск в формах
Автор:
Игорь
от 01.11.2002 15:52:16
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Поиск дан...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования