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

[علي كعبي]

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

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

[kaser906]

  في 8‏/12‏/2017 at 14:06, علي كعبي said:

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

Expand  

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

AllowDeletions = False

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

AllowDeletions = True

 

[Shivan Rekany]

  في 8‏/12‏/2017 at 14:06, علي كعبي said:

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

Expand  

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

[علي كعبي]

  في 8‏/12‏/2017 at 14:36, Shivan Rekany said:

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

Expand  

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

[Shivan Rekany]

  في 8‏/12‏/2017 at 14:51, علي كعبي said:

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

Expand  

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

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

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

[علي كعبي]

  في 8‏/12‏/2017 at 15: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

 

Expand  

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

[Shivan Rekany]

  في 8‏/12‏/2017 at 15:29, علي كعبي said:

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

Expand  

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