التنقل داخل مربعات النص

السلام عليكم و رحمة الله و بركاته

text1.setfocus

أولا يمكنك التنقل بضغط Enter .

ثانياً : تكملة لما كتبه الأخ مصراوي :

لنقل التركيز من اليوم إلأى الشهر بعد كتابة رقمين :

If Len(Me![يوم].Text) = 2 And Me![يوم].SelLength = 0 Then Me![شهر].SetFocus

ولنقله من الشهر إلى السنة :

If Len(Me![شهر].Text) = 2 And Me![شهر].SelLength = 0 Then Me![سنة].SetFocus

وللجميع التحية

أخي الفاضل ابو حمود

أشكرك كثيراً

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

حينما ترد سواء أنت أو احد الإخوة الأفاضل على أي سؤال تأكد بأن الإجابة عليه تنفع الكثيرين ولا تتوقف الفائدة على السائل فقط أثابكم الله وزادكم علماً وفقكم الله 0

الأخ 5060

وفقك الله لكل خير .

لم يكن في الكود الذي كتبته أمر إنتقال إلى حقل اليوم بل هو من اليوم إلى الشهر ومن الشهر إلى السنة فقط ؟

فأين كانت تظهر الرسالة ؟ وبعد ماذا ؟

واكتب الكود الذي حليت به المشكلة .

ولك تحياتي

استاذي الجليل

الحقول هي :

txtDay

txtMonth

TxtYaer

الكود الذي كتبته هو:

If Len(Me![txtDay].Text) = 2 And Me![txtDay].SelLength = 0 Then Me![txtMonth].SetFocus

وبالمثل للشهر والسنة أغير فقط الأسماء بين الأقواس مثل الإنتقال من حقل الشهر إلى حقل السنة بين القوسين [] الأولين أكتب اسم الشهر txtMonth والقوسين الأخيرين السنة txtYaer

:D :D

لم أعرف السبب :(

ولكن هل الكود وضعته في القاعدة التي أرسلت لي وفي أي نموذج بالتحديد منها لأجرب المشكلة فيه ؟

ولك تحياتي