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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Макрос для фильтра (MS Access 2000)
 
 автор: Леон   (22.07.2008 в 11:17)   личное сообщение
 
 

Добрый день! Подскажите пожалуйста как написать код.
Есть [Форма1] с полями - 2,3
Есть подчиненная форма [Табл1] c полем -4
Нужно вызвать фильтр (допустим кнопкой) для [Табл1] , поля -4
Параметры фильтрации необходимо взять between [Форма1].Поле2 and [Форма1].Поле3

  Ответить  
 
 автор: час   (22.07.2008 в 14:13)   личное сообщение
 
 

Можете для [Табл1] создать запрос - источник записей
и в запросе уже применить фильтр.(условие отбора записей)

  Ответить  
 
 автор: Анатолий (Киев)   (22.07.2008 в 14:32)   личное сообщение
 
 

На событии Click кнопки в главной форме

With Me![Табл1].Form
.Filter = "[поле4] between " & Me!Поле2 & " and " & Me!Поле3
.FilterOn = True
End With

  Ответить  
 
 автор: Леон   (23.07.2008 в 08:15)   личное сообщение
38 Кб.
 
 

Извиняюсь я некорректно описал условие отбора..Соответственно макрос для моего случая не работает. В прикрепленном файле наглядно порказано. В поле text1 содержится начальная дата (например 01.01.08) , в поле text2 содержится конечная дата ( например 23.07.08)! Нужно чтоб в форме2 отображались данные временного диапазона,ограниченного датами 01.01.08-23.07.08....

  Ответить  
 
 автор: Анатолий (Киев)   (23.07.2008 в 10:48)   личное сообщение
 
 


.Filter = "[поле4] between " & Format(Me!text1,"\#MM\/DD\/YYYY\#") & " and " & Format(Me!text2,"\#MM\/DD\/YYYY\#") 
или
.Filter = "[поле4] between " & Forms![Forma1]![text1] & " and " & Forms![Forma1]![text2]
или (только в Access)
.Filter = "[поле4] between " & CDbl(Me!text1) & " and " & CDbl(Me!text2) 

  Ответить  
 
 автор: Леон   (23.07.2008 в 14:09)   личное сообщение
 
 

Большое спасибо Анатолий! Первый предложенный вариант работает !!! Супер!!!

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