تفضل أخي أخر ماتوصلت اليه اقرأه جيداً ووافني بالرد .
DD447-2.rar
بالنسبة للمتطلبات التدريبية لمن أقل من 80% لابد أن نستدعيهم بفورم منقصل بعد نتيجة التقييم أنا بعمل على ذلك . المهم وافني بالسابق
تفضل أخي
Private Sub P_O_date_AfterUpdate()
If Not IsNull(Me.P_O_date) Then
Dim currentdate As Date
currentdate = DateValue(Me.P_O_date)
Me.P_O_date = currentdate + TimeValue(Format(Now, "hh:nn:ss AM/PM"))
End If
End Sub
أستاذ @سامر محمود زودت جدول احتياجات الموظف التدريبية وظفه كما شئت وطبعاً لك الحريه في أي زيادة أو إزالة بالبرنامج . وياليتك بعد الإنتهاء ترسل لنا ولأعضاء المنتدى النسخة النهائية .
DD447-1.rar
تفضل أخي المحاولة الثانية .
نصيحه اجعل أسماء الجداول والنماذج والتقارير وحقولهم باللغة الانجليزية وبدون فواصل بين الكلمات .
تم عمل استعلام وتم التحديث من خلالة. تفضل المرفق وجرب ووافني بالرد .
التاريخ-2.rar