عند الضغط على ESC

[jo_2010]

الخبراء الافاضل

بعد التحية

عندى نموذج بة حقل pname واريد من المستخدم ادخال بيانات بة

حتى لايترك فارغ وضعت فى حدث عند الخروج

وهو من احد الافاضل بالمنتدى

On Error Resume Next
If IsNull(Me.PNAME) Or Me.PNAME = "" Then
If ctrlNum = 0 Then
Cancel = -1
Undo
Exit Sub
End If
End If

وعند الانتقال لسجل جديد  دون قصد ويكون المؤشر على الحقل pname 

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

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

دمتم فى رعاية الله وشكرا لكم مقدما

[jo_2010]

لو حد عندة كود اخر غير الكود الموجود بالاعلى يكتبة مع مرعاة حرية العودة لسحل سابق 

[متقاعد]

5 ساعات مضت, jo_2010 said:

وضعت فى حدث عند الخروج

 

5 ساعات مضت, jo_2010 said:

وعند الانتقال لسجل جديد  دون قصد ويكون المؤشر على الحقل pname 

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

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

 

هذا الامر مزعج جدا

ولكن ممكن تقييده

الفكرة اننا نتحايل عليه من خلال متغير بسيط في اعلى النموذج

واضافة شرط قيمة المتغير في الكود الذي اشار اليه الاستاذ يوسف

وتتغيير القيمة للمتغير من خلال زر Esc

ليست الفكرة المثالية وان كانت تؤدي الى حل المشكلة

مع ذلك ننتظر ابداعات اخواننا واساتذتنا ربما يقدمون حل افضل

تحياتي

[متقاعد]

15 ساعات مضت, مبرمج متقاعد said:

مع ذلك ننتظر ابداعات اخواننا واساتذتنا ربما يقدمون حل افضل

مادام الامر لم يجد اقتراحات او افكار ماعدا مشاركة الاستاذ rockjone33

فسوف اشرح فكرتي المتواضعة

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

ثانيا في رأس محرر الاكواد للنموذج وضعنا متغيير

Dim x As Byte

في حدث عند الخروج للحقل pname فقط وضعنا في بدايته الشرط

If x = 0 Then
If IsNull(Me.PNAME) Or Me.PNAME = "" Then
MsgBox "حقل الاسم مطلوب", , "!!!"
Cancel = -1
Undo
Exit Sub
Else
End If
End If

في خصائص النموذج تبويب حدث غيرنا مفتاح المعاينة الى نعم

اخير في حدث عند مفتاح للاسفل وضعنا الامر التالي

x = 1
If KeyCode = 27 Then
DoCmd.GoToRecord , , acPrevious
x = 0
Else
End If

مرفق مثال بسيط

Database61.accdb

[jo_2010]

الفاضل 

مبرمج متقاعد

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

شكرا

[متقاعد]

4 دقائق مضت, jo_2010 said:

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

انا افضل حلقة تمر على الحقول ثم تخبرني بالحقل الفارغ وتنقل التركيز اليه ويمكن ايضا تلوين خلفية الحقل ولكنه مجرد رأي شخصي

وتوجد العديد من الامثلة بالموقع

تحياتي

[jo_2010]

 ارسلت لحضرتك المثال المرسل من سيادتكم عند وضع خقل قبل pname

وكتابة اى شى فية وعند الوصول الى pname  وبدون كتابة اى شئ فية وهو فارغ بكل سهولة يمكننى الانتقال للحقل التالى وهو فارغ وهذة فجوة فى الكود ارجو اصلاحها لو تكرمت بعد اذنك

 

Database61.accdb

[متقاعد]

جرب الان

Database61(1).accdb

[jo_2010]

ربنا يكرمك كثر خيرك خاتص الشكر