Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и фильтрЫ / 24 сообщений из 24, страница 1 из 1
27.04.2017, 13:02
    #39445379
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
Добрый день!

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



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

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

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

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

Естественно, поля не должны быть пустыми.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 15:45
    #39445548
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
Анатолий ( Киев ), спасибо. Ошибки нет, но и фильтр по дате не применяется.
Как думаете, что может быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 15:49
    #39445554
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
quickstar,
покажите DoCmd.OpenForm.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 15:50
    #39445556
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
quickstar, мне кажется для " AND ДатаЗанятия=" тоже формат даты нужно задать.
Так как они оба в базе хранятся по нашему Российскому формату. ТОлько как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 15:51
    #39445559
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
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, 16:48
    #39445605
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
Сделайте вот так:
Код: 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, 17:11
    #39445632
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
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:13
    #39445637
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
вообще на этом примере я хочу научиться 2,3,4 фильтра применять, но пока не сработали полученные знания на другом параметре.
что не так с временем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 17:20
    #39445644
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
quickstar,
не надо второй раз открывать форму(если поле время на форме ЗанятиеUp)-достаточно сменить источник
ЗанятиеUp-использование в имени русских и английских символов есть не хорошо
посмотрите:(если будут вопросы-отвечу)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 17:24
    #39445647
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
это более "по взрослому":
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 17:41
    #39445663
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
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:59
    #39445671
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
quickstar,
а так:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 18:10
    #39445682
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
проверил на другом компе-все ОК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2017, 18:12
    #39445685
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
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:53
    #39445708
quickstar
quickstar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DoCmd.OpenForm и фильтрЫ
О чудо чудное!!! о диво дивное!!!
Сам дошел)
Верю кому-то так же пригодится

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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и фильтрЫ / 24 сообщений из 24, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 163ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612500]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 12ms
total:  163ms
x
x
Закрыть


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