Taher DZ

تم الحل والحمد لله بارك الله فيكم اساتذتي الكرام وربي يحفظكم ورمضان كريم للجميع

قبل تعديل معيار الاستعلام كانت عادي وكان المشكل على مااظن في جدولي الذي يحتوي على اكثر من 3000 سجل ولكن بعد التعديل جربت اكثر من مرة ويفيدك بانه " تم الاقتطاع " بالرغم من انه لايوجد اقتطاع عندما تذهب للجدول وترى اقتطاعات 2026 لشهر مارس Inkhirat معدومة

لماذ عندما تحذف السجلات الجديدة وتعيد الاقتطاع للتجربة "لا يسمح لك" واذا نسخت جدول جديد بدون اقتطاع وتقوم بتنفيذ الاقتطاع "فلا يسمح لك" ماسر هذه المشكلة في الكود ؟ ملاحظة : اذا تم الاقتطاع مرة واحدة فلا يسمح مرى اخرى ابدا

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

يمكن يوجد موظفين احيلو على التقاعد وتمت مكاتبة ارقامهم 0 في الجدول Tbl_Loans خلال السنوات القديمة 2008 الى 2011 اليس هذا سببا للمشكلة

استاذ لقد نسخت لك الجدول tbl_LOANS كاملا في مرفقك حاول معرفة اين المشكلة الان يقلك تم الاقتطاع ولم يتم عدم الاقتطاع12.rar

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

استاذي الكريم نسخت الفورم والوحدة النمطية في ملفي الاصلي فلم يتم ما اشرت له علما ان ملفي الاصلي به منخرطين دفع مبلغ 3000.00 خلال شهر جانفي فقط وعند الرجوع الى ملفك المعدل وقمت بحذف السجلات الجديدة المشار اليها بالأحمر فظهر لي مشكل عند التنفيذ من جديد وان شئت جرب انت واحدف وعاود التنفيذ

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

شكرا استاذ على التعديل السؤال كيف لي ان اقتتطع لشهر مارس او بالاحرى اين اكتب الشهر من غير تغيبر تاريخ الجهاز

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

السلام عليكم استاذ ابوخليل اقترب شهر مارس وطلب مني اقتطاع الانخراط في نظري ان الكود معدل 100% ولكن وقع فيه مشكل اي عند التنفيد يظهر ميساج ويقلك انه سبق الاقتطاع لهذا الشهر بالرغم انه يوجد سجل واحد ووحيد به الاقتطاع في جدول Tbl_Loans فلم يكمل الباقي مالسبب ! علما اني غيرت على الكود IF rxo . RecordCount = 0 فجعلتها يساوي 1 فتم اقتطاع للشخص الواحد حوالي 9 مرات واخر 5 مرات واخر 4 وووووو خلال شهر 3 فمالمشكلة ? عدم الاقتطاع 9.rar

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

نقلتها سابقا ولكن ما اشتغلت ولكن عندما وقفت Sleep اشتغل الكود بصفة عادية

بوركت استاذ على تعبك ولكن عندي مشكلة في تنفيد البروجرسبار ماعرفت اين تكمن كما في الصورة الرجاء التعديل على المرفق 2026.rar

لم اعرف بالضبط اين تم التعديل وزد على ذلك حتى البروجرسبار لا يظهر تقدمه اثناء عملية فتح ملف الورد خطوة بخطوة بل يظهر كليا بنسبة 100 % بعد فتح وغلف الملف ورد

شكرا استاذ ظريقة سهلة جدا ونقلت القيم لأماكنها المخصصة في الورد كما صمم لها ملاحظة : احببت طريقة ProgressBar فوجدت بها مشكلة عند الصورة

بقيت مشاكل في النقل بالترتيب انظر المرفق استاذ نقل ورد.rar

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

عملت كل ما قلته لي استاذ ولكن لا اعرف اين المشكلة يمكن تذبذبت افكاري اصبح الكود لا ينقل القيم اصلا اي رجعنا لنقطة الصفر وهل استغنى عن هذا Dim Objwrd As Object Sub OpenClsword(Docfile As String) On Error Resume Next Dim GetObjwrd As Object Dim ClsObjwrd As Object If Not IsFileOpen(Docfile) Then Set Objwrd = CreateObject("Word.Application") Objwrd.Documents.Open (Docfile) Objwrd.Visible = True ' Me.co1.Caption = "أغلاق وورد " Exit Sub End If Set GetObjwrd = GetObject(, "Word.Application") Set ClsObjwrd = GetObjwrd.Documents.Open(Docfile) GetObjwrd.Application.DisplayAlerts = False If GetObjwrd.ActiveDocument.Saved = True Then ClsObjwrd.Close GetObjwrd.Quit Else If MsgBox("هل تريد حفظ المستند", _ vbQuestion + vbYesNo, _ "حفظ المستند") = vbYes Then ClsObjwrd.Close GetObjwrd.Quit Else GetObjwrd.ActiveDocument.Saved = True ClsObjwrd.Close GetObjwrd.Quit End If End If Set Objwrd = Nothing Set GetObjwrd = Nothing Set ClsObjwrd = Nothing 'Me.co1.Caption = "فتح وورد " End Sub Function IsFileOpen(strFile As String) As Boolean Dim i As Integer i = FreeFile If Dir(strFile) = "" Then IsFileOpen = False: Exit Function Err = 0 On Error Resume Next Open strFile For Binary Access Read Lock Read Write As #i If Err Then IsFileOpen = True Close #i End Function 2025.rar

اي مرفق تقصد استاذ لكي اطلع عليه

فكرة استاذ وكيف لي ان انفذها

هل من شيء يضاف الى الكود يمنع التكرار عند الدخول مرة ثانية او ثالثة اي لاينقل المبلغ مرة ثانية الا اذا كان فيه تعديل يقوم بتعديله واذا لم يكن يتركه على حاله

اساتدتي بقيت لي لخبطة في بعض نقل القيم ارجو التعديل اذا امكن كما في الصورتين علما ان الصحيح مكتوب يدويا للمقارنة وهل يمكن انشاء الجدول تلقائيا بمجرد الفتح من اكسس واستنناء المبالغ المعدومة نقل ورد.rar

شكرا استاذ ربي يحفظك