المساعدة في اضافة حقل تاريخ المستند الى كود VBA

[حربي العنزي]

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

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

ولكني قمت باضافة حقل تاريخ المستند الى الكود اصبح لايعمل كيف هي طريقة اضافة حقل نوعه تاريخ ووقت الى هذا الكود وهذا البرنامج في المرفقات 

Private Sub Mostnd_Num_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Daleel_Calc", "TBL2", "Daleel_Calc=form!Daleel_Calc and Type=form!Type and Mostnd_Num=form!Mostnd_Num and Mostnd_Date=#form!Mostnd_Date#")) Then
Undo
Beep
MsgBox ("áÇíãßä ÇÏÎÇá åÐÇ ÇáÞíÏ áÇäå ãÏÎá ãÓÈÞÇ"), vbCritical, "ÊäÈíå"
End If
End Sub

 

 

Prog24.26.rar

[ابوخليل]

الاضافة ستكون بنفس التنسيق السابق

مشكلتك في ان الحدث يتم قبل كتابة التاريخ

لذا قدمت كتابة التاريخ  ليكون رقم المستند هو الاخير

تفضل

Prog27.rar

[حربي العنزي]

استاذي الفاضل ابو خليل السلام عليكم ورحمة الله وبركاته

نعم هذا هو المطلوب تماما 

ربي يحميك انت وعائلتك الكريمة من كل سوء يارب شكرا جزيلا لك وجزاك الله جل وعلا كل الخير يارب