LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Опять зап...
 Тема: Опять запарка
 
 15.06.2007 21:02:37
VDiman
8 сообщения


Тема: Опять запарка
В RecordSource меняю источник и в выраж. запр...
WHERE (((Сотр.Data) Between #6/18/2002# And #6/20/2002#)) ORDER BY ... не получается подставить переменные вместо дат.
Например D1 и D2


P.S. Раздел для новичков
Автор: VDiman от 18.06.2002 9:38:26 Источник ...
 15.06.2007 21:02:37
All
4316 сообщения
1-ый


RE: Опять запарка
Было, это связанно с американским форматом представления дат через / Если запустишь дибагер то увидишь, что при присваивании твоим переменным дат в них запихивается 6.18.2002 У меня тоже возникал такой вопрос и добрый человек посоветовал отработать так:

Public Function rusAmDate(Daterus As Variant)
Daterus = Format(Daterus, "MM:dd:yy")
Daterus = Left(Daterus, 2) & "/" & Mid(Daterus, 4, 2) & "/" & Right(Daterus, 2)
rusAmDate = Daterus
End Function




P.S. Раздел для новичков
Автор: Андрей от 0:00:00 Источник ...
 15.06.2007 21:02:37
VDiman
8 сообщения


RE: Спасибо Андрей, работает
Я ее поместил в конец модуля формы, она будет работать в других. Или мне ее куда-то в другое место...


P.S. Раздел для новичков
Автор: VDiman от 18.06.2002 10:55:27 Источник ...
 15.06.2007 21:02:37
SSY
6 сообщения


RE: Опять запарка
Надо поместить функцию в общий модуль.
И ещё я не понимаю, зачем так сложно. Достаточно

DateInSQLFormat = Format(DateInAccessFormat, "\#mm\/dd\/yy\#")




P.S. Раздел для новичков
Автор: SSY от 18.06.2002 11:51:51 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Опять зап...
ПоискПоиск  Список форумовСписок форумов  
right