طريقة لعدم حذف السجل في الفورم من الكيبورد

[rey360]

السلام عليكم أعضاء المنتدي الكرام أريد أن أسأل هل هناك طريقة لعدم حذف السجل في الفور من الكيبورد بحيث يجب حذفوه من البوتن الموجودة أمام السجل لعمل تحديث عند الحذف وشكرا لكم

 

[النجاشي]

من خصائئص السماح بالحذف ارجعها لا

[ابوخليل]

السلام عليكم

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
' your msg
    exit sub
End If
End Sub

 

[rey360]

شكرا لك أستاذ ابوخليل ولكن عندما يخرج ميساج بوكس ويضغط ok يشرع في سأل أخر وهو هل تريد المسح وأنا أريد ايقاف المسح كليا من الكيبورد الا عن طريق البوتن الموجودة أمام

السجل

 

تم تعديل سبتمبر 14, 2019 بواسطه rey360

[ابوخليل]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 46 Then
        KeyCode = 0
        MsgBox "يمكنك الحذف من النموذج فقط"
    End If
End Sub

 

[د.كاف يار]

اخي الكريم 

ضع في حدث عند الفتح الكود التالي

لمنع الحذف
Me.AllowDeletions = False

===================================

خيارات اخرى يمكن وضعها مع صلاحيات المستخدمين 

لمنع التعديل
Me.AllowEdits = False

لمنع الاضافة
Me.AllowAdditions = False

 

[rey360]

شكرا لك أستاذ ابوخليل لقد نجح الامر وشكرا لك أستاذ د.كاف يار لزيادة التوضيح والمعلومات شكرا لكم جميعا 

[ابوخليل]

1 ساعه مضت, د.كاف يار said:

اخي الكريم 

ضع في حدث عند الفتح الكود التالي

 

هو لا يريد منع الحذف .. 

يريد منع الحذف من لوحة المفاتيح والسماح بالحذف من النموذج