الأخوة والأخوات الأعزّاء في المنتدى
السلام عليكم
في الملف المرفق توجد الدالة lock
أرجو من اهل الخبرة تعديل صيغتها بحيث عند أستدعاءها من قبل الماكرو lockR
الذي يتم اجراءه في القائمة المختصرة Page Design المنبثقة من التقريروالغرض منها اظهار رسالة الخطأ كما في الصورة المرفقة .
فعند تأييد هذه الرسالة يتم أقفال أخر سجل في النموذج الذي يعمل في الخلف وحسب الكود.
If MsgBox("The last Record will be locked !!!!!!!", vbQuestion + vbOKCancel, "Save") = vbOK Then
Forms![Record Lock]![Lock] = "5"أبو منتظر
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
بارك الله فيك اخي hema212006
ولكن عملية الطباعة لاتتم بعد النقر على OK في الرسالة
اعتقد أن الدالة تحتاج الى أمر أضافي يقوم بعملية الطبع ......
شكرً جزيلاً لك .
تم اضافة DoCmd.PrintOut قبل EndIf
الى كود الدالة فتمُّ المطلوب ... :P :P :P :P
وشكراً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
