اذهب الي المحتوي
أوفيسنا

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


moamen salem

الردود الموصى بها

 

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

 

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
تم تعديل بواسطه بحار الاكسس
  • Like 1
رابط هذا التعليق
شارك

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

 

تحياتي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information