هذا الكود لمنع النسخ ارجو ان يفيدك ضعه فى الشاشة الافتتاحية فى خاصية عن الفتح
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