Foksh

وعليكم السلام ورحمة الله وبركاته .. قد يخدمك هذا الرابط https://www.fast-report.com/blogs/connect-database-report وهذا الفيديو

العفو اخي الكريم ..

وعليكم السلام ورحمة الله وبركاته .. إن شاء الله الأمر يسير أخي الكريم . في حدث عند التغيير لمربع النص الخاص بالبحث = SearchText ، قم بتعديل الكود من :- Private Sub SearchText_Change() [FormSearch].Requery End Sub ليصبح كالتالي :- Private Sub SearchText_Change() [FormSearch].Requery Me.Total = DSum("Mount", "QSearch") Me.Total.Requery End Sub وإن شاء الله تظهر معك النتيجة كما تريد ، وهذا ملفك للتجربة برنامج مصروفات خاص 2007.zip

وعليكم السلام ورحمة الله وبركاته .. رغم أن طلبك غير مفهوم بشكل واضح ، ولكن هل ما تقصده أنك تريد اخفاء الصف الذي تكون فيه حالة الدفع = نعم ؟؟؟؟؟؟ وإذا كان غير ذلك ، فلا تبخل علينا بارفاق ملف بسيط لفهم آلية تصميمك . فقد تكون مشكلتك اضافة شرط الى الإستعلام بتحديد السجلات التي يتم عرضها فقط اذا حالة الدفع = False 😉

وإياكم معلمي الفاضل ، وأشكرك ثقتك بطلابك هنا في هذا المنتدى العريق بجهودكم .. حين واجهتها فعلاً لم يخطر في مخيلتي أنه لربما تكون هناك خيارات في اكسيس لها علاقة بهذه المشكلة ، إلى أن وجدت أن Syntax مفعلة فعلاً في قاعدة البيانات التي كنت اعمل عليها . ولربما أن المشكلة هي نسخ كائنات من قاعدة مفعلة أساساً لهذا الخيار أم أن الإستعلامات تم نسخها من قاعدة بيانات SQL Server فعلاً . هل المقصد أنك نقلت بعض الكائنات ( من بينها الإستعلامات ) الى القاعدة الجديدة وبعدها حدثت هذه المشكلة ؟؟ قد يكون الإستعلام أساساً مكتوب بهذه الدالة وليس تم تحويله ( أي من المصدر ) !! أيضاً أضف الى ما تفضلتم به ، أن ALike بشكل مشابه لـ Like ولكن مع معالجة الفرق بين حالة الأحرف (Case Sensitivity) في بعض الحالات ، وهنا ذهب فكري إلى دوال أخرى له مشابهات مثل استخدام OR أو XOR في الجمل الشرطية IF 🤐 وهنا - في تلك الفترة - اكتشفت أن هناك الكثير من الدوال التي لا نعرفها أو لم نستخدمها عادة ولها وظائف جداً مهمة وتختلف في النتيجة عن ما نريده عند كتابة الأكواد .

وعليكم السلام ورحمة الله وبركاته .. معلمنا الفاضل ، أسعد الله مسائك . قد مررت بهذا السؤال مسبقاً وكنت لا أعلم سببه ، ولكني اكتشفت السبب بالصدفة 😅 موضحاً في الصورة التالية :- وأعتقد أن السبب في هذا يعود الى أن الجداول مرتبطة بـ SQL Server أو قاعدة بيانات خارجية . والمرجح عندي سابقاً لأنني كنت أقوم بتثبيت نسختين من أوفيس ( 64 بلإصدار أعلى = 2019 ، و 32 بإصدار 2010 ) فقد يكون هو أحد الأسباب . مع أنني غير متأكد من الإحتمال الثاني حقيقةً . هذا والله أعلم

العفو اخي الكريم 😇 وسعيد أن الفكرة أعجبتك 💐

وعليكم السلام ورحمة الله وبركاته .. بما أن الأستاذ @منتصر الانسي قد فتح باب المشاركات مع المعلم @ابوخليل ، اسمحولي أشارك بفكرة ثانية .. حيث أمكنت المستخدم من التوزيع العشوائي أو المتسلسل ED.zip

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

اقرأ هذه الموضوع

أين هي الرسالة 😎 ما الجديد ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته .. جرب هذه الفكرة ، قد تجد أفضل منها من عباقرة قسم الآكسل وأنا متأكد من هذا .. حيث تم تجاوز حرف الألف المهموز مثل ( أ ، آ ، إ ) بحيث يأتيك بالقيم للحرف ا بجميع أشكاله . 77.zip

ارسل ملف يحتوي نموذجك وجدوله وحدد اسم مربع نص المصدر ومربع نص الهدف . وماذا تريد بالضبط اشرحه حتى نفهم مقصدك . مع العلم أن لطلبك هذا :- حل بسيط باستخدام الدالة Mid :- =Mid([txtNID], 3, 5) حيث الرقم 3 = من اي خانة تريد أن يبدأ الإقتطاع . وحيث رقم 5 = عدد الخانات التي تريد جلبها . طبعاً مع ضرورة أن تكون واثقاً من أن قيمة مربع النص المطروح كمثال هنا يحتوي قيمة تتكون من 7 خانات على الأقل حسب وصفك وكلامك . وحتى تعلم أيضاً أنه يمكنك استخدام هذه الدوال مع مساعدات كثيرة ، ولكن بدايةً جرب ما تم ذكره سابقاً . وإن شاء الله تنحل مشكلتك . خلاف ذلك نعود معك بعد ارسالك ملف

هنا ستضطر لدمج VBA في التنفيذ لأن الاستعلامات لا تقبل الدالة Replace المتعددة في الإستعلامات . وحيث أنك في تمنيك لم تفصح عنه إلا أن هذه محاولة بسيطة .. db2.zip

لا جديد عن الملف السابق ، قد يكون الخلل في اكسل عندي على العموم بارك الله فيك وزادك الله فضلاً وبركة لما قصدت بهذا العمل . قد يكون لمن يمر من هنا تجربة يوافيك بها . متمنياً لك النجاح دوماً

وعليكم السلام ورحمة الله وبركاته ,, هذه فكرتي المتواضعة التي استعملها ، وقد تجد أفكار أفضل بكثير منها .. فلا تتسرع 😉 db1.zip

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

وعليكم السلام ورحمة الله وبركاته ,, أخي الكريم أنت في كود زر التصدير والذي يعمل بشكل سليم بشكل مبدأي ، تقوم بتصدير الاستعلام ContactsExtended ، والذي هو فارغ فعلاً . من خلال السطر :- TableName:="ContactsExtended", _ لذا لا يتم تصدير البيانات التي تريدها ( واعتقد الجدول هو "بيانات" ) ، ولذا لتجربة النتيجة ، امسح ملف اكسل ، واستبدل السطر السابق بالسطر التالي كتجربة :- TableName:="بيانات", _ وتحقق هل يتم التصدير فعلاً ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته .. استخدم الدالة Left أو Right حسب عدد الخانات التي تريد جلبها من اليمين أو اليسار ، مثل :- الدالة Left :- =Left([txtNID], 7) لنفترض ان مربع النص txtNID يحتوي على القيمة 28305678857 ، فالنتيجة ستكون أول 7 قيم من اليسار = 2830567 الدالة Right :- =Right([txtNID], 7) ولنفترض ان مربع النص txtNID يحتوي على القيمة 28305678857 ، فالنتيجة ستكون أول 7 قيم من اليمين = 5678857 وهناك تداخلات كثيرات قد يتم اضافتها لهذه الدالة .. ولكن جرب السابق إن كان يحقق طلبك أولاً 🤗

وعليكم السلام ورحمة الله وبركاته .. بداية نسأل الله أن يكون لك الأجر على النية التي تقصدها بنشرك هذه الفكرة . عند تشغيل الملف تظهر هذه الرسالة :- وعند النقر على Yes تظهر الرسالة التالية أيضاً :-

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

ملاحظة للأستاذ ابو البشر ، لاحظت انك حجزت المتغير العام :- Public PageSum As Double ولكنك استخدمت :- PageTot هلا أوضحت لي الفكرة !!! أم ان المتغير لا حاجة له

وعليكم السلام ورحمة الله وبركاته .. ارسل المرفق أخي الكريم حتى تجد إجابات لطلبك

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

اخي وائل ، ربي يبارك فيك. وشكراً لمرورك 💐