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

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

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

الكود:

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


شكراً  لك  .. حاولت  لكن ماظبط معي
أرفق لك المشروع  عدل  عليه  وأبي  text  تاريخ الخروج  هو اللي  ما يقبل التعديل  إلا بعد  ثلاثة  أيام  مثلاً  وشكراً لك  مرة أخرى

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

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

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