| |
|
|
| | Хочется, чтобы условия для фильтра после нажатия на кнопку брал из текстовых окошек или списков с формы, соответсвенно пишу так как ниже. Каждый раз выскакивает окошко для ввода. Подробного описания синтаксиса .Filter не нашел, подскажите как правильно сделать?
Private Sub bb_2_Click()
DoCmd.OpenReport "report_1", acViewPreview
Set myrep = Reports("report_1")
myrep.Filter = "date>=pole_c.value And date<=pole_do.value "
myrep.FilterOn = True
End Sub
Access2003 | |
| |
| |
| |
|
|
| | на мой взгляд, лучше использовать открытие отчета с фильтром чем накладывать фильтр на открытый отчет
см. help по DoCmd.OpenReport
как-то примерно так
docmd.OpenReport "report_1",acViewPreview,,"date>=" & pole_c.value & " And date<= " & pole_do.value
Рекомендую СРОЧНО переименовать поле date | |
| |
| |
| |
|
|
| | Не работает=( Счас будем глядеть, где лишние кавычки или что там
Угу, переименую. Поле с именем IN мне уже крови попртило. | |
| |
| |
| |
|
|
| | Вы конечно это знаете, но на всякий случай напомню...
Из хелпа:
символы дат должны вводиться в американском формате, даже если используется неамериканская версия ядра базы данных Jet. Например, дата 10 мая 1996 года записывается в России как 10.05.94, а в США как 5/10/94. Обязательно заключите даты в символы "решетки" (#)
|
| |
| |
| |
| |
|
|
| | Алексей, 
GoodBus, см
http://hiprog.com/forum/read.php?id_forum=1&id_theme=5113&page=1
там похожее условие | |
| |
| |
| |
|
|
| | все равно выскакивают окошки для ввода, никак не хочет брать данные из текстбоксов. | |
| |
| |
| |
|
|
| | поля pole_c и pole_do находятсяв той же форме к которой нажимается кнопка открывающая отчет? | |
| |
| |
|
|
| |
|
|
| | me!pole_c.value
me!pole_do.value | |
| |
| |
|
|
| |
|
|
| | проверьте:
- поля которые используются в фильтре находятся в той же форме что и код вызывающий открытие отчета
- в источника данных отчета нет никаких ссылок на поля других форм
- имена полей в вызове отчета совпадают с их названием в форме
- поле которое используется для фильрации (date) есть в источника данных отчета
если все правильно - должно работать
если не работает дайте кусок базы | |
| |
| |
|
|
| |
|
|
| | в источнике записей отчета (т.е. в таблице) нет поля Date
если вы его уже переименовали и это поле DATA_IN
то на кнопку вызова отчета напишите:
DoCmd.OpenReport "report_1", acViewPreview, , "[DATE_IN]>=" & Format(pole_c.Value, "\#mm\/dd\/yyyy\#") & " And [DATE_IN]<= " & Format(pole_do.Value, "\#mm\/dd\/yyyy\#") | |
| |
| |
| |
|
|
| | Благодарю= ) Работает= ) А как сделать, чтобы еще в выпадающем списке уникальные были значения? Он есть там на форме | |
| |
| |
| |
|
|
| | В свойстве запроса на этот уникальный список. (Уникальные значения - Да). | |
| |
| |
