в поле тип данных 
Дата/время Краткий формат даты
если щёлкнуть мышей на нём, то имеем ещё 
дополнительно часы:минуты:секунды
 30 . 08 . 05   15 : 12 : 50 
обычно в виде DD:MM:YY
 30 . 08 . 05  
Как избавиться от 
Дополнительных 
часы:минуты:секунды ?

Для решения проблемы использованы варианты синтаксиса в форме
 1 .задать inputmask =  00 . 00 . 00 
 2 .=Format([d];"dd.mm.yyyy")
 3 .=Day([d]) & "." & Month([d]) & "." & Year([d])
 4 .=Day([VBA.DATE()]) "&" . "&" Month([VBA.DATE()]) "&" . "&" Year([VBA.DATE()])

"=D"a"y([VB"A.\DA"TE()]) & "." & Month([VB"A.\DA"TE()]) & "." & Ye"a"r([VB"A.\DA"TE()])"
 5 .Можно попробовать округлить дату до целых. Cdate(Round(ПолеСДатой))
К нижепоказанному виду преобразована строка
Access'ом
\=C\da"te(Int(D"a"te"C"onfinement))"
исходная строка такова:
Cdate(Int(DateConfinement))
где DateConfinement
имя поля в подчинённой форме