تفضل أخي
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
أنا متابع للتعلم من لمساتك السوبر كبيرة أستاذي @ابو جودي والشكر والامتنان لأستاذنا @ابوخليل الذي أتاح لنا هذه المحاضرة المكثفة لننهل من علمكم .
شكراً جزيلاً وتقديري وامتناني لكم أساتذتي ومعلميني .