كود ايقاف الحذف

[علي كعبي]

كيف يمكن ايقاف اختصار الحذف من الكيبورد 

تم تعديل ديسمبر 8, 2017 بواسطه علي كعبي

[kaser906]

19 دقائق مضت, علي كعبي said:

كيف يمكن ايقاف اختصار الحذف من الكيبورد 

لإيقاف الحذف استخدم

AllowDeletions = False

ولتفعيل الحذف

AllowDeletions = True

 

[Shivan Rekany]

24 دقائق مضت, علي كعبي said:

ايقاف اختصار الحذف من الكيبورد 

هل قصدك الغاء زر باسم delete للكيبورد ؟ 
 

[علي كعبي]

في ٨‏/١٢‏/٢٠١٧ at 17:36, Shivan Rekany said:

هل قصدك الغاء زر باسم delete للكيبورد ؟ 
 

نعم حتى لايستطيع المسخدم حذف السجلات

[Shivan Rekany]

39 دقائق مضت, علي كعبي said:

نعم حتى لايستطيع المسخدم حذف السجلات

اتفضل الك هذا الكود

عند الفتح النموذج اكتب هذا الكود او غيره في خصائص النموذج

Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

اذا تريد ان تعطل زر الكيبور ديليت فقط اليك هذا
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then KeyCode = 0 '46 delete 
End Sub

او اذا تريد تعطل كلا الزرين ديليت و باك سبايس لان باك سبايس اليك هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Or KeyCode = 8 Then KeyCode = 0 
End Sub

 

تم تعديل ديسمبر 8, 2017 بواسطه Shivan Rekany

[علي كعبي]

في ٨‏/١٢‏/٢٠١٧ at 18:18, Shivan Rekany said:

اتفضل الك هذا الكود

عند الفتح النموذج اكتب هذا الكود او غيره في خصائص النموذج

Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

اذا تريد ان تعطل زر الكيبور ديليت فقط اليك هذا
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then KeyCode = 0 '46 delete 
End Sub

او اذا تريد تعطل كلا الزرين ديليت و باك سبايس لان باك سبايس اليك هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'    If KeyCode = vbKeyDelete Or KeyCode = 8 Then KeyCode = 0 
End Sub

 

وضعة الاكود في النموذج الفرعي ولم يعطي نتيجة مازل للمستخدم الحذف 

[Shivan Rekany]

2 دقائق مضت, علي كعبي said:

وضعة الاكود في النموذج الفرعي ولم يعطي نتيجة مازل للمستخدم الحذف 

ممکن ترفق النموذج ...