تحديث الدرجة الاحدث في التاريخ

[ابوصلاح]

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

في هذا المرفق  وهو عبارة عن برنامج للموظفين  به فورم ادخال وتعديل البيانات من خلال النموذج انتقل الي نموذج اخر هو نموذج الدرجات اريد عندما اضيف درجة جديدة للموظف يتم التحديف في جدول البيانات المسمي    (tbl_bianat_mfrd)من جدول (tbl_daragass)  يتم التحديث بشرط التاريخ الحديث  انا عملت تحديث بدالة first لكنها لم تنجح معي وتعطيني تحديث لموظف واحد اي يتم التحديث من السجل الاول لكن لموظف واحد  اما الموظف الثاني لا يتم التحديث 

برنامج العاملين.rar

[أبوبسمله]

وعليكم السلام اخى @ابوصلاح

اتفضل لعله ما تريد تم انشاء استعلام تحديث للتحديث باخر درجه وتاريخ فالجدول tbl_bianat لكل id 

UPDATE tbl_bianat SET tbl_bianat.darga = DLast("daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]), tbl_bianat.date_draga = DLast("date_daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]);

شغل النموذج frm_bianat_mfrd واضغط زر التحديث لاخر تاريخ

جرب ووافنا بالنتيجه

بالتوفيق

برنامج العاملين.accdb

[obaid70]

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

اخي الفلاحجي دائما يسبقني الى فعل الخير

على كلا الحمد لله انه يوجد اكثر من حل واكثر من طريقة

هذا حسب ما فهمت ان لم اكن قد اصبت نتناقش حتى نصل الى ما تريد

برنامج العاملين2.accdb

[أبوبسمله]

36 دقائق مضت, obaid70 said:

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

اخي الفلاحجي دائما يسبقني الى فعل الخير

على كلا الحمد لله انه يوجد اكثر من حل واكثر من طريقة

هذا حسب ما فهمت ان لم اكن قد اصبت نتناقش حتى نصل الى ما تريد

برنامج العاملين2.accdb 720 kB · 0 downloads

😀 دانا حتى مبعرفش اجرى اخى @obaid70 بارك الله فيك وجزاك الله خيرا واسال الله لك ولجميع اخوانى واساتذتى الجزاء الحسن

وبالتاكيد هناك حلول كثيره باذن الله واخواننا واساتذتنا لا يبخلون علينا

وان شاء الله نكون فهمنا صح وتعديلك ممتاز ورائع مثلك بارك الله فيك 💐

اخى عبيد اضف  DoCmd.RunCommand acCmdSaveRecord للحفظ قبل التحديث

Private Sub أمر20_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "qq"
End Sub

بالتوفيق

[obaid70]

حفظكم الله اخي ابو بسمله واطال عمركم واحسن عملكم

مازلنا طلبة علم وكل يوم نتعلم شئ جديد منكم ومن الاخوة المبدعين في هذا المنتدى والهدف من محاولة ايجاد الحلول ومساعدة الاخرين هو رد الجميل لهذا المنتدى الذي تعلمت منه الكثير

فكل الحب والاحترام لكم ولكل الاساتذة والخبراء في هذا المنتدى الغالي على قلبي.

[ابوصلاح]

شكرا جزيلا اخي الفلاحجي علي سرعة الاستجابة بس النت مش عارف ايه حكايته بطئ جدا ولم استطع احمل المرفق  وتم نسخ الكود وجربته والحمد لله تماما وكنت عاوز اشوف حل اخي obaid70 ولم اتمكن من ذلك لكن شكرا جزيلا علي المشاركة وبارك الله فيكم جميعا