عمر ضاحى

لا تتعب حالك اختر افضل اجابة طبعا بدون كلام اجابة الاستاذ @kanory افضل اجابه اسلوبه فى الحل جميع بالنسبه لمشكلة عدم قدرتك لرفع الملف ممكن تعمل ملف جديد وتضع فيه بعض الجداول بدون معلومات حقيقيه وتعمل الاستعلامات وترفعه لينا علشان نفهم ايه ال بتريده بالظبط وبالنسبه للطابعه فى الوندوز من ميكروسوفت فى طابعه PDF انا وندوز 10 عندي دي بدون برامج ممكن تستخدمها عادي زييها زي الطباعه الحقيقه

على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA وان مصدر بداية الفتره فى النموذج هو D1 وان مصدر نهاية الفتره هى D2 هترح للاستعلام بتاعك عند الاسم هتضيف المعيار بتاعك هو Forms![NameOfForm]![AAA] وفى التاريخ هتحط المعيار >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

if me.combo = "XX1" then DoCmd.OpenReport xxxx1, acViewPreview end if if me.combo = "XX2" then DoCmd.OpenReport xxxx2, acViewPreview end if if me.combo = "XX3" then DoCmd.OpenReport xxxx3, acViewPreview end if دي اضافه بعد اذن الاستاذ @kanory دي كفكره مبدئيه لحد ما نفهم بالنموذج الخاص بك بعد تعديل اسم الكمبو والشروط والتقارير

ارفع ملف للعمل عليه

ارفع ملف للعمل عليه

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

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

د.كاف يا انت شخص عظيم ربنا يجعله فى ميزان حسناتك ويغفر لك ويحفظك انت ومن احببت وجميع المسلمين

فى استعلام اسمه Q_inventory_02x ده ال بيظهر فى الارصده بعد الطرح والاضافه

@د.كاف يار بعد اذن حضرتك عندي فى فاتورة المبيعات فى مشكلتين الاولى لما حبيت اطبق الكود الخاص بالقائمة علشان ابحث عن الاصناف بقي يخفي لى الصنف نفسه ولا استطيع ان اعيد اختيار الاصناف تاني المشكله الثانيه عاوز لما اكتب الكميه يبحث هل الكميه المتوفره تكفى المطلوب ام لا اذا كان لا يظهر لى رساله بان المخزون غير كافى او ما شابه فى المشكله الثانيه انا جهزت الاستعلام وكل شئ لكن مش عارف اجلب البيانات من الاستعلام عن طريق دالة Dlookup بيجبلى خطأ حاولت كثير وكلهم فشلو مش عارف ليه الداله دي تعباني مره تشتغل وتجلب لى معلومات ومره تجلب لى جلطه فى الدماغ 😁 321.accdb

@د.كاف يار والله اخجلنى اطرائك شكرا جزيلا ❤️ ❤️ ❤️ ❤️ ❤️

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

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

هذا هو اشكرك كثيرا لكن فى مشكله ظهرت معايا

دي انا عارفها لكن لو فرضا انا عاوز صنف معين الاسم فى منتصف اسم صنف مثلا مونادا كوكاكولا كانيطة عاوز اكتب كلمة "كو" فيجبلى كل ال فيهم كلمة (كو)

للرفع الغرض من هذا تقليل الوقت للوصول للصنف لان بزيادة عدد الاصناف يصبح شئ مرهق الوصول للصنف

جربت ان اضع فى الاستعلام معيار Like "*" & [Forms]![Frm_sales2]![name_of_product] & "*" لكنه لم ينجح معي وايضا اظهر لى خطأ عاوزني اكتب له معلمات

فى الخدمه

اتفضل استاذ الحلبى جر ب هذا اختيار.accdb

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

عظمه على عظمه بارك الله فيك جعله فى ميزان حسناتك

الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود

طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي وايضا فى حال اريد ان اكررها فى نفس الفورم هل اكرر الحدث فقط ام اطر لتكرار الحدث وكود Function Seperate_Digits(T) معا

اولا اشكرك على تعبك لكن ليس قصدي فصل الرقم ف لفصل الرقم ممكن استخدم هذه المعادلة وتنتهي القصه Me.txt777 = Trim(Replace([cbList1], "شهر", "")) لكن الغرض هو مثلا كيف احول الرقم الذى سوف يخرج لى ولو نفترض انه رقم 3 رقم 3 هذا يرمز لشهر 3 مارس اريد عدد ايام هذا الشهر فى هذه السنه الحاليه (المفترض ان النتيجه هي 31 يوم ) ولو اخترت شهر 2 فبراير فهو فى هذه السنه قيمته 28 يوم وانا رابطه بالسنه لان قد ياتى 29 يوم فى سنه من السنين اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود

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