منع المستخدم من الانتقال الى الحقل التالي وفي نفس الحظه يمكنه العوده الى الحقل السابق

[f16]

الأخوة الاعزاء 

ما هوا الكود الذي يمنع المستخدم من الانتقال الى الحقل التالي وفي نفس الحظه يسمح له بالعوده الى الحقل السابق  بمعنى انه يمنع من التقدم ولكن يسمح له العوده والتحرك في اي مكان من النموذج .

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

ولكم جزيل الشكر والتقدير 

تم تعديل يناير 9, 2018 بواسطه عمار احمد

[jjafferr]

وعليكم السلام

 

الاعداد الذي يجب ان تنظر فيه هو ، تسلسل الكائنات التي يقع عليها التركيز:

1. نوع الكائن في النموذج ، فليس كل الكائنات تقبل التركيز ، مثل كائن التسمية مثلا ،

2. تسلسل الكائنات التي يقع عليها التركيز في النموذج يبدأ بالرقم صفر ،

3. بعض الكائنات لا نريد ان يقع عليها التركيز ، فالاعداد هنا سيكون لا

.

عملت لك الكود التالي لكي يخبرك اسماء كائنات النموذج ، و رقمها Tab index

    Dim ctrl As Control
    
    For Each ctrl In Me.Controls
    
        Debug.Print ctrl.TabIndex & vbTab & ctrl.TabStop & vbTab & ctrl.ControlType & vbTab & ctrl.Name
    Next
    

.

وانت لا تريد ان تسمح بـ TabIndex+1 (طبعا ممكن ان الكائن TabIndex+1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي) ،

وتريد ان تسمح بـ TabIndex-1 (طبعا ممكن ان الكائن TabIndex-1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي)

1 ساعه مضت, عمار احمد said:

يمنع المستخدم من الانتقال الى الحقل التالي وفي نفس الحظه يسمح له بالعوده الى الحقل السابق

.

جعفر

[f16]

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