اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم لدي نموذج في الاكسس اريد ان يتم منع التعديل عند فتح النموذج ادخلت الكود التالي عند حدث عند التحميل ولكن لم يعمل حيث عند فتح النموذج لا يزال يمكنني التعديل اريد مساعدة وجزاكم الله خير جزاء  الكود الذي الذي استخدمته 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
قام بنشر
Private Sub Form_Open(Cancel As Integer)
    ' منع التعديل
    Me.AllowEdits = False
End Sub

 

قام بنشر
جرب دا كدا

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

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

قام بنشر (معدل)

السلام عليكم

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

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

Me.AllowEdits = Not Me.AllowEdits
Me.Recalc

image.png.c459c8710c92ac4b811c015ee3be2dc3.png

تم تعديل بواسطه شامل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