ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и фильтрЫ
24 сообщений из 24, страница 1 из 1
DoCmd.OpenForm и фильтрЫ
    #39445379
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Добрый день!

Форма открывается так:
Код: vbnet
1.
DoCmd.OpenForm "ЗанятиеUp", acNormal, , "ГрупповойНомер=" Me.ГрупповойНомер



Вопрос: как сделать двойную фильтрацию: и по Me.ГрупповойНомер, и Me.Дата?
...
Рейтинг: 0 / 0
27.04.2017, 13:02:51
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445385
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Ну типа
Код: vbnet
1.
2.
3.
4.
DoCmd.OpenForm FormName       := "ЗанятиеUp", _ 
               View           := acNormal, _
               WhereCondition := "ГрупповойНомер=" Me.ГрупповойНомер _
                               & " AND Дата=#" & Me.Дата & "#;"
...
Рейтинг: 0 / 0
27.04.2017, 13:10:14
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445432
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
маленькое добавление:
насчет Me.дата обязательно прочтите зто (про использование дат)
...
Рейтинг: 0 / 0
27.04.2017, 13:51:40
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445450
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Akina, спасибо. Пока не получается, access не принимает код (красным горит)
не понимаю почему?
...
Рейтинг: 0 / 0
27.04.2017, 14:11:54
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445451
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, прочел, но не понимаю как использовать (не программист по образованию)
понял только что ата должна на анг лад быть.
...
Рейтинг: 0 / 0
27.04.2017, 14:13:56
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445460
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
AkinaНу типа
Код: vbnet
1.
2.
3.
4.
DoCmd.OpenForm FormName       := "ЗанятиеUp", _ 
               View           := acNormal, _
               WhereCondition := "ГрупповойНомер=" Me.ГрупповойНомер _
                               & " AND Дата=#" & Me.Дата & "#;"

"ГрупповойНомер=" & Me.ГрупповойНомер
...
Рейтинг: 0 / 0
27.04.2017, 14:21:53
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445501
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Анатолий ( Киев ), пишет ошибка синтаксиса, пропущен оператор.

Подскажите, пожалуйста, в чем ошибка?

Код: vbnet
1.
2.
3.
4.
DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:="ГрупповойНомер=" & Me.ГрупповойНомер _
                               & """ AND ДатаЗанятия=#""" & Me.ДатаЗанятия & """#;"""
...
Рейтинг: 0 / 0
27.04.2017, 15:04:07
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445504
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
quickstar , откуда у Вас ТАКОЕ количество кавычек?
...
Рейтинг: 0 / 0
27.04.2017, 15:05:56
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445511
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Akina, прочитал рекомендации выше.
Даже без них ошибка.
...
Рейтинг: 0 / 0
27.04.2017, 15:13:41
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445528
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Код: vbnet
1.
2.
              WhereCondition:="ГрупповойНомер=" & Me.ГрупповойНомер _
                               & " AND ДатаЗанятия=" & Format(Me.ДатаЗанятия, "\#MM\/DD\/YYYY\#")

Естественно, поля не должны быть пустыми.
...
Рейтинг: 0 / 0
27.04.2017, 15:29:21
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445548
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Анатолий ( Киев ), спасибо. Ошибки нет, но и фильтр по дате не применяется.
Как думаете, что может быть?
...
Рейтинг: 0 / 0
27.04.2017, 15:45:47
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445554
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
покажите DoCmd.OpenForm.....
...
Рейтинг: 0 / 0
27.04.2017, 15:49:37
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445556
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
quickstar, мне кажется для " AND ДатаЗанятия=" тоже формат даты нужно задать.
Так как они оба в базе хранятся по нашему Российскому формату. ТОлько как это сделать?
...
Рейтинг: 0 / 0
27.04.2017, 15:50:06
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445559
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Время_DblClick(Cancel As Integer)

DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:="ГрупповойНомер=" & Me.ГрупповойНомер _
                               & " AND ДатаЗанятия=" & Format(Me.ДатаЗанятия, "\#MM\/DD\/YYYY\#")

Forms("ЗанятиеUp").SetFocus
End Sub
...
Рейтинг: 0 / 0
27.04.2017, 15:51:47
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445605
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Сделайте вот так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Время_DblClick(Cancel As Integer)

Dim temp As String
temp="ГрупповойНомер=" & Me.ГрупповойНомер & " AND ДатаЗанятия=" & Format(Me.ДатаЗанятия, "\#MM\/DD\/YYYY\#")

DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:=temp

Forms("ЗанятиеUp").SetFocus
End Sub


и покажите, что получается в переменной temp.
...
Рейтинг: 0 / 0
27.04.2017, 16:48:52
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445632
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Akina, не знаю как показать что полдучается в temp, но ВСЕ ЗАРАБОТАЛО!!! УРРА!!! Спасибо!!!


еще вопросик: установил время и стало опять на синтаксис ругаться

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Время_DblClick(Cancel As Integer)
Dim temp As String
temp = "ГрупповойНомер=" & Me.ГрупповойНомер & " AND Время=" & Me.Время
DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:=temp

Forms("ЗанятиеUp").SetFocus
End Sub
...
Рейтинг: 0 / 0
27.04.2017, 17:11:34
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445637
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
вообще на этом примере я хочу научиться 2,3,4 фильтра применять, но пока не сработали полученные знания на другом параметре.
что не так с временем?
...
Рейтинг: 0 / 0
27.04.2017, 17:13:03
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445644
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
не надо второй раз открывать форму(если поле время на форме ЗанятиеUp)-достаточно сменить источник
ЗанятиеUp-использование в имени русских и английских символов есть не хорошо
посмотрите:(если будут вопросы-отвечу)
...
Рейтинг: 0 / 0
27.04.2017, 17:20:44
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445647
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
это более "по взрослому":
...
Рейтинг: 0 / 0
27.04.2017, 17:24:40
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445663
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, второй раз не открывал. проверил.


второй файл не скачивается.
У меня вообще задача посмотреть кто входит в групповое занятие. В отчете строки по занятиям, а по двойному клику открываю форму группы для редактирования.

Me.RecordSource - такой способ я еще не знаю.

мне бы понять как в форму встроить два, три фильтра.

Например: фильтр по дате и времени. Свой вариант кода(не работает):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Время_DblClick(Cancel As Integer)
Dim temp As String
temp = "ГрупповойНомер=" & Me.ГрупповойНомер & " AND Время=" & Me.Время
DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:=temp

Forms("ЗанятиеUp").SetFocus
End Sub
...
Рейтинг: 0 / 0
27.04.2017, 17:41:04
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445671
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
а так:
...
Рейтинг: 0 / 0
27.04.2017, 17:59:30
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445682
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
проверил на другом компе-все ОК
...
Рейтинг: 0 / 0
27.04.2017, 18:10:46
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445685
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, так скачивается. Только я не нашел ответа на вопрос как открыть форму с фильтром по времени.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Время_DblClick(Cancel As Integer)
Dim temp As String
temp = "НомерЗанятия=" & Me.НомерЗанятия & " AND Время=" & Me.& Format(Me.Время, "#hh/\:mm/#")
DoCmd.OpenForm FormName:="ЗанятиеUp", _
               View:=acNormal, _
               WhereCondition:=temp

Forms("ÇàíÿòèåUp").SetFocus
End Sub
...
Рейтинг: 0 / 0
27.04.2017, 18:12:03
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и фильтрЫ
    #39445708
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
О чудо чудное!!! о диво дивное!!!
Сам дошел)
Верю кому-то так же пригодится

Private Sub Время_DblClick(Cancel As Integer)
Dim temp As String

temp = "Курс=" & Me.Курс & " AND Время=" & Format(Me.Время, "\#HH\:MM\#") & " AND ДатаЗанятия=" & Format(Me.ДатаЗанятия, "\#MM\/DD\/YYYY\#")

DoCmd.OpenForm FormName:="ЗанятиеUp", _
View:=acNormal, _
WhereCondition:=temp

Forms("ЗанятиеUp").SetFocus
End Sub
...
Рейтинг: 0 / 0
27.04.2017, 18:53:55
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и фильтрЫ
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=77&tid=1612500]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 54ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 80ms
get tp. blocked users:
 1ms
others: 261ms
total:  436ms
созд. / загр.: 436ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]