كل الانشطه

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

يعمل بدون مشكل ولكنه لم يقتطع مبلغ 1500.00 لاي منخرط كالعادة استثناءا عدم الاقتطاع مبلغ الانخراط خلال شهر مارس2026.rar

هذا يعمل 100% totalPaid = Nz(DSum("[Payment_Made]", "[tbl_Loans]", "[EmployeeID] =" & EmpID & "And [annee] <>" & Year(Date) & "and [Loan_ID] =0"), 0)

طيب انتظرني سافحص الكود لوحده خارج المنظومة

اسف قدمت وأخرت في المعيار يكون مثل هذا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID And "annee <> " & Year(Date)), 0) لعله يعمل .. المشكلة ان وجدت فهي في تقديم وتأخير علامة التنصيص

ظهر لي مشكل

لم اجد شرطا مناسبا قد يحقق المطلوب الا السنة جرب استبدل الكود بهذا فلعله يعمل .. اضفت ان السنة الحالية لا تساوي السنة الموجودة في الجدول totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID And "year(date)<> " & annee), 0) على اعتبار انك تعمل في سنة 2026

استاذي العزيز ابو خليل افهمني مليح وخلي نغلقو الموضوع ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If هذا الشطر من الكود يستنثي السجلات التي تحتوي على مبلغ 3000.00 دج خلال السنة اي لايضيف سجل اخر اريد التعديل عليه اذا كانت سنة جديدة يسمح الكود بالاضافة في حدود سجلين فقط وكل سجل بقيمة 1500.00

والله استاد غير تعبت كلما ارى ردا اقول الحمد لله تم الحل وعند دخولي الى الموضوع لم ارى مافرحت لأجله لاني عجزت كيف اوصل لكم الفكرة ياريت حد يساعدني ويعمل شيء المهم تؤدي الى حل للمشكلة وانا راض باي تغيير بارك الله فيكم

السلام عليكم اريد ان اطلب من الخبراء في الأوفيس نصحي او مساعدتي في هذا العمل. انا اعمل لدى مؤسسة سفريات كمنسق سفريات و مؤسستي تعمل كمقاول مستقل لدى شركة متوسطة، مهمتي هي كتالي عندما استلم كشف العمال المسافرين ليوم غد اقوم بتنسيقهم في (كشف الرحلات) بحسب المنطقة التي سوف يسافر أليها العامل، يتضمن الكشف رقم كل رحلة و اسم السائق و رقم السيارة و المنطقة التي سوف يسافر منها و المنطقة التي سوف يذهب إليها و نوع الرحلة هل هي اتجاه واحد او اتجاهين او رحلة ليوم كامل او رحلة ليوم كامل مع مبيت. بعدما انتهاء رحلات هذا اليوم و قبل انتهاء الدوام اقوم بأنشاء (فواتير يومية) لكل رحلة تحتوي على معلومات الرحلة كاملة. فأذا كانت لدي 17 رحله فأنني اقوم بعمل 17 فاتورة يومية لهذه الرحلات و اذا كانت لدي 12 رحلة أقوم بعمل 12 فاتورة يومية لهذه الرحلات و كهذا. و بعد الانتهاء من عمل الرحلات اليومية لهذا اليوم أقوم بكتابة جزء من تفاصيل هذه الرحلات في مستند يسمى (ملخص الرحلات) يضم هذا المستند كل رحلات الشهر الحالي من أوله و حتى آخر يوم. أقوم بتسجيل جميع الفواتير اليومية كل يوما بيومه بعد الانتهاء من انشاء الفواتير اليومية و مهمه هذا الملخص أنه يحتوي على مجموع مبالغ الرحلات اليومية خلال الشهر الحالي و عند الانتهاء من تعبئة تفاصيل فواتير الرحلات اليومية في آخر يوم في الشهر يظهر لي المبلغ النهائي لجميع هذه الرحلات التي حصلت في هذا الشهر. ثم و بعد تعبئة آخر الفواتير اليومية في ملخص الرحلات في آخر يوم في الشهر اقوم بعمل (الفاتورة الشهرية) للرحلات و اقدم هذه الفاتورة الشهري مع الفواتير اليومية التي حصلت خلال الشهر للشركة التي تعمل مؤسستي لديها بها، تحتوي الفاتورة الشهرية على المبلغ المستحق على الشركة مقابل جميع الرحلات التي حصلت خلال هذا الشهر. ما اطلبه هو انني ابحث عن طريقة لبرمجة هذه العملية التي اقوم بها ببرنامج مصغر بالأكسس او عن طريق اتممة هذه العمليات بواسطه دوال الاكسيل لتسهيل هذه العملية بسبب كثرة الرحلات و ضغط العمل و قلة الوقت الذي استطيع عمل هذه الفواتير اليومية في كل يوم. Trips List for 24-12-2025 Wednesday.docx Daily invoice trip no.1 24-12-2025.docx ‫Daily invoice trip no.2 24-12-2025.docx Trips ‫Summary 12-2025.xls ملخص سير العملية.docx

اخي العزيز انا لا اعرف اعمل الا على شيء انا افهمه العمل الذي امامي غامض .. فارجوا ان تعذرني لا اريدك ان تحزن فهذا هو فهمي قد اتمكن من مساعدتك لو اعطيتني قصة السجل كاملة من مولده وحتى يصل الى التقرير ما لون بالاحمر يدل على وجود اشياء غائبة يتم عملها منفصلة عن الجزء المرفق ................................. اعيد واكرر لو انا من صمم هذا العمل سأعمل على طريقة يفهمها اي مبرمج ومصمم وهي طريقة منطقية سهلة بدون اي تعقيد والتعديل عليها يسير +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ الطريقة : اذا دخل شهر3 من كل سنة .. في الفورم زر يعمل تصفية لمن يشمله هذا الاجراء .. يتم من خلاله الحاقهم في الجدول .. وزر آخر يتم اجراء الاقتطاع حسب ما نضعه من شروط ونكرر هذا الاجراء عند دخول شهر 7 ... اوغيره من الشهور للحالات الخاصة هنا يستحيل ظهور اي خطأ ... بمعنى انه يجب ان يكون لكل نوع من الأنواع عملياته الخاصة المنفصلة عن الاخرى الاقتطاع يتم تصفيته لوحده / القروض كذلك / ... الخ كل ذلك من خلال هذين الزرين وفورم واحد +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ اما مسألة كود واحد يقوم بجميع الاجراءات وآليا ايضا .. هذا يجب اعادة النظر فيه .. العجيب ان الكود يعمل عمل التقرير فيعرض رسالة احصائية . اكتب لك هذا وانا لم افهم بعد طريقة تحصيل المبالغ .. لأني لم افهم اصلا طريقة العمل على البرنامج

تفضل استاذ @Emad.85 المرفق بطلبك ووافني بالرد . Emad.85.rar

استاذ وجدت صعوبة في ارفاق الفيديو سوى بصيغة rar او mp4 https://k.top4top.io/m_364437txw1.mp4 عندما قمت بمسح مبلغ اقتطاع القرض للمنخرط رقم 4 خلال تاريخ 2025/12/01 وقمت بالدخول للنموذج لقد تحقق اعادة الاقتطاع من جديد ولكن عند الدخول بتاريخ 2026/03/01 تحقق اقتطاع الانخراط ولكن ليس للكل " اي منخرط عنده مبلغ 3000.00 من سنة 2025 استثناه الكود في سنة 2026 " .......... (1) مثلا المنخرط رقم 4 وكذا المنخرطين 256/261/290 استثناهم كما في (1) لم يقتطع لهم مبلغ الانخراط لسنة 2026 المقدر ب 1500.00 يفيد ان بان الكود لا يؤدي بواجبه مائة بالمئة وخاصة في شطره الاستنثناء هذا ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If

لا استاذ يمكن تعديل الاخ الي قبل هو سبب عدم اقتطاع الشهري للقروض بعدما كان يقتطع عادي والان بحكم خبرتكم لم تعرفو اين تكمن المشكلة بالرغم من وجود فورم FrmTransfer1 بقتطع عادي الم يتم التنسيق بينه وبين FrmTransfer الذي به المشكلة ديسمبر فعلا تم الاقتطاع يدويا لو غير تاريخ الجهاز الى شهر جانفي 2026 لأكتشفت المشكلة عند المنخرط رقم 4 او قمت بمسح المبلغ المقتطع لتاريخ 2025/12/01 وقمت بالدحول للفورم FrmTransfer ستجده يبقى فارغا اي الكود لم يقتطع المبلغ استاذ هذه السجلات تنشي من جديد خلال أشهر الاقتطاع فقط ولك دالة النموذج الثاني FrmTransfer1 كمثال اقتطاع

جرب هذا الحل تسجيل الطرمبات2.xlsx

انا لم أقم بتعديل أي شيئ كل ما قمت به هو تصحيح الكود الخاص بك كالتالي السطر الأول كان هكذا Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset) وكان يحتوي الأخطاء التالية - كنت تتعامل مع الحقل Nr في الجدول Employee على أنه حقل رقمي ولكنه حقل نصي - أعتقد أنك تظن أن هذا الحقل يحتفظ برقم الوظيفة إلا أنك مخطئ فهو يحتفظ بإسم الوظيفة والصورة التالية ستوضح لك ما أقصده مما سبق يتضح لنا أنه لن يتم تحقيق معيار التصفية Nr <= 5 لذلك قمت بتعديله إلى السطر التالي Set rstE = db.OpenRecordset("SELECT *,TblDetaché.Nr as NrE FROM Employee INNER JOIN TblDetaché ON Employee.detach = TblDetaché.detach WHERE (((TblDetaché.Nr) <= 5));", dbOpenDynaset) حيث سيتم ربط الجدول Employee مع الجدول TblDetaché وسنأخذ قيمة Nr من الجدول TblDetaché لأنه رقمي وقمنا بتسمية الحقل هذا بإسم NrE أما التعديلات التالية كلها تخص الحقل EmpID فأنت تتعامل معه كحقل نصي وهو حقل رقمي لذلك قمت بإزالة علامة الإقتباس المفردة التي قيل وبعد EmpID فمثلا 'تم تعديل هذه العبارة EmployeeID='" & EmpID & "' 'بهذه العبارة EmployeeID = " & EmpID & " اخر تعديل ونظرا لأنه وكما سبق توضيحه بخصوص الحقل Nr تم تعديل السطر التالي 'إستبدلنا هذا السطر rst!Nr = rstE!Nr 'بهذا السطر rst!Nr = rstE!NrE حتى يتم أخذ قيمة Nr من الحقل الذي قمنا بتسميته بالإسم NrE في جملة Sql أعلاه هذه هي كل التعديلات التي قمت بها فهل هذا سيؤثر على طريقة احتساب القروض؟

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

وعليكم السلام ورحمة الله وبركاته جرب الكود في الملف المرفق 1الجرد.xlsm

اشكرك جزيلا

السلام عليكم الاخوة الاعزاء الرجاء المساعده في ملف مرفق اريد ترحيل اكواد الاصناف الموجوده في المخزون (عمود O) رقم 1 يعني موجود واذا صفر يعني غير موجود اريد الترحيل من 3 صفحات الي صفحه الجرد بالترتيب صفحه RX وبعدها صفحه W وبعدها صفحه D في العمود B في صفحه الجرد ترحيل معرف المخزون فقط اذا موجود الصنف شكرا مقدما للجميع الجرد.xlsm

طيب .. انا فتحت الملف الذي هو الفورم خرجت رسالة معنونة بشهر ديسمبر 2025 .. تقول تم التوزيع بنجاح .. دخلت الجدول ولم اجد شيئا دخلت الى الكود افهمه وجدت اول شرط ان يكون الجدول يشتمل على تاريخ مساو للتاريخ على النموذج وطبعا يوجد في الجدول بيانات لسجلات قديمة فقط وانت تريد اقتطاع شهر 3 و 7 من سنة 2026 اليس من المفترض وجود هذه التواريخ في الجدول قبل فتح النموذج ؟ ( لأن الكود يعمل بمجرد فتح النموذج) انا اتصور لو قمت انا بتصميم هذه الجزئية ان يكون هناك 2 ازرار .. واحد لالحاق البيانات الرئيسية مع التواريخ المختارة والثاني لعملية الاقتطاع

نسخت لك FrmTransfer1 للتوضيح فقط والعمل علىFrmTransfer الذي يكون فيه التعديل

اخي الكريم ذكرت انظر في الكود في فورم FrmTransfer1 بينما البرنامج يفتح على FrmTransfer والكود cmd_Pay_installments موجود في النموذجين لا اخفيك تهت .. اذا العمل على FrmTransfer1 لماذا FrmTransfer موجود ؟ اذا يوجد ازرار غير مهمة احذفها .. هذا مجرد مثال

في إتقان، نحن نقدم الترجمة العلمية والأكاديمية التي تساعدك على توصيل أفكارك البحثية بشكل دقيق وواضح إلى جمهورك العالمي، نحن نختص في ترجمة أبحاث علمية وترجمة أوراق علمية من وإلى مختلف اللغات، مع ضمان الحفاظ على المصطلحات العلمية والتقنية بدقة، سواء كنت بحاجة لترجمة أبحاثك للنشر في مجلات أكاديمية دولية أو للمشاركة في مؤتمرات، اتقان تقدم لك خدمة ترجمة احترافية تتوافق مع المعايير الأكاديمية الدولية؛ مما يساعدك في الوصول إلى النجاح الأكاديمي بشكل أسرع.