Taher DZ قام بنشر الجمعة at 18:07 قام بنشر الجمعة at 18:07 السلام عليكم لقد تم التعديل من طرف احد الاخوة جزاه الله كل خير على تعبه ولكن ظهر هذا الميساج الذي يوحي بوجود خطأ رغم محاولاته ولكن لم يفلح ارجو من الاخوة معالجة ذلك وشكرا لكم اقتطاع مرة واحدة فقط 2025-1.rar
kkhalifa1960 قام بنشر الجمعة at 19:23 قام بنشر الجمعة at 19:23 لم يظهر الخطأ أو انك لم ترسل المرفق كامل وبأي حدث .!!!!
Taher DZ قام بنشر الجمعة at 19:40 الكاتب قام بنشر الجمعة at 19:40 12 دقائق مضت, kkhalifa1960 said: لم يظهر الخطأ أو انك لم ترسل المرفق كامل وبأي حدث .!!!! عند الدخول الى فورم FrmTransfer والحدث عند تحميل Private Sub Form_Load() txtMonth = Date txtMonth0 = Date txtMonth1 = Date txtMonth2 = Date Call txtMonth1_AfterUpdate Call NormalizeMonth Call cmd_Pay_installments_Click End Sub عند استدعاء الاخيرة Private Sub cmd_Pay_installments_Click()
kkhalifa1960 قام بنشر الجمعة at 20:05 قام بنشر الجمعة at 20:05 طالع قائمة أزرار النموذج لايوجد بينهم هذا الزر .
Taher DZ قام بنشر الجمعة at 20:12 الكاتب قام بنشر الجمعة at 20:12 (معدل) 32 دقائق مضت, kkhalifa1960 said: طالع قائمة أزرار النموذج لايوجد بينهم هذا الزر . نعم لا يوجد زر وانما عند دخول الفورم مباشرة والمشكلة في شهري 3و7 التي تخص الانخراط و للعلم انت جربت شهر 12 يدخل عادي بدون مشاكل انظر هذا الجزء من الكود '=========================================================== ' الانخراط — مارس أو يوليو فقط '=========================================================== If Month(CurrMonth) = 3 Or Month(CurrMonth) = 7 Then Dim db As DAO.Database Dim rstE As DAO.Recordset Dim totalPaid As Double Dim EmpID As String Set db = CurrentDb Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset) If Not rstE.EOF Then rstE.MoveFirst Do Until rstE.EOF EmpID = rstE!EmployeeID ' Text field ' منع التكرار داخل نفس الشهر If DCount("*", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & _ "' AND Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") > 0 Then GoTo SkipInkhirat End If ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & "'"), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If '=========================================================== ' ?? إصلاح خطأ 3464 — السطر المعدل فقط '=========================================================== Set rst = db.OpenRecordset("tbl_Loans", dbOpenDynaset) rst.FindFirst "[Loan_ID]=0 AND [EmployeeID]='" & rstE!EmployeeID & _ "' AND [Payment_Month]=#" & Format(CurrMonth, "mm/dd/yyyy") & "#" '=========================================================== If rst.NoMatch Then rst.AddNew rst!EmployeeID = EmpID rst!Payment_Month = CurrMonth rst!Payment_Made = 1500 rst!Loan_Type = "Inkhirat" rst!Loan_ID = 0 rst!sadad = 1500 rst!Loan_Remise = 0 rst!Nr = rstE!Nr rst!wada3 = "تم الإنخراط" rst!Remarks = "إقتطاع انخراط شهر " & Month(CurrMonth) & "/" & Year(CurrMonth) rst!annee = Year(CurrMonth) rst.Update TotalLoanInkhirat = TotalLoanInkhirat + 1500 End If rst.Close SkipInkhirat: rstE.MoveNext Loop rstE.Close db.Close End If تم تعديل الجمعة at 20:38 بواسطه Taher DZ
kkhalifa1960 قام بنشر الجمعة at 20:24 قام بنشر الجمعة at 20:24 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Taher DZ قام بنشر الجمعة at 20:36 الكاتب قام بنشر الجمعة at 20:36 8 دقائق مضت, kkhalifa1960 said: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! مالك استاذ خليفة ؟ لقد افرحتني لما ظهر لي ميساج بان فيه رد منك ولكن لما دخلت الموضوع وجدت تعجبا 😢
Taher DZ قام بنشر الجمعة at 20:56 الكاتب قام بنشر الجمعة at 20:56 (معدل) استاذ kkhalifa1960 48 دقائق مضت, kkhalifa1960 said: !!!!!!! انظر المرفق حتى لا تغير تاريخ جهازك الى شهر 3 و 7 تم تغير اقتطاعات الانخراط الى شهري 11 و 12 لكي يتسنى لك وللأساتذة رؤية ميساج الخطأ اقتطاع مرة واحدة فقط 2025-1.rar تم تعديل الجمعة at 21:13 بواسطه Taher DZ
kkhalifa1960 قام بنشر السبت at 04:06 قام بنشر السبت at 04:06 تفضل استاذ @Taher DZ اليك الخطأ بالشرح والمرفق بعد التعديل .جرب ووافني بالرد اقتطاع مرة واحدة فقط 2025-1 (1).rar
Taher DZ قام بنشر السبت at 06:56 الكاتب قام بنشر السبت at 06:56 2 ساعات مضت, kkhalifa1960 said: والمرفق بعد التعديل .جرب ووافني بالرد اولا : يوجد مرفقين ايهما الذي تم التعديل عليه هذا من جهة ومن جهة اخرى تفطنت لماهو في الشرح ليلة البارحة اي جعلت حقل Nr رقمي ولكن لاحياة لمن تنادي بقيت دار لقمان على حالها
kkhalifa1960 قام بنشر السبت at 07:16 قام بنشر السبت at 07:16 اعتذار ارفقط المرفق الخطأ تفضل المرفق ومجرب كما بالشرح . اقتطاع مرة واحدة فقط 2025-1.rar
Taher DZ قام بنشر السبت at 07:55 الكاتب قام بنشر السبت at 07:55 (معدل) 40 دقائق مضت, kkhalifa1960 said: اعتذار ارفقط المرفق الخطأ تفضل المرفق ومجرب كما بالشرح . شكرا استاذ لقد عالجت لي مشكل ظهور الميساج ولكن يبدو ان تعديل الاخ لم يكن في محله مشكلتي استاذ : احبذ التعديل في اقتطاعات الانخراط في شهري 3 و 7 يكون مرة واحدة فقط اي عند اظافة عامل جديد او غيره لا يقتطع له بعد عند الرجوع الى الشهرين المعنيين ملاحظة : جرب العامل رقم 1 واجغلة موظف والرقم Nr=1 وادخل على الفورم FrmTransfer خلال شهر 3 وانظر يقطتع له مبلغ 1500 تم تعديل السبت at 07:56 بواسطه Taher DZ
kkhalifa1960 قام بنشر السبت at 08:09 قام بنشر السبت at 08:09 11 دقائق مضت, Taher DZ said: ولكن يبدو ان تعديل الاخ لم يكن في محله أنا سويت طلبك حسب ماطلبت بالمشاركة وأخذ مني وقت وجهد .... ويكون هذا الرد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Taher DZ قام بنشر السبت at 10:08 الكاتب قام بنشر السبت at 10:08 1 ساعه مضت, kkhalifa1960 said: ويكون هذا الرد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ياسيدي يااستاذي العزيز "شعارك خير الناس انفعهم للناس" ياريت لاتبخل علينا بما اتاك الله من علم
ابوخليل قام بنشر السبت at 15:27 قام بنشر السبت at 15:27 8 ساعات مضت, Taher DZ said: ومن جهة اخرى تفطنت لماهو في الشرح ليلة البارحة اي جعلت حقل Nr رقمي ولكن لاحياة لمن تنادي بقيت دار لقمان على حالها مشاركة مع اخي خليفة ههههههههه ما لها دار لقمان ؟؟ اخي طاهر انت وجدت الجزء الرئيسي في المشكلة .. وهو حقل Nr فضلا اقرأ التالي بتمعن كلمة كلمة : في الاصل وبغض النظر عن كون نوع الحقل نصي وهو يحمل قيمة رقمية 1 ،2 ، 3 الخ .. هنا يمكن تغيير النوع من الجدول ويمكن ايضا تغيير النوع داخل الكود فمثلا اذا رقم 8 موجود في حقل نصي يمكننا تحويله داخل الكود الى قيمة رقمية . ولكن في جدولك الحقل يحمل قيمة نصية صريحة فرقم الوظيفة (متقاعد) الظاهر = 8 ولكن هذه الـــ 8 مجرد صورة وليست قيمة فالقيمة التي يحملها الحقل هي متقاعد هنا يتضح لك الخطأ بوضع الشرط داخل الكود : >= Nr 5 في الاصل غير موجود علاوة على انك تقارن قيمة نصية بصيغة خاصة بالارقام
Taher DZ قام بنشر السبت at 16:24 الكاتب قام بنشر السبت at 16:24 (معدل) منذ ساعه, ابوخليل said: فضلا اقرأ التالي بتمعن كلمة كلمة : شكرا استاذ على التعقيب فعلا كما اشرت وانتهينا من هذه المشكلة العويصة ربي يبارك في كل وضع بصمتة في الموضوع 🙏 غدعلنا ان الاستاذ خليفه تطرق للتعديل بسيط داخل الكود عند الشرط 5>= Nr حسب مالاحظت لاني جربت ومافلحت لهذا قلت بقيت دار لقمان على حالها هههههههه تم تعديل السبت at 16:33 بواسطه Taher DZ
Taher DZ قام بنشر السبت at 16:33 الكاتب قام بنشر السبت at 16:33 منذ ساعه, ابوخليل said: ههههههههه ما لها دار لقمان 😂😂😂
منتصر الانسي قام بنشر بالامس في 18:48 قام بنشر بالامس في 18:48 جرب التعديل المرفق اقتطاع مرة واحدة فقط 2025-1.rar
Taher DZ قام بنشر بالامس في 19:24 الكاتب قام بنشر بالامس في 19:24 (معدل) 1 ساعه مضت, منتصر الانسي said: جرب التعديل المرفق شكرا استاذ منتصر على الاهتمام والتعديل هل التعديل مس القروض ايضا لاني صراحة دخلت على الجدول Tbl_Loans وبالخصوص المنخرط رقم 4 كما في الصورة وحدفت للتجريب المبلغ المقتطع 5000.00 الذي يخص تاريخ 2025/07/01 وارجعت تاريخ الجهاز الى شهر 7 فلم يكمل له اقتطاعه وقبل التعديل الاخير كان عادي لايخص القروض بل كان المطلوب التعديل على Loan_Type =Inkhirat او Loan_ID =0 فقط وزيد سبقت تاريخ الجهاز الى مارس 2026 لكي يقتطع لجميع المنخرطين مبلغ 1500.00 كما كان سابقا فظهر لي ميساج المفيد ان الكود لا يؤدي وظيفة بطريقة صحيحة تم تعديل بالامس في 20:33 بواسطه Taher DZ
ابوخليل قام بنشر منذ 9 ساعات قام بنشر منذ 9 ساعات السلام عليكم اخي طاهر انا ربما اختلف قليلا عن بقية اخوتي الخبراء والاعضاء هنا الغالب هنا يختصرون عليك وعليهم الوقت ويعطونك حل للمشكلة التي تواجهك مباشرة .. ولكن في بعض الاحيان المشكلة اذا لم تعالج من الاصل .. فإنها تولد مشكلات واخطاء تتبعها حينما استعرض مثالك لا يمكنني فهم آلية العمل : خذ ما دار في بالي : اولا لماذا الاقتطاع وتخصيصه شهري 3 و 7 فقط ... يجب ان نفهم لماذا؟ يجب ان يكون الجواب مقنع علما انه ومن خلال الجدول يوجد اقتطاعات في اشهر اخرى لا يخفى عليك . معظم .. بل كل .. عمليات القروض التي تخص العاملين والموظفين في كل الأنظمة يتم اقتطاعها من المرتب شهريا .. الى ان يتم تسديد كامل القرض مثلا اذا الموظف مطالب بتسديد 3000 دينار سنويا .. ستكون الحصة الشهرية 250 دينار تخصم من مرتبه آليا حتى لو هناك قروض اخرى يضاف استحقاقها الشهري في عمود يخصها .. والنتيجة ان الموظف يستلم مرتب شهري صافي بعد اقتطاع المستحق هنا العملية تكون انسيابية ولسنا بحاجة الى اكواد فقط استعلام واحد يقوم بالمهمة . ثانيا لاحظت ان نوع الوظيفة او رقمها يختلف من موظف الى آخر .. الى هنا صحيح ولكن حالاات الموظف تختلف فمسمى الوظيفة يجب ان يكون ثابتا ولا يتغير الا في حال الترقية .. وغالبا مسمى الوظيفة يرتبط فقط في المرتب الاساسي والعلاوات وانت جعلت الوظيفة حالاات يجب ان تكون الحالة في حقل منفصل لا دخل للوظيفة بها مثلا مدير توفي يبقى المسمى مدير ولكن الحالة متوفى وهنا تطبق المزايا والضوابط على الحالة وليس على مسمى الوظيفة ظهر لي هذا الخلل عندما غيرت الرقم في Nr من 1 الى 15 تحولت جميع السجلات الى 15 وهذا ايضا خطأ لأن الواجب ان ما سبق تسديده وقت حياته لا يتغير 1
Taher DZ قام بنشر منذ 7 ساعات الكاتب قام بنشر منذ 7 ساعات (معدل) وعليكم السلام شكرا استاذ على الاهتمام وساوافيك بما هو غامض لك وفق ملف Txt ومعذرة لاني اتصل من المبايل والكتابة صعبة جدا توضيح.rar تم تعديل منذ 7 ساعات بواسطه Taher DZ
ابوخليل قام بنشر منذ 7 ساعات قام بنشر منذ 7 ساعات اخي طاهر .. خذني على قد فهمي اريدك ترفع مرفق يكون الجدول الخاص بالاقتطاعات خالي اعتقد انه الجدول tbl_Loans كما اظن وتشرح لي بالخطوات اعمل ايه من خلال النموذج .. خطوة خطوة وصورة للنتيجة المفترض الحصول عليها 1
Taher DZ قام بنشر منذ 5 ساعات الكاتب قام بنشر منذ 5 ساعات منذ ساعه, ابوخليل said: وصورة للنتيجة المفترض الحصول عليها تفضل استاذ المرفق به الشرح والصورة والملف عدم الاقتطاع مبلغ الانخراط خلال شهر مارس2026.rar
ابوخليل قام بنشر منذ 4 ساعات قام بنشر منذ 4 ساعات اخي الكريم ذكرت انظر في الكود في فورم FrmTransfer1 بينما البرنامج يفتح على FrmTransfer والكود cmd_Pay_installments موجود في النموذجين لا اخفيك تهت .. اذا العمل على FrmTransfer1 لماذا FrmTransfer موجود ؟ اذا يوجد ازرار غير مهمة احذفها .. هذا مجرد مثال
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان