*فورم*امكانية جعل المؤشر ينتقل للحقل التالي بعد اكتمال تعبئة خانات الحقل

أخي الكريم

السلام عليكم

جرب الكود التالي على افتراض أن العدد المسموح به هو أربعة ومربع النص اسمه txt1

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

ربما يكون هناك طريقة أفضل والأمر متروك للإخوة الأعضاء للإبداع في هذا المجال

الكود

Dim movtonext As Byte



Private Sub txt1_KeyPress(KeyAscii As Integer)



If KeyAscii = 8 Then

If movtonext > 0 Then

movtonext = movtonext - 1

End If

Exit Sub

End If



If movtonext < 4 Then

movtonext = movtonext + 1

End If

If movtonext = 4 Then

SendKeys ("{tab}")

End If



End Sub



Private Sub txt1_GotFocus()

movtonext = 0

End Sub

أخوك / أبو هاجر

توجد طريقة أخرى في أكسيس إكس بي ولا أعلم إن كانت موجودة في أكسيس 2000 و 97 وهي كالتالي :

في خصائص مربع النص خاصية بيانات "قناع الإدخال " ضع 9999 ثم في خاصية "غير ذلك " جدولة تلقائية أختر " نعم " سوف ينتقل التركيز تلقائي بعد إدخال أربعة أرقام 0

الأخ مصلح

السلام عليكم

تحية عطرة على هذه الفائدة الرائعة فهذه الميزة موجودة حتى في أكسس 97 وأكسس 2000 وهذا يؤكد ما قلته سابقاً من أننا جميعاً نظل في العلم صغاراً ( من المهد إلى اللحد )

أخوك وتلميذك / أبو هاجر

اضافة الى اخي الكريم مصلح

للتعامل مع الحروف استبدل 9999 الى &&&& فيعطيك اربعة احرف ثم ينتقل للحقل التالي

الأخ ابو هاجر

أنا أعرف بأن ذلك لا يخفى عليك ولكن ربما تكون قد نسيت هذه الخاصية لأنها من الأشياء البدائية وأنغمست في العميق 0

تمنياتي لك بدوام الصح والعافية

الاخوان جميعا .....

اشكر لكم اهتمامكم والرد على هذا الموضوع ....

والمهم طرح الموضوع في المنتدى و الاستفادة منه من قبل جميع الاعضاء

تحباتي لكم جميعاً