Gamal.Saad

ههههههه النتيجة ممتازة حتى تاريخه كنت أريد أسوي لك أكثر من اعجاب Like لكن ذلك غر متاح بالمنتدى للأسف

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

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

وعليكم السلام ورحمة الله ستجد مربع نص اسمه DD مصدر التحكم ببياناته =IIf([final]=False And Nz([date2_out];0)=0;DateDiff("m";[date1_in];Date());0) عدله إلى =IIf([final]=False And Nz([date2_out];0)=0;DateDiff("d";[date1_in];Date());0) وبالتالي سيرجع لك قيمة الفرق بالأيام بين التاريخين ثم اذهب للتنسيق الشرطي وعدله الشرط إلى DD > 44 بريد دوار 29.rar

شكرا على مروركم أستاذتي الأفاضل الاستاذ عبدالفتاح كيره والاستاذ عمرو أشرف والأستاذ أبو خليل at_aziz والاستاذ والأستاذ محمد النجار Wael_rafat والاستاذ وبارك الله فيكم وفي كل أعضاء هذا المنتدى الراقي مشكور أستاذ عمرو وإن شاء الله نقوم بهذا ا|لأمر أيضا سوياً مع الأعضاء

كثرت في الآونة الأخيرة تساؤلات (في الحقيقة لم يكن سوى تساؤل واحد فقط) عن كيفية تصدير البيانات من أكسس إلى وررد وإن شاء الله سوف نعمل سويا للوصول لأفضل وأبسط وأسرع الطرق لتحقيق ذلك ونرجو الجميع المشاركة في تحديث الكود باضافة أكثر من طريقة للتصدير أو بابتكارات جديدة تخص الموضوع وبالمرفق المحاولة الأولى : التصدير لقالب وررد جاهز لاستقبال بيانات محددة من النموذج export to word template.rar

في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة

هناك تغيير حدث في الاستعلام Q_in_out_finalfalse انظر للحقل الأخير Final سوف تجده تغير إلى اسم Expr1: final لذلك قم بحذف التسمية التي حدثت Expr1:

المفترض أنه كذلك بالفعل For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close acForm, Name_Frm, acSaveYes Next لاحظ أول سطر وآخر سطر

أرفق الملف

.Modal غير صحيحة ليس له أوبجيكت استبدله بالتالي وجرب Forms(Frm.Name).Modal = False

أوك ما رقم الصف المحتوي على خطأ في التنسيق الشرطي ؟

أوك عندك في النموذج المستمر مربع نص اسمه dd مصدر التحكم له CONTROL SOURCE = =IIf([final]=False And Nz([date2_out];0)=0;DateDiff("m";[date1_in];Date());0) ومعناه اذا تحقق شرطي الحقلين final , date2_out فإنه يحسب الفرق بالأشهر بين التاريخ الحالي وتاريخ date1_in فيكون الناتج عدد أشهر ثم يأتي دور التنسيق الشرطي ويختبر قيمة عدد الأشهر فاذا زاد عن واحد تحول لون النص للأحمر وهكذا فضلت شرح طريقة ما قمت به تنفيذا للمقولة أعطنى صنارة ولا تعطيني سمكاً بريد الدوار27.rar

وعليكم السلام ورحمة الله سويت لك تنسيق شرطي عبارة عن تلوين بالنموذج المستمر للسجل الذي مر عليه فترة زمنية تزيد عن شهر منذ تاريخ date1_in بشرط false = true لكن لم أفهم جيدا باقي ما تريد لأن الكلمات الانجليزية متداخلة في الكلمات العربية في مشاركتك السابقة بريد الدوار26.rar

جرب التسلسل حسب السنة والشهر auto number text field 2.rar

أوك ولا يهمك أنا ظنيت سوءاً بالكمبيوتر عندي في أقرب وقت سأعدل لك الكود إن شاء الله

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

بعد اذنك طبعا سويت لك بعض التعديلات تجربة-3.rar

المرفق السابق لك أستاذ عمرو لا يعيد التسلسل من البداية مع بداية كل شهر جديد ولكن يعيد مع عام جديد فقط على أية حال عدلت لك الكود ليضيف البادئة التي طلبتها auto number text field.rar

أنا مع هذا الرأي بالاضافة أن فكرة البرنامج جميلة وأشكره عليها و ياريت يستمر الأستاذ غسان في تنفيذ المشروع أو البرنامج

Test this try Backup all tbls except one.rar

هل هذا الحل يقوم بعمل الآتي :

ربما يكون هناك حل جاهز ومتعارف عليه لهذا الأمر وسوف ننتظر ربما يحلها أحد الأخوة واذا لم يكن فيمكننا أن نحاول تمديد المربع المظلل اعتمادا على الارتفاع المتوقع للمربع info لكن لا أعدك بنجاح التجربة تماما

اذا كان مربع النص المظلل و مربع النص القابل للتمدد كلاهما يتمدد ارتفاعاً فهذا معناه أنه بعد الحدث Me.Box29.Height يأتي حدث آخر ويتخطاه وهو me.info2 (can Grow=yes)

اللهم آمين ويجمعنا سويا والمسلمين يوم الدين ويجزيك بمثل دعائك ههههه كان عندي شك في ذلك لأنه حتى هذه اللحظة لم أعرف معنى نفوس و محطة بصم لكن أتوقع نفوس شئ تجاري لا يؤكل بينما محطة بصم هي مكان اذا كنت تقصد وضع قيمة بحقل مربع الاختيار اذا كان هناك تاريخ فضع كود في حدث بعد التحديث في النموذج لمربع النص المستند على التاريخ مشابهاً لذلك If Nz(date1_in, 0) <> 0 Then Me.C1_in = -1 Else Me.C1_in = 0 End If انظر بالمرفق النموذج Q_in_out_finalfalse بريد الدوار25.rar