Сохранение даты

[alco84]

Добрый день Евгений появился такой вопрос

CurrentDb.Execute "UPDATE D1601H SET ChangeDate=Date(), ChangeTime=Time(), Builder=" & Pg5Builder & ", BuilderContract=" & Pg5DocNum & ", PlanBD=" & Pg5PlanBD & ",PlanED=" & Pg5PlanED & ", FactBD=" & Pg5FactBD & ", FactED=" & Pg5FactED & ", PlanManDays=" & Pg5PlanManDays & ", FactManDays=" & Pg5FactManDays & " WHERE DocCode=" & ProjectsPg1!DocCode & ";"

Ругается на эти поля там находятся даты в формате дд.мм.гггг

[Teslenko_EA]

Здравствуйте alco84.
вариантов решения Вашей "проблемы" может быть много, один из них размещение значение даты в конструкции запроса предварительно приведя её к формату даты применяемому в SQL MS Access - #m/d/yyyy#
формирование строки может быть таким:
... & ",PlanED=#" & Month(Pg5PlanED) & "/" & day(Pg5PlanED) & "/" & year(Pg5PlanED) & "# , " & ...
Вы наверное увидели, SQL MS Access прекрасно понимает VBA функции (..ChangeDate=Date()..), создав собственную функцию возвращающую данные Date:

Function toDate(v) as date
    toDate = CDate(v)
End Function

измененный подобным образом запрос:
...PlanED=toDate(Pg5PlanED), FactBD=toDate(Pg5FactBD), FactED=toDate(Pg5FactED) ...
"скушает" все значения переменных.
Конечно для уменьшения нагрузки на ядро JET, желательно не помещать в текст SQL конструкции функции VBA,
но сегодня MS Access прекрасно справляется с такими задачами.
Евгений.
P.S. Ваше обращение не к участникам форума, если хотите обратиться к участнику форума персонально, создавайте Личное сообщение

[alco84]

Огромное спасибо Евгений за подробный ответ я это все провернул через рекордсет но теперь знаю как сделать и таким образом.
P.S. Хорошо

[Master_Fatum]

Доброго времени суток ув. программисты! У меня проблема такого характера и прошу у вас помощи! Кусок кода:

Private Sub Form_Load()
Dim segodn As Date
segodn = Date
If segodn > 1 / 1 / 2012 Then
MsgBox "***. "
End If
End Sub
Но у меня выскакивает сообщение MsgBox при любом системном времени и дате! Что у меня не так? За ранее благодарен!

[Abrakadabra]

Сообщение от Master_Fatum

Что у меня не так?

В кавычки указанную дату заключите..

[Teslenko_EA]

Здравствуйте Master_Fatum.
Ваше посещение форума первое, Вы разместили свой вопрос на "чужой ветке", очевидно Вы не знали потому информирую - для нового вопроса необходимо создавать новую, собственную(!) тему.
Евгений.