aşağıdaki gibi de yazabilirsiniz. Önemli olan nokta
Forms!Form1!tarih.DefaultValue = "=" & d ifadesindeki "=" & d kısmının açılımının "=date() - 5" yada "=date() + 3" formatına dönüşmesidir
uyarı: dikkatli olmazsanız veri kaybı yaşayabilirsiniz
Kod:
d = Forms!Form1!Metin22
DoCmd.OpenForm "Form1", acDesign, , , , acHidden
Forms!Form1!tarih.DefaultValue = "=" & d
DoCmd.Close acForm, "Form1", acSaveYes
DoCmd.OpenForm "Form1"