Celeron
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
- Создаём форму "Поиск", в которой есть поле SearchCriteria (куда пользователь вводит подстроку условия), вложенная форма SubForm (из формы Поиск_СписокРезультат) и кнопка "Обновить"
- Создаём форму "Поиск_СписокРезультат", которая в табличном виде отображает результат запроса с отфильтрованными записями. И RecordSource для этой формы будет запрос типа: SELECT * FROM Таблица1 WHERE (name like '*фильтр*'); - этот запрос будет изменятся при нажатии на кнопку "Обновить" и подставляться новая строка "фильтр". Как показывает практика играться со всякими фильтрами формы - дурная затея ибо Access очень глючной - то работет фильтр, то нет...
- Далее обработчик на кнопку "Обновить" будет такой:
Private Sub Refresh_Click()
Dim s As String
On Error Resume Next
s = [Forms]![Поиск]!SearchCriteria.Value 'подстроку, которую надо найти
If Len(s) > 0 Then
[Forms]![Поиск]!SubForm.Form.RecordSource = "SELECT * FROM Таблица1 WHERE (code like '*" & s & "*');"
Else
[Forms]![Поиск]!SubForm.Form.RecordSource = "SELECT * FROM Таблица1;"
End If
[Forms]![Поиск]!SubForm.Requery
End Sub
|
Всего записей: 92 | Зарегистр. 05-08-2004 | Отправлено: 05:24 03-05-2008 | Исправлено: Celeron, 05:26 03-05-2008 |
|
