إلغاء عمل ctrl + z في كتابة نص طويل

[fwares]

السلام عليكم

قمت باتتمة نظام امتحانات عام ويوجد سؤال عن كتابة موضوع طويل وكانت النتائج ممتازة 

ظهرت المشكلة ان معظم المستخدمين لديهم عادة الضغط عل اختصار التراجع عند كتابة نص خطا 

المشكلة ان الاكسس يقوم بالغاء النص المكتوب بالكامل من مربع النص وليس اخر كلمة مثل برنامج الورد وهنا تكون مشكلة كبيرة جدا حيث يذهب كل المكتوب ولا يمكن اعادته 

 

المطلوب إما إلغاء زري ctr + z  عند الكتابة او جعل مربع النص مثل برنامج الورد يقوم بالغاء اخر كلمة فقط 

ارجو المساعده 

Database1.accdb

[Shivan Rekany]

1 ساعه مضت, fwares said:

المطلوب إما إلغاء زري ctr + z  عند الكتابة

اليك هذا

Private Sub writing_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case True
    Case ((Shift = acCtrlMask) And (KeyCode = vbKeyZ))
        KeyCode = 0
    End Select
End Sub

 

[fwares]

شكرا جزيلا واكرمك الله 

عملت المطلوب تماما تماما 

هل يمكن الاستفادة اكثر من خبرتك وجعل الكود يتراجع عن اخر كلمة قام بكتابتها فقط " مثل برنامج وورد " ؟؟؟؟ 

علما انه يمكنني القول انني حققت المطلوب وشكرا

 

[Shivan Rekany]

1 ساعه مضت, fwares said:

هل يمكن الاستفادة اكثر من خبرتك وجعل الكود يتراجع عن اخر كلمة قام بكتابتها فقط " مثل برنامج وورد "

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

Private Sub writing_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case True
        Case ((Shift = acCtrlMask) And (KeyCode = vbKeyZ))
            KeyCode = 0
                With writing
                        .SelStart = Len(.Text) - 5
                        .SelLength = Len(.Text)
                        DoCmd.RunCommand acCmdDelete
                End With
    End Select
End Sub

 

Database1.accdb

[fwares]

لساني يعجز عن شكرك 

بالفعل حللت مشكلة كبيرة لي ولك جزيل الشكر بالاضافي إلى انني تعلمت اشياء جديدة من الكود الذي ارسلته 

 

شكرا شكرا شكرا