Нужна помощь! (продолжение)

Function СрСпис()
Interval = "d"
FirstDate=DateValue(#1/1/2006#)
While Now() > FirstDate
СрСпис = DCount ("[Фамилия]", "Табл1", "[Дата постановки] < " & FirstDate &" And [Дата снятия] Is Null ")
Число = Число + СрСпис
FirstDate = DateAdd(Interval, 1, FirstDate)
Wend
End Function

Сделал как Вы предлагаете, но:

Во первых кавычки перед и после & FirstDate & в DCount воспринимаются как приглашение к заданию условия.

Во вторых если даже дату в это место поставить насильно, то она воспринимается только в формате dd/mm/yy, и ни как не хочет в dd.mm.yy т.е. разделитель обязательно / , а как в таком случае задать в FirstDate такой разделитель?, с помощью Format тоже получается точка.

И заодно ответьте как в VB получить значение (для использования его в др. форме) закрытой формы, я понимаю, что из таблицы, но что-то не получается.
Например в одной форме я задаю название района в именительном падеже, а в др. форме мне это название уже нужно в родительном и дательном падежах (с изменением падежей проблем нет, но значение именительного падежа получить не могу. Только когда открыта соответствующая форма, а это не нужно)

0

СрСпис = DCount ("[Фамилия]", "Табл1", "[Дата постановки] < " & FirstDate &" And [Дата снятия] Is Null ")
После второго амперсанта (&) перед кавычками - обязателен пробел
Работа с датами http://www.sql.ru/faq/faq_topic.aspx?fid=157 Пункт 3
С закрытой формы - значение (ИХМО) никак, из таблицы, смотреть в сторону
DLookUp()

0

Сообщение от Ирча СрСпис = DCount ("[Фамилия]", "Табл1", "[Дата постановки] < " & FirstDate &" And [Дата снятия] Is Null ") После второго амперсанта (&) перед кавычками - обязателен пробел Работа с датами http://www.sql.ru/faq/faq_topic.aspx?fid=157 Пункт 3 С закрытой формы - значение (ИХМО) никак, из таблицы, смотреть в сторону DLookUp()

Благодарю за помощь

0

Есть в Аксесс такая суперчудесная функция, которой я всегда пользуюсь, когда динамически создаю условия с многоликими типами вроде даты BuildCriteria, посмотрите справку, но пользоваться ей нужно кажется так: чтобы получить строку

... where [Дата постановки]<[правильно записаная дата]

, делается

"... where " & BuildCriteria("Дата постановки",dbdate,"<" & FirstDate)

чуть громоздко, зато вернет стопроцентно синтаксически правильную строку. Аналогично с DCount.

DCount ("[Фамилия]", "Табл1", BuildCriteria("Дата постановки",dbdate,"<" & FirstDate) & " And [Дата снятия] Is Null ")

0