كيف لي منع التعديل على text لمدة محددة؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيف لي منع التعديل على text لمدة محددة؟؟

مُساهمة من طرف ماجد في الأربعاء أبريل 02, 2014 10:19 am

أقدر  أمنع  التعديل على text معين  ليومين أو ثلاثة أيام  مثلا  ثم  يسمح بالتعديل عليه ؟؟؟

أتمنى  ألقى  الإجابة والطريقة
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف لي منع التعديل على text لمدة محددة؟؟

مُساهمة من طرف جورج صبحى في الأربعاء أبريل 02, 2014 3:19 pm

يمكنك استخدام الكود التالى :

الكود:
Private str As String
    Private str1 As String
    Private str2 As String
    Private initialDate As Date
    Private expDate As Date
    Private usedDate As Date
    Private Expire As Boolean
   
 
 
  Public Sub Expire_Project()
    str = GetSetting("Project Name", "Expiry", "Initial Date")
 
   
  If Len(Trim(str)) < 1 Then
   
        SaveSetting "Project Name", "Expiry", "Initial Date", Date
        expDate = DateAdd("d", 3, Date)
       
        SaveSetting "Project Name", "Expiry", "Expiry Date", expDate
       
    Else
        str1 = GetSetting("Project Name", "Expiry", "Used Date")
     
        If Len(Trim(str1)) < 1 Then
            str = GetSetting("Project Name", "Expiry", "Initial Date")
           
            initialDate = CDate(str)
            str2 = GetSetting("Project Name", "Expiry", "Expiry Date")
         
            expDate = CDate(str2)
                If Date > expDate Or Date < initialDate Then
             
                    SaveSetting "Project Name", "Expiry", "Used Date", "True"
                    Text1.Enabled = False
                    Expire = True
                    Exit Sub
                End If
            Else
                Text1.Enabled = False
                Expire = True
                Exit Sub
            End If
    End If
    End Sub

وفى حدث التحميل للنافذة

الكود:
Private Sub Form_Load()
 Call Expire_Project
End Sub
avatar
جورج صبحى
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف لي منع التعديل على text لمدة محددة؟؟

مُساهمة من طرف ماجد في الأربعاء أبريل 02, 2014 8:07 pm

شكراً  لك  .. حاولت  لكن ماظبط معي
أرفق لك المشروع  عدل  عليه  وأبي  text  تاريخ الخروج  هو اللي  ما يقبل التعديل  إلا بعد  ثلاثة  أيام  مثلاً  وشكراً لك  مرة أخرى
المرفقات
تعديل.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(10 Ko) عدد مرات التنزيل 2
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف لي منع التعديل على text لمدة محددة؟؟

مُساهمة من طرف جورج صبحى في الخميس أبريل 03, 2014 6:13 am

اليك المثال بعد التعديل عليه اخى الكريم

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13965055521.rar

كل ما عليك فعله هو تشغيل البرنامج لاول مرة تسجد ان مربع النص 3 غير متاحة للكتابة به من قبل المستخدم ....ثم بعد ذلك قم بإقافة البرنامج .... ثم بعد ذلك قم بتغير تاريخ الجهاز بحيث يكون اكبر من تاريخ اليوم بحوالى 3 ايام ....ثم بعد ذلك قم بإعادة تشغيل البرنامج ستجد مربع النص 3 متاح للتعديل و الكتابة به
avatar
جورج صبحى
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف لي منع التعديل على text لمدة محددة؟؟

مُساهمة من طرف ماجد في الجمعة أبريل 04, 2014 1:53 pm

شكراً  لك  يا جورج 

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

أرجو أن تكون قد  فهمت ما أقصد  ولو ما فهمت  مستعد  أعيده  بكلام  أطول   وشكؤاً لك  مرة أخرى
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى