كل الانشطه

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

ليه تنقر على الزر ؟؟ الزر كنت وضعته من اجل ادراج 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

سأراجع المثال يمكن يكون من التاريخ يمكن خلل التاريخ منع ظهور ما بعده

عجيب !! اذا النسخة عندك 32 وانت كنت تعتقد انها 64 .. كيف فتحت المثال الــ 64 الأخير ؟ اكيد انك عملت لها ترقية بحيث تتتعامل مع نظام 64 ...... او انت تقصد انك شغلت المثال على نسخة اخرى 32 والنتيجة واحدة في الحالتين؟ على الأقل لاحظ التنسيق في التاريخ .. ليه؟

مستحي أعلّق 😇

هكذا كما قال استاذ @Foksh تابع الشرح .

حتى انه يوجد لديك نقطة تحت السطر ننتظر نتائج اخرى من الاخوة سأرفق واحدة 32 بت عربية tshfeerAB.rar

لا اعلم صدقاً ..

حاضرين أخي في أي وقت ويكفينا انك انسان مهذب .

تمام .. يبدو التنسيق مختلف انا عندي : ولماذا لم يظهر المتبقي ؟ الصورة مختلفة تماما .... ما الأمر ؟؟