qathi

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

اساتذتي الغالين اين انتم @Foksh @ابوخليل

اهلا بك استاذي @Eng.Qassim هذه النقطة لا تقلق الأمور مضبوطة لا يستطيع المستخدم التلاعب نعم كما هو موجود بالملف ولكم حرية الإضافة والتعديل بما يتناسب مع الملف والطلب انتظر الحل منكم

اساتذتي الغالين ... @Foksh @ابوخليل أولاً : أعتذر من الجميع عن تأخر ردي بسبب انشغالي وشكرا لكم على سرعة الرد ، حفظكم الله وزادكم الله نورا وعلما ينتفع به الناس ثانياً : أريد أن أنبه لنقطة مهمة أن الجدول الرئيسي InvHT يعتمد علية بشكل أساسي في جميع حركات المبالغ من (بيع وشراء واسناد القبض والصرف وصادر ووارد ..الخ) المدخلة والصادرة للصناديق ، وكذلك اعتمد علية بالدائن والمدين بشكل أدق في جميع الاستعلامات والتقارير فإذا تم عمل جدول فرعي لتحويل من صندوق لأخر فهذا سيكون غير دقيق وليس عملي في معرفة حركة المبالغ هل ممكن ان يتم الاعتماد على الجدول الرئيسي في الحركات تحويل المبلغ بين الصناديق والخ؟ وماهي الطريقة؟ أتمنى تطبيق الفكرة بشكل مباشر في الملف الذي قمت بأرفاقه لكم مع عمل نموذج بشكل فعلي في التحويل بين الصناديق شاكرا لكم على كل ماتبذلوه لنا من وقتكم وجهدكم الثمين علماُ : أن أسماء الجداول: boxsNames = الصناديق والبنوك CurrencysNames = العملات CustomersNames = العملاء InvHT = الجدول الرئيسي InvTT = الجدول الفرعي حركة الأصناف NameMovement = أنواع الحركات NamesTybes = نوع المستفيد من الحركة SuppliersNames = الموردين مرفق الملف: boxs-00.accdb

السلام عليكم اخواني واساتذتنا الافاضل طبتم وطاب مسعاكم وتبوأتم من الجنة منزلا المطلوب: طريقة بناء الجدول والنموذج لعملية نقل المبلغ من صندوق الى اخر ، ومن صندوق الى بنك ومن بنك الى الصندوق. ( في برنامج مبيعات ومشتريات ) واتمنى أن يكون الحل مرفق بملف يوضح ذلك بشكل عملي لهذه النقطة للعلم ان الملف الذي اعمل علية: - خاص بالمبيعات والمشتريات - يتكون من جدول رئيسي - وجدول فرعي خاص بالاصناف فقط يحتوي على حقول ( كود الصنف والمبلغ والكمية .. الخ ) بارك الله فيكم وجزاكم الله عنا كل خير

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه المشكلة: كما هو واضح من العنوان عند نقل القاعدة لأحد الاجهزة تظهر هذه المشكلة مشكلة ضهور كلمة ( #Name? ) بحقول التاريخ وكلمة ( #خطأ ) بحقول الوقت وكلمة ( #نوع ) بحقول اليوم والتاريخ الهجري وهذا يكون نادراً في بعض الاجهزة وأما بالنسبة لجميع الاجهزة الاخرى لاتظهر فيها هذه المشكلة علماً : - الجهاز الحالي الذي ضهرت فيه المشكلة نوع الويندوز Windows 10 Pro - أنه قد تم حل هذا المشكلة في السابق في جهاز أخر بتسطيب الويندوز من جديد الجهاز الحالي يوجد به برامج مهمة جداً .. فهل هناك هل لهذه المشكلة بدون تسطيب الويندوز من جديد ؟؟

دوما تبدع بحلولك استاذي واخي @Foksh شكرا على ردك أستاذي الغالي نعم بالفعل نجح تعديلك بالكود بارك الله فيك وجزاك الله عني خيرا

أهلا باستاذي الغالي @ابوخليل الأمر صعب جداء بسبب بناء السابق للنماذج والاكواد والاستعلامات والتقارير الكثيرة قمت بحذف هذا المعيار وجربت مراراً وتكراراً ونفس المشكلة ارجو من يستطيع المساعدة في حل هذه المشكلة ؟؟

للرفع ... هل المطلوب واضح ام لا؟؟ إذا كان لا .. ارجو اخباري بذلك

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه بعد عدة محاولات لكود بحث التالي: وللعلم ياخذ الكود القيم من حقل قائمة منسدلة اسمة Mo في النموذج الرئاسي الحقل Mo عباره عن قائمة منسدلة قيم مصدر الصف له جدول - والجدول يحتوي على 14 سجل والسجلات مرقمة بالترتيب من 1 الى 14 بعد تجربة الكود عند تحديد اول سجل أو اول قيمة للحقل Mo والذي هو رقم واحد 1 فانة يفرز ويعرض في النموذج الفرعي او التقارير النتائج كل القيم والسجلات المتشابهة التي تحتوي على رقم واحد 1 هكذ 1 و 10 و11 و 12 و 13 و14 ولا يقوم بعرض القيم التي تحتوي رقم واحد فقط المطلوب كالتالي: جعل الكود لا يعرض الا القيم المحددة فقط مقال عند اختيار القيمة واحد 1 يعرض السجلات التي تحتوي على رقم واحد 1 فقط If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If مرفق الكود مع وضع مثاليين لحقلين ( حقل Mo - وحقل Sty ) والذين يعطون نفس النتائج الخاطئة Dim varFilter As Variant varFilter = Null If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If If Not IsNull(Me.Sty) Then varFilter = (varFilter + " AND ") & "[Sty] LIKE *" & Me.Sty & "*" End If With Me.Form2.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

بارك الله فيك استاذنا الغالي @Foksh😚 قمت بتجربة الملف يعمل بنجاح ساقوم بنقل الاكواد لملفي الخاص واقوم بتجربته جزاك الله عني خيرا اسأل الله ان يدخلك الجنة الفردوس الاعلى ووالديك وذريتك واهلك أستاذي أن سمحت اتمنى ان تخبرني باسمك الاول والاخير حتى ادعوك لك بضهر الغيب أعتذر من الاموجي يرفض الحذف

استاذنا @Foksh قمت بتجربة الملف الان ملف الاكسل يتم تصديرة نعم أنه ترتيبه بشكل آخر لكن لاباس به لكن تضهر مشكلة تلف في تصدير ملف لورد وال PDF هل ممكن جعل الدالة اكسل مستقله عن دالة الورد وال pdf

ماشاء الله عليك هذا هو المطلوب استاذنا الغالي @Foksh . حفظك الله وبارك الله فيك وزادك الله علما ونورا ياريت استاذنا الغالي تتكرم عليه به ولك دعوه في ظهر العيب أكون شاكرا لك وجزاك الله عني خير

ممكن توضيح أكثر معلمنا القدير @ابوخليل

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