LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 05 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: поиск в т...
 Тема: поиск в таблице
 
 15.06.2007 21:01:54
Андрей8
2 сообщения


Тема: поиск в таблице
Есть форма, в которую вносятся значения серии и номера. По значениям указанным в этих двум полям нужно найти сведения в другой таблице и отобразить на форме. Каким образом это можно организовать ? Таблица в которой должен осуществляться поиск может быть очень большой.


P.S. Поиск в формах
Автор: Андрей от 29.01.2002 13:49:59 Источник ...
 15.06.2007 21:01:54
All
4316 сообщения
1-ый


RE: поиск в таблице
Желательно таблицу с данными ограничить путем создания запроса на выборку. Поставьте этот запрос (например, SELECT * FROM [ВСЕ Книги] WHERE [Тип]=1) вместо таблицы (запроса) [Мои книги] в примерах указанных ниже.
Пример 1 . В данном варианте постоянно меняется запрос. Таким образом на экране всегда будут отображаться только те записи (книги), которые необходимо Вам просмотреть.
Private Sub myBooks_Change()
Dim s As String
s = Me.myBooks.Text 'Определяем текст
If Len(s) <> 0 Then s = " WHERE Left([Книга]," & Len(s) & ") = '" & s & "'"
Me.myFind3.Form.RecordSource = "SELECT Книга FROM [Мои книги]" & s
End Sub
Пример 2 . В данном варианте при вводе первых символов включается программа поиска и курсор останавливается на первой подходящей записи (книге).
Private Sub Books_Change()
Dim rst As Recordset, frm As Form
Set frm = Me.myFind3.Form 'Выбираем форму
Set rst = frm.RecordsetClone 'Выбираем запрос
rst.FindFirst "([Книга] Like '" & Me.Books.Text & "*')=True"
If rst.NoMatch = False Then frm.Bookmark = rst.Bookmark
End Sub
P.S. Описание контекстного поиска дано в файле la_form.mdb, 3 пример


P.S. Поиск в формах
Автор: Виктор Конюков от 0:00:00 Источник ...
 15.06.2007 21:01:54
All
4316 сообщения
1-ый


RE: поиск в таблице
А что фильтры уже не в моде? Можно же написать:
Me.Filter = "seria=" & Me.Seria & " and numer=" & Me.Numer
Me.FilterOn = True


P.S. Поиск в формах
Автор: Дмитрий от 0:00:00 Источник ...
 15.06.2007 21:01:54
Андрей8
2 сообщения


Спасибо



P.S. Поиск в формах
Автор: Андрей от 31.01.2002 16:10:16 Источник ...
 15.06.2007 21:01:54
All
4316 сообщения
1-ый


RE: контекстный поиск
Скачала la_form.mdb, не могу открыть в MSA97,т.к. писалось под MSA2000, которого у меня нет.
Очень нужен пример контекстного поиска, я слаба в VBA, а так хочется разобраться !
Есть табличка с полями :
ID АВТОР НАЗВАНИЕ КОЛИЧЕСТВО ,ей соответствует форма Forma1, на которой есть 4-е textbox-а, под каждое из полей таблички Table1.
Хочу приделать еще один textbox - Search, для контекстного поиска через Form1 по названию ,т.е.
кликнула мышкой в поле textbox Search,начинаю печатать название, а оно самоподставляется.Найдя нужное - нажала энтер и в 4-ех textbox-ах появляется соответствующая информация.
Помогите, пожалуста !


P.S. Поиск в формах
Автор: HATA от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: поиск в т...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke