وضع نتيجة تلقائية بعد التحديث

[حسن محمد]

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

لدي أربع حقول كالتالي :

1 - حقل تحرير وسرد مسمى الوردية (W1) .

2 - حقل توقيت مسمى الفترة الأولى (F1) وهو عبارة عن توقيت بداية الفترة .

3 - حقل توقيت مسمى الفترة الثانية (F2) وهو عبارة عن توقيت نهاية الفترة .

4 - حقل نصي مسمى ملاحظات ® .

لقد وضعت كود في حقل W1 بعد أن يتم إختيار الوردية يقوم بتوضع توقيت الوردية المختارة في الحقلين F1 و F2 ولكن لدي بعض الأحيان تعديل في التوقيت عن التوقيت الإفتراضي الذي وضعته في الكود عن الإختيار .

وأرغب عند تعديل (بعد الإنتهاء من التعديل) في حقل F2 عن التوقيت الإفتراضي يقوم بوضع التوقيت الجديد لحقلي F1 و F2 في حقل الملاحظات R .

وجزاكم الله خير .... والمثال مرفق على الرابط أدناه .

رابط المثال

[الدكتور خضر الرجبي]

السلام عليكم

أخي حسن محمد ، بارك الله فيك

الحل هو في حدث بعد التحديث للفترة الثانية كما يلي :

Private Sub f2_AfterUpdate()
Me.R = f1 & " - " & f2
End Sub

وإليك الحل في المرفق

مع الاحترام والتقدير

test_fix.rar