السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
في هذا البرنامج كود رائع عمله الاستاذ القدير ابو خليل الله يحفظه ويحميه من كل شر يارب وهو يعمل جيد جدا
ولكني قمت باضافة حقل تاريخ المستند الى الكود اصبح لايعمل كيف هي طريقة اضافة حقل نوعه تاريخ ووقت الى هذا الكود وهذا البرنامج في المرفقات
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