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

منع التعديل


إذهب إلى أفضل إجابة Solved by safaa salem5,

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

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

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

  • أفضل إجابة
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
رابط هذا التعليق
شارك

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:

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

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

Me.AllowEdits = Not Me.AllowEdits
Me.Recalc

image.png.c459c8710c92ac4b811c015ee3be2dc3.png

تم تعديل بواسطه شامل2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information