всем привет
есть простейшая процедура (отрывок):

Private Sub Data_Exit(Cancel As Integer)
Dim Zavod As Integer
Dim LastData As Date
Zavod = DLookup("код_завода", "заводы")
LastData = DLast("[data]", "diap")
If IsNull(Me.Diametr) Then Me.Diametr = DLookup("diametr", "diap", "[2Weld] = false and [код_завода] = " & Zavod & " and [data] = " & LastData)

msgbox LastData дает корректное значение даты, однако при обработке процедуры вылетает ошибка (см. вложение), в которой видно, что дата обрезана.

http://www.sql.ru/forum/1263772/run-time-error-3075