كل الانشطه

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

النسخة 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

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

السلام عليكم ورحمة الله الله وبركاته أخي العزيز ابوخليل و أخي العزيز Debug Ace أرجو أن تتكرما علي بالصورة النهائية التي توصلتم لها لأعمل بها وجزاكم الله خيرا

شكرا ابا البشر .. بشرك الله بما يسرك ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة استاذ فادي قد تكون المشكلة لديك من دالة التاريخ المصنوعة لأني صنعتها من اجل اختلاف تنسيقات التاريخ في الاجهزة ص / م أو am pm فجعلت الساعات بنظام الـــ 24 انا اتعامل مع حقل نصي ثم احوله لتاريخ تفضل هذه هي الفكرة جرب احتمال 99% تعمل عندك ما لم يتم التحزيم القاء نظرة على المرفق فقد تجدون لي شيئا افضل Database1.accdb

السلام عليكم ورحمة الله وبركاته مرحبا بالجميع الاوفيس 2016-32Bit النسخة المستخدمة هي tshfeerAB النتيجة ::::::::::::::::::::::::::::::

انتظر النتيجة اتمنى تكون صحيحة

عندي نسختين أوفيس على كمبيوتري ، واحدة 2010 = 32 والثانية 2019 = 64

جرب هذه tshfeerA2.rar