منع التعديل

[محسن خليل]

السلام عليكم لدي نموذج في الاكسس اريد ان يتم منع التعديل عند فتح النموذج ادخلت الكود التالي عند حدث عند التحميل ولكن لم يعمل حيث عند فتح النموذج لا يزال يمكنني التعديل اريد مساعدة وجزاكم الله خير جزاء  الكود الذي الذي استخدمته Me.AllowEdits = False

[safaa salem5]

9 minutes ago, محسن خليل said:

السلام عليكم لدي نموذج في الاكسس اريد ان يتم منع التعديل عند فتح النموذج ادخلت الكود التالي عند حدث عند التحميل ولكن لم يعمل حيث عند فتح النموذج لا يزال يمكنني التعديل اريد مساعدة وجزاكم الله خير جزاء  الكود الذي الذي استخدمته Me.AllowEdits = False

Private Sub Form_Current()
  If Me.NewRecord Then
    Me.AllowEdits = True
  Else
    Me.AllowEdits = False
    Me.AllowDeletions = False
  End If
End Sub

[محسن خليل]

شكرا جزيلا على الرد ولكن كتبت الكود لكن لم يعمل

 

[safaa salem5]

13 minutes ago, safaa salem5 said:

Private Sub Form_Current()
  If Me.NewRecord Then
    Me.AllowEdits = True
  Else
    Me.AllowEdits = False
    Me.AllowDeletions = False
  End If
End Sub

 ياما انت كريم يارب اخيرا  حليت حاجه صح

بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى

Just now, safaa salem5 said:

 ياما انت كريم يارب اخيرا  حليت حاجه صح

بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى

لو بتسجل جديد هيفتح

لو بتعدل على سجل قديم هيمنع

انا مجرباه والله

1 minute ago, safaa salem5 said:

 ياما انت كريم يارب اخيرا  حليت حاجه صح

بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى

لو بتسجل جديد هيفتح

لو بتعدل على سجل قديم هيمنع

انا مجرباه والله

الصق الكود عند التحميل

[Foksh]

Private Sub Form_Open(Cancel As Integer)
    ' منع التعديل
    Me.AllowEdits = False
End Sub

 

[safaa salem5]

[safaa salem5]

جرب دا كدا

Dim intnewrec As Integer
 intnewrec = Form.NewRecord
 If intnewrec = 0 Then
 Me.AllowEdits = False
 Else
  Me.AllowEdits = True
End If

[محسن خليل]

1 hour ago, safaa salem5 said:

جرب دا كدا

Dim intnewrec As Integer
 intnewrec = Form.NewRecord
 If intnewrec = 0 Then
 Me.AllowEdits = False
 Else
  Me.AllowEdits = True
End If

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

[شامل2]

السلام عليكم

في البداية من تصميم النموذج نعمل الاتي:

ثم مفتاح امر في النموذج ونضع الكود الاتي عند الرغبة في تعديل البيانات او الحذف او غيرها ولكن يمكن الاضافة

Me.AllowEdits = Not Me.AllowEdits
Me.Recalc

تم تعديل يناير 3 بواسطه شامل2