هل من طريقة لإلغاء التعديل أو الحذف على بيانات مستخدم آخر

[الأحمري]

السلام عليكم

 

عندي مستخدمين 

user1

user2

* عند ادخال بيانات من قبل user1 

* يشاهد user2 البيانات ولكن لا يستطيع التعديل عليها أو الحذف 

 

كيف الطريقة مع الشكر .

 

[صالح حمادي]

السلام عليكم

إطلع على هذه المشاركة بها ما تحتاج

 

[الأحمري]

جزاك الله خيرا اخي 

لكن هل من طريقة لعمل الآتي /

User1 / يستطيع الاضافة ... يستطيع التعديل والحذف على ما اضافه بيوزره فقط ..

ايضا User2 نفس الحال يستطيع الاضافة.. والتعديل والحذف على البيانات المدخله بواسطة  يوزره .

 

 

 

 

[Shivan Rekany]

2 ساعات مضت, الأحمري said:

جزاك الله خيرا اخي 

لكن هل من طريقة لعمل الآتي /

User1 / يستطيع الاضافة ... يستطيع التعديل والحذف على ما اضافه بيوزره فقط ..

ايضا User2 نفس الحال يستطيع الاضافة.. والتعديل والحذف على البيانات المدخله بواسطة  يوزره .

فی المحرر فیجوال للنموذج عند الحالي

اكتب الكود 

اذا حقل اليوزر اللي في ريكورد يساوي ب يوزر الحالي اذاً

اذن بالتعديل يساوي نعم 

اذن بالحذف يساوي نعم

والا

اذن بالتعديل يساوي لا

اذن بالحذف يساوي لا

انتهى

تحياتي

[king5star]

هذا لمنع الحذف

Private Sub Form_Delete(Cancel As Integer)
DoCmd.SetWarnings False
If User_Num = 1 Then
If MsgBox("لا يمكن حذف هذا المستخدم") = vbOK Then
DoCmd.CancelEvent
On Error Resume Next
End If
End If
DoCmd.SetWarnings True
End Sub

وهذا لمنع التعديل إلا ان يقوم بادخال رقم المدير .

Private Sub User_ID_GotFocus()
Dim MYP As String
MYP = DLookup("[User_Pass]", "User_Inf", acFirst)
If User_Num = 1 Then
  passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير اسم الدخول الخاص به")
  If passwd = MYP Then
    User_ID.SetFocus
    Else
   DoCmd.CancelEvent
   MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله"
   أمر15.SetFocus
End If
End If
End Sub

Private Sub User_Pass_GotFocus()
Dim MYP As String
MYP = DLookup("[User_Pass]", "User_Inf", acFirst)
If User_Num = 1 Then
  passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير الرقم السري")
  If passwd = MYP Then
    User_Pass.SetFocus
    Else
   DoCmd.CancelEvent
   MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله"
   أمر15.SetFocus
End If
End If
End Sub

[الأحمري]

شكرا للجميع جزاكم الله خيرا