الجمع بين الحماية من النسخ و حماية مدة الاشتراك

[ابوخليل]

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

[Foksh]

10 دقائق مضت, ابوخليل said:

جرب هذه

 

[ابو البشر]

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

النتيجة ::::::::::::::::::::::::::::::

 

[ابوخليل]

 

شكرا ابا البشر .. بشرك الله بما يسرك

 

ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة 

استاذ فادي قد تكون المشكلة لديك من دالة التاريخ المصنوعة

لأني صنعتها من اجل اختلاف تنسيقات التاريخ في الاجهزة ص / م  أو   am pm

فجعلت الساعات بنظام الـــ  24

انا اتعامل مع حقل نصي ثم احوله لتاريخ

تفضل هذه هي الفكرة جرب احتمال 99% تعمل عندك ما لم يتم التحزيم

القاء نظرة على المرفق فقد تجدون لي شيئا افضل

Database1.accdb

[Foksh]

57 دقائق مضت, ابوخليل said:

ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة 

اعتذر عن التأخر بالرد ، ولكن بسبب المباراة انشغلت مع بعض الزبائن في المحل 

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

 

[Foksh]

بعد الاطلاع على الملف المرفق المفتوح ، اعتقد أن اعتماد التاريخ والوقت كقيمة نصية هو ما يسبب هذه المشكلة ..

فعند تعديل الدالة في المديول بهذا الشكل للتجربة ..

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

 

[ابوخليل]

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

وانظر هل ستظهر الايام المتبقية ؟

 

[ابوخليل]

يوجد طريقة اسهل وايسر  .. على قولتهم : هونها وتهون

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

لا تقل هذا عملك كيف لا تعرف .. اسمحوا لي لا يمكنني التأكيد

ولكن من باب التجربة

جرب هل تنفع هذه الطريقة .. الاعتماد فقط على التاريخ

Database2.accdb

[Foksh]

18 دقائق مضت, ابوخليل said:

جرب هل تنفع هذه الطريقة .. الاعتماد فقط على التاريخ

 

النتيجة عندما تم فتح النموذج لأول مرة ، كان التاريخ 10-12-2025

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