مساعدة فى كتابة التاريخ فى حقل عند الكتابة بحقل اخر

السلام عليكم

===================

test.mdb

Private Sub halia_AfterUpdate()
If Not IsEmpty(Me.halia) And Me.halia <> "" Then
Me.date_1 = Now()
Else
Me.date_1 = ""
End If
End Sub

test.mdb

مع كامل الشكر ولكن اريد تطبيقع على نموذج enter من فضلكم وليس النموذج test ومحتاج التاريخ فقط دون الساعة

ولكم جزيل الشكر

اخى الكريم الحاليه هى فى النموذج الفرعى اما النموذج Enterلا يوجد به الحالية 

فى مثالى التاريخ غير مرتبط باى حدث وانما ياخذ قيمة اليوم تلقائى 

ثانيا التاريخ صيغته تاريخ فقط بدون الساعه