اضافه تاريخ اليوم عند اختيار كلمه مخصصه من قائمه منسدله

[Foush1982]

اضافه تاريخ اليوم عند اختيار كلمه مخصصه من قائمه منسدله 

او للتسهيل اخيار check box 

[Hamtoooo]

ك أبسط مثال 

Private Sub done_AfterUpdate()
If Me.done = True Then
Me.date_done = Date()
Else
Me.date_done = ""
End If
End Sub

 

المرفق

ch.accdb