شايب

بارك الله فيك استاذنا الفاضل وقد أسفر الصبح لذي عينين

احسنت استاذي واخي د.محمد لدينا الان تم تطبيق نظام الفوتر الالكترونية وهذا النظام يتطلب الربط مع هيئة الزكاة والضريبة والجمارك وبالتالي فان الهيئة سوف تحسب مقدار الضريبة من خلال هذه الفواتير لذا فان نصيحة الاخ شايب لتلافي اي مشاكل مستقبلية عند اخذ مبدأ رجيع المشتريات بيع ورجيع المبيعات شراء واعتقد ان لديكم نظام مشابه ضمن رؤية مصر 2030 للتحول الرقمي اي سعر هل هو سعر البيع ام سعر الشراء وهل هناك صنف تم توريده باكثر من سعر

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

نعم احسنت وغلطة الشايب بعشرة 🌹

السؤال ايضا لابي جودي ولكن الاخ شايب ملقوف بعض الشيء هناك البعض للاسف يستخدم نماذج فرعية بشكل مخفي ويقوم باسناد قيمة الحقل غير المنظم الى احد حقول النموذج المخفي وكل ذلك لعدم معرفته بكتابة معايير دوال تجميع المجال وبالذات عندما يكون لدينا اكثر من معيار الخلاصة دوال D تسهل العمل وتحقق المطلوب باسهل الطرق وسواء كانت استعلام او جزء من استعلام فان الافضل استخدامها يكون وفقا لمتطلبات العمل والاخ شايب يعتقد ان البعض يفرط في استخدامها للحصول على قيمة حقول ليست ذات فائدة او ليست مطلوبة قي النموذج مرفق صورة لاستخدام ثلاث نماذج فرعية مبني كل نموذج منهم على استعلام بينما دالة DSUM تغني عنها اخيرا لا ننتقد عمل اي من الزملاء ولكن نحاول تصحيح بعض المفاهيم وتبقى وجهة نظر غير ملزمة الشايب

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

لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود انظر للفيديو ⬇️

في بداية الكود ضع الامر On Error Resume Next وسوف تنتهي المشكلة ويمكن ايضا الحل بطريقة اخرى استبد الامر بالامر بالكود التالي If Me.RecordsetClone.RecordCount > 0 Then Me.RecordsetClone.MoveLast Me.tx2 = "السجل" & Me.CurrentRecord & _ " من " & Me.RecordsetClone.RecordCount End If اخونا الشايب

اتفق معك واغلب دوال التجميع يمكن الاستغناء عنها في حالات كثر باستخدام الاستعلامات

اخي الفاضل انا ماني فاهم هل انتهت مشكلتك ؟

شوف ردي السابق جرب احذف السطر الرابع والخامس

ماشاء الله عليك اخي محمد كفيت ووفيت 🌹

علامات التنصيص لمعيار الحقل الرقمي تختلف عن الحقل النصي جرب استبدل السطر الثالث لديك الى If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then امر اخر طالما ان النموذج لديك مصدر بياناته جدول BundleDataOut وبالتالي القيمة المسجلة سوف تحفظ في الجدول فما هو الغرص من الاستعلام في السطر الرابع DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')" اخونا الشايب

دالة DLookup لابد للحصول على نتيجة صحيحة ان نستخدم معها معيار فريد وبالتالي عند استخدام between فسوف تعود الدالة باول سجل مطابق فقط لذا فمن الافضل التفكير باستخدام معيار اخر اما اذا كنت مصمم على هذا الاستخدام الغير صحيح DLookup("[pcode]", "lab_all", "[pcode]between 2 and 6 ") اخونا الشايب

جرب Database1121.accdb

جرب مع عدم الاقتناع باستخدام حقول مربعات التحرير والسرد في الجداول Estimation.accdb

جرب فكرة من افكار طبعا يمكن جعل الرمز الاضافي يستخلص من حدث عند عدم الوجود في القائمة بدون الحاجة لكتابته في نموذج التعديل ولكن مالي مزاج حاليا basep(4).accdb

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

التصفية هي وضع معيار معين لاظهار السجلات التي ترغب في اظهارها وليست لاخفاء البيانات اما عند رعبتك في جعل النموذج فارغ من البيانات فيمكن استخدام الخاصية DataEntry ولها قيمتان نعم يكون النموذج لادخال بيانات فقط وعند تحديدها الى لا فسيتم عرض البيانات و لاستخدام الخاصية مع النموذج الفرعي في زر امر او اي حدث مناسب لك ضع الامر التالي Me.test.Form.DataEntry = True test هو اسم النموذج الفرعي ولعكس العملية Me.test.Form.DataEntry =False الشايب

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

لا لا اكمل باقي الرد الفكرة انه يمكن تنفيذ عدة امور واختصار بعض الاجراءات مثلا بدلا من الحقل المحسوب نستفيد من حدث بعد التحديث لتنفيذ عدة عمليات الحصول على ترقيم بالكود غير قابل للتكرار الحصول رمز الكتاب بنفس الطريقة بدون الحاجة الى حقل محسوب في الجدول امكانية تعديل رمز الكتاب وفقا لطلبك مع ذلك ننتظر رأي الاساتذة ربما لديهم افكار افضل فإنْ يكُ صدرُ هذا اليوم ولّى .. فإنّ غدًا لناظِرِه قريبُ

بالتوفيق ان شاء الله الشكر لله سبحانه

مصدر سجلات النموذج كتاب هو جدول كتاب وهذا ما يقوم به الكود وهو يقوم بتغير اي رمز من ت الى ت-خ اما اذا ترغب عن طريق استعلام تحديث فالاخ محمد البرناوي اشار الى الطريقة ولكن لابد من الانتباه لنقطة مهمة رمز الكتاب مصدره حقل محسوب ياخذ قيمته من خلال حقل الرمز وحقل الرقم [الرمز] & "" & [الرقم وهذ النوع من الحقول لايتم التعديل عليه وانما يتم التعديل على مصدره وهذا ماعملته في الكود اعلاه وللتوضيح اكثر لنتمكن من تعديل الحقل رمز الكتاب لابد من تعديل مصدره لكونه حقل محسوب وهو متوافق مع ما اشار اليه الاستاذ محمد في الصورة المرفقة سواء كان التعديل بالكود او بالاستعلام هل توجد طريقة لتنفيذ التعديل فقط على رمز الكتاب وبقاء حقل الرمز بدون تغيير نعم ممكن بعد تعديل نوع الحقل من محسوب الى نص ونجعل قيمة الحقل في حدث بعد التحديث لحقل رقم الكتاب الشايب

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

مشاركة مع الاستاذ خليفة فكرة من ضمن افكار وبدون الحاجة الى تقريرين الملف مرفق اخونا شايب gestion(1).accdb