كل الانشطه

و عليكم السلام و رحمة الله و بركاته جرب =ROUND(A1*4;0)/4

شكرا لحضرتك وفي الانتظار وجزاكم الله خيرا

السلام عليكم استاذ يظهر هذا الخطأ كما هو في الصور

هذا ما قصدته بالضبط ... انشاء برنامج خاص بالمبرمج يتم من خلالة عمليات توليد ارقام التفعيل

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

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

لا يتصور اكثر من برنامج في جهاز واحد .. تقصد انه عنده 5 نسخ مثلا على جهاز واحد .. نعم كود واحد يشغلها جميعا ثم ما الفائدة ؟ لا يمكنه نسخها الى جهاز آخر .. وتشتغل كلها الفترة المحددة نفسها . هههههه عجيبة اتصور هذا الشخص يملك محمولا ويعمل في ثلاث او اربع مؤسسات مختلفة .. يتردد بينها . ياشيخ هذا عصامي يستاهل نشجعه جميل جدا يمكنني المتابعة معك .. ما دام رقم النسخة ظاهر سوف ارسل لك المثال الكامل مع رقم الحماية الكامل (المشترك ) سوف اعمله على 32 اعتقد ان اصحابه كثر

طيب لو عندي اكثر من برنامج هل رقم التسجيل هو نفسه ؟ طبعا لا المفترض لكل برنامج رقم خاص

النسخة 64 وعند تعديل قيمة الجداول ، تظهر الرسالة

هذا عندما يكون الاشتراك منتهي ادخل على التصميم وافتح نموذج1 form1 tshfeer32End.rar

رائع جدا

لا للاسف ..... اجرب واعطيك خبر

ابو البشر هل جربت العبث بالجدول .. من جميع الجوانب ؟: 1- العبث بالشفرة 2- تفريغ الحقول 3- حذف الجدول ( تغيير التسمية) او ارجاع تاريخ الكمبيوتر الى وقت يسبق تاريخ اليوم ؟

32

تفضلوا نسختين .. 32 و 64 اذا الحماية صحيحة وليس هناك ثغرات سأرفق العمل النهائي : تحقيق حماية الاشتراك + حماية البرنامج من النسخ باستخدام كود واحد AcDc.rar

ما لقيت يافطة ممنوع مؤكد لا شك في أن الكثير من الحمايات بالنسخة الغير مفعلة لا تعتمد على الوقت ، فتعتبره غير موجود بغض النظر عن وقت تشغيل البرنامج .

ليه تنقر على الزر ؟؟ الزر كنت وضعته من اجل ادراج Now لأنها تاريخ ووقت ويصعب كتابتها واضح ان الامور تمام انتظروني سوف اعيد الحماية للمثال .. انا اضع المثال هنا لرؤية هل ستتم الحماية بحيث لا يمكن تجوزها .. سأعتمد التاريخ حسب اليوم فقط ( الساعات لا اعتبار لها) .. حتى في تغيير تاريخ الجهاز

النتيجة عندما تم فتح النموذج لأول مرة ، كان التاريخ 10-12-2025 وبعد النقر على الزر ، تحدث الليبل إلى تاريخ اليوم كما في الصورة :-

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

ارید :: عنده‌ الشراء عنصر ذیادة كمیة فی المخزن و عند البیع عنصر إنقاص عدد فی المخزن . ( عناصر یتكرر فی جدول مبیعات و مشتریان ) ( عناصر لا یكرر فی جدول مخزن ) ( ارید بطريقة علاقات أو طريقة استعلامات ) أو اي طريقة اخرى مخزن.accdb

يوجد طريقة اسهل وايسر .. على قولتهم : هونها وتهون انا لا اعلم ادراجي للتاريخ الكامل على اي اساس وهل له علاقة باطراف اخرى في منظومة الحماية ام لا لا تقل هذا عملك كيف لا تعرف .. اسمحوا لي لا يمكنني التأكيد ولكن من باب التجربة جرب هل تنفع هذه الطريقة .. الاعتماد فقط على التاريخ Database2.accdb

ملاحظة مهمة: تأكد من أن الجداول التالية موجودة في قاعدة البيانات: BonSortie (جدول أذونات الخروج) Intervenant (جدول الفنيين) BonSortiePiece (جدول قطع أذونات الخروج) Piece (جدول القطع) Equipement (جدول الآلات) اسم النسخة المختصرة: Qry_BonSortie_Basique SELECT BonSortie.num_bon, Intervenant.nom, Intervenant.prenom, BonSortie.date_emis, BonSortie.code_eq, Piece.designation, BonSortiePiece.code_piece, Equipement.nom_eq FROM (((BonSortie INNER JOIN Intervenant ON BonSortie.code_iter = Intervenant.code_iter) INNER JOIN BonSortiePiece ON BonSortie.num_bon = BonSortiePiece.num_bon) INNER JOIN Piece ON BonSortiePiece.code_piece = Piece.code_piece) INNER JOIN Equipement ON BonSortie.code_eq = Equipement.code_eq ORDER BY BonSortie.num_bon ASC;

طيب ما يهم العرض يكون نص او تاريخ .. جرب اعرضه مباشرة كنص .. تاريخ طويل .. لا مشكلة وانظر هل ستظهر الايام المتبقية ؟

بعد الاطلاع على الملف المرفق المفتوح ، اعتقد أن اعتماد التاريخ والوقت كقيمة نصية هو ما يسبب هذه المشكلة .. فعند تعديل الدالة في المديول بهذا الشكل للتجربة .. Public Function vNow() As Date Dim currentTime As Date, currentdate As Date currentTime = Time() currentdate = Date vNow = currentdate + TimeValue(Format(currentTime, "hh:nn:ss")) End Function كانت النتيجة في النموذج :- السبب هو أن هذا الناتج سيكون عبارة عن نص كقيمة = 12/01/2025 14:33:20 اقصد انه ناتج عن الجزء التالي :- i = Format(currentTime, "HH:mm:ss") ii = Format(currentdate, "dd/mm/yyyy") vNow = ii & " " & i

اعتذر عن التأخر بالرد ، ولكن بسبب المباراة انشغلت مع بعض الزبائن في المحل على العموم ، أخشى أن اعطي نفسي كرت أصفر من التجارب حالياً ، لأن النتيجة غير سارة 😅 .. انظر