Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Помогите исправить автовыборку !
 
 автор: kola   (19.05.2008 в 10:24)   личное сообщение
 
 

Всем привет.
Проблема в следующем .Имеется форма с полями вывода данных .Добавляю ещё одно поле не связанное с источником данных формы , а используемое для задания параметров фильтра формы. Данный параметр должен сравниваться с любой частью требуемого поля в базе данных .Изменение фильтра формы должно генерироваться после введения каждого символа .Здесь на форуме нашёл похожие темы , но видно не до конца разобрался в синтаксисе. Помогите подкорректировать.
Dim MyFilter As String

[Forms]![Стандарты].FilterOn = False

MyFilter = "[Аннотация] Like Me.Controls![Поле1].Value "

Me.Form![Стандарты].Filter = MyFilter

Me.Form![Стандарты].FilterOn = True

  Ответить  
 
 автор: osmor   (19.05.2008 в 13:00)   личное сообщение
 
 


MyFilter = "[Аннотация] Like '" & Me.Controls![Поле1].Value & "*'"
если фокус остается в поле ввода условия, то нужно использовать свойство text

MyFilter = "[Аннотация] Like '" & Me.Controls![Поле1].Text & "*'"

  Ответить  
 
 автор: Nadin   (19.05.2008 в 14:12)   личное сообщение
 
 

Лучше используйте отбор данных при помощи запросов, и зменений условий отбора, т.к. фильтр часто врет.

  Ответить  
 
 автор: kola   (19.05.2008 в 15:34)   личное сообщение
 
 

Огромное спасибо !
Будем пробовать .

  Ответить  
 
 автор: Анатолий (Киев)   (20.05.2008 в 19:30)   личное сообщение
 
 

>MyFilter = "[Аннотация] Like '" & Me.Controls![Поле1].Text & "*'"
Используйте это на событии OnClick поля.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList