تحديد عدد الاجهزة

[moamen salem]

يا اخوتي انا عامل قاعدة وعايز احدد عدد 2 جهاز فقط للدخول عليها عشان محدش ينسخها لاكثر من مكان 

[بحار الاكسس]

 

هذا الكود لمنع النسخ ارجو ان يفيدك ضعه فى الشاشة الافتتاحية فى خاصية عن الفتح

 

Option Compare Database

 

 

Private Sub Form_Open(Cancel As Integer)

If CurrentProject.Path = "D:" Then

If CurrentProject.Name = "اسم البرنامج.mdb" Then

Else

MsgBox "تم تغير اسم البرنامج يجب ان يكون بالاسم الاصلى " & vbCrLf _

& "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج"

DoCmd.Quit

End If

Else

MsgBox "تم تغيير مسار البرنامج " & vbCrLf _

& "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج"

DoCmd.Quit

End If

 

 

End Sub

تم تعديل مايو 12, 2016 بواسطه بحار الاكسس

[sandanet]

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

 

تحياتي

[moamen salem]

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