Foksh

أخي @عبد اللطيف سلوم ، لا تبخل علينا في ملف بسيط للإطلع عليه والإستفادة 😊

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

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

وعليكم السلام ورحمة الله وبركاته .. تسعدني مشاركتك أستاذنا أبو عبدالله طبعاً انت قمت بتشغيل الملف بدون اتصال بالانترنت ، ولذلك لم يتم تسجيل جهازك على السيرفر . في النسخة الأصلية من الفكرة ، فعلاً لن يتم عمل البرنامج بعد انتهاء النسخة التجريبية وهي 14 يوم . وبالتالي انت مضطر لتفعيل النسخة من الاتصال بالانترنت ، وليس في فكرتي اي رقم يتم تزويده للعميل ، فقط اتصالك بالانترنت ويتم التفعيل في وقت قصير من تسجيل الجهاز في السيرفر . كما أخبرتك ، من المفترض ان يتوقف العمل على البرنامج . حتى أن التلاعب بالتاريخ بتقديمه أو تأخيره لن يجدي نفعاً ( في النسخة الكاملة من أداة التفعيل ) . الفكرة باختصار :- عند تشغيل البرنامج لأول مرة على الجهاز عند العميل ، يتم قراءة معرف خاص . بعد تسجيل النسخة على السيرفر ، والتواصل مع المطور ، يمكن للعميل اختيار المدة التي يريدها ( أسبوع ، شهر ، 3 أشهر ، 6 أشهر ، سنة ، كامل ) . هنا دور المطور من خلال السيرفر يتم التفعيل لرقم معرف الجهاز بالمدة ، ومطالبة العميل بالنقر على زر استرداد بيانات التفعيل . ويتم التفعيل بصمت دون اي تدخل من العميل . ولنفترض جدلاً انك طلبت تفعيل 1 شهر بدءاً من تاريخ 01/10/2025 وتنتهي في 01/11/2025 . وجئت بتاريخ 05/10/2025 ، وطلبت التفعيل لشهر آخر . هنا سيصبح لديك ( الباقي 25 يوم ، + 30 يوم شهر التمديد = 55 يوم ) أي بعد تاريخ الانتهاء سيتم اضافة 30 يوم وبهذا ينتهي التفعيل بتاريخ 01/12/2025 . في فكرتي يوجد أيضاً حماية حق العميل حتى بعد الفورمات ، بحيث . ولنفترض انك قمت بعمل فورمات وتنصيب نسخة ويندوز جديدة ، هنا عند تشغيلك للبرنامج سيتم قراءته التشغيل على انه نسخة جديدة ، وبالتالي عند النقر على زر استرداد بيانات التفعيل ، سيتم الاتصال بالسيرفر والبحث عن آخر تفعيل موجود لك مسبقاً ، وبالتالي تسترجع تفعيلك بنفس التاريخ دون اي تدخل .... على العكس ، يسعدني هذه الحديث بتوضيح ما ترغب بالإستفسار عنه لتكتمل الصورة لك .

وعليكم السلام ورحمة الله وبركاته ,, إذا سمح لي بالمشاركة الأولى 🤗 ، خطر ببالي انشاء استعلامين بدايةً ، حيث :- الاستعلام الأول ( qry_Tahseel_By_Mada ) خصصته لعرض التحصيل حسب المواد ( عدد المهارات لكل درجة داخل كل مادة ) . وهدفي منه تحليل توزيع درجات المهارات داخل كل مادة . SELECT mada_id, AA, COUNT(AA) AS عدد_المهارات FROM tbl_Mharat_tqyeem GROUP BY mada_id, AA; أما الاستعلام الثاني ( qry_Tahseel_By_Mharah ) ، تم تخصيصه لعرض التحصيل حسب المهارات ( عدد الطلاب لكل درجة في كل مهارة ) . والهدف منه تحليل أداء الطلاب في كل مهارة على حدة . SELECT tbl_Mharat_tqyeem.Mhr_id, tbl_Mharat_tqyeem.Mharh_Nm, tbl_Mharat_tqyeem.AA, Count(tbl_Mharat_tqyeem.AA) AS عدد_الطلاب FROM tbl_Mharat_tqyeem GROUP BY tbl_Mharat_tqyeem.Mhr_id, tbl_Mharat_tqyeem.Mharh_Nm, tbl_Mharat_tqyeem.AA; وبناءً على هذين الإستعلامين ، قمت بإنشاء المخطط البياني لينتج لدي الشكل التالي :- والمرفق بهذه الفكرة :- Database2.zip

وعليكم السلام ورحمة الله وبركاته .. قد يخدمك هذا الرابط 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 تظهر الرسالة التالية أيضاً :-