ارجو مساعدتكم في كود "اخر تحديث"

[Radwan0]

السلام عليكم ورحمة الله وبركاته

 

عندي نموذج بيانات المرضى فيه حقل تاريخ باسم "اخر تحديث" lastupdate

هذا الحقل يتحدث في حال تم تغيير بيانات حثول اخرى مثل اسم المرض namepat وعنوان المريض addr وسبب الزيارة reson

كيف يمكنني كتابه كود للحقول الثلاثه عند تغيير البيانات يقوم بتحديث تاريخ في الحقل اخر تحديث

[ازهر عبد العزيز]

Me.lastupdate = Date

ضع في حدثث بعد التحديث للحقول الثلاثة

[Radwan0]

شكرا لك اخي الكريم

هذا الكود معروف عندي

مشكلتي ان عندي اكثر من حقل .. بحدود ال 30 حقل

لا يعقل ان اكتب الكود لكل حقل 

هل من طريقه اخرى ؟ 

[Moosak]

26 دقائق مضت, ازهر عبد العزيز said:

Me.lastupdate = Date

ضع في حدثث بعد التحديث للحقول الثلاثة

ضع هذا الكود في حدث عند وجود شوائب أو On Dirty  للنموذج هكذا :

Private Sub Form_Dirty(Cancel As Integer)
Me.lastupdate = Now
End Sub

وأفضل أن تستخدم Now بدل Date .. ليعطيك التاريخ والوقت

تم تعديل فبراير 28, 2022 بواسطه Moosak