كيف استطيع معرفة عدد مرات فتح قواعد البيانات

اخي الكريم

السلام عليكم ورحمة الله وبركاته

تستطيع التحكم في عدد مرات فتح القاعدة 3 مرات او خمس مرات او عشر مرات على حسب طلبك كل ما عليك اتباع التالي

1. قم بإنشاء جدول جديد في قاعدة البيانات الخاصه بك بإسم NumForOpen وضع به حقل وحيد وليكن مثلا my او رقم نوعه نص وليس له علاقة بقاعدة بياناتك انما خاص بالتحكم بعدد مرات فتح القاعدة لانه سيتم التجربه عليه بدلا من التجربة على جداولك الخاصه واذا عرفت الطريقه تستطيع التطبيق على احد النماذج او الجداول الخاصه بك

2. انشئ وحدة نمطية جديده وضع بها هذا الكود

Public Function MDNumForOpen()
'لجعل الرقم صفر ازل الفاصلة العلوية ثم اعد التشغيل ثم ضع الفاصلة العلوية
   ' CurrentDb("NumForOpen").Properties("ConutOpen").Value = 0
'Exit Function
Dim رقم As Integer
Call CreateMyProperty
رقم = CurrentDb("NumForOpen").Properties("ConutOpen").Value
If رقم >=3Then ' غير الرقم 3 الى عدد المرات المسموح بها لفتح القاعدة
MsgBox "لقد استكملت عدد المرات المسموح بها وعددها(" & رقم & ") .", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "شكرا لك لستخدامك القاعدة"

 'الكود التالي لحذف بعض الجداول الهامة من البرنامج
' DoCmd.DeleteObject acTable, "اكتب هنا اسم الجدول المراد حذفه"

DoCmd.Quit
Else
CurrentDb("NumForOpen").Properties("ConutOpen").Value =رقم +1 
End If
End Function

Private Sub CreateMyProperty()
On Error GoTo err_خطأ
Dim db As Database, tdf As TableDef, prp As Property
Set db = Application.CurrentDb
Set tdf = db.TableDefs("NumForOpen")
Set prp = tdf.CreateProperty("ConutOpen")
prp.Type = dbInteger
prp.Value = 1
tdf.Properties.Append prp

Exit_err:
    Exit Sub
err_خطأ:
    If Err = 3367 Then
    Resume Next
    Else
    MsgBox Err.Number & vbCrLf & Err.Description
    Resume Exit_err
    End If
End Sub

قم بحفظ الوحدة النمطية

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

Private Sub Form_Current()
'لاستدعاء الوحدة النمطيه
Call MDNumForOpen
End Sub

4. قم الان بفتح القاعدة لعدد ثلاث مرات وستجدها في المرت الرابعة لن تفتح معك بل ستغلق نفسها بمجرد فتح القاعدة حيث ستظهر لك رساله بإستكمال عدد مرات الفتح .

ملاحظة : اذا رغبت في حماية الوحدة النمطية وعدم العبث بالكود ضع عليها رقم سري وبهذا لن يتمكن الشخص الاخر من فتح الكود ابدا

او قم بتحويل القاعدة الى ملف MDE وبالتوفيق

هذا مثال مرفق

اختكم

زهره

emp.rar

سلمت يداكي اخت زهره ولكن سؤالي حول تصليح قاعدة البيانات المعطوبه لحد الان لم اسمع جوابه و هو مهم بالنسبة لي جدا حيث لدي بيانات مهمه اريد استرجاعها .