مشكلة في نقل التركيز؟

شكرا اخي abdalla89 على اجابتك

ولكن للاسف يا اخي ليس هذا ما اريده، فما تفضلت به من حل هو وضع امر نقل التركيز الى العنصر

DoCmd.GoToControl "xxx"

ولكن يا اخي، لو لاحظت فأنني قد جمدت نقل التركيز الى العنصر في اسطر الكور

DoCmd.GoToControl "price"

show_Objects " ادخل السعر من فضلك", Me, Price

' Price.SetFocus

فأنا ما اريده كما تلاحظ من الكود ( حيث انني ابقيت الاسطر مجمدة التي تمكنت من التخلص منها بفضل امثالك وامثال الاخوة الاكارم في منتدياتنا الغالية ) من تقليل عدد الاسطر عن طريق التابع

Show_Objects

حيث انني ارسلت له عبر وسطاء التابع ان يكون التركيز على الحقل مثلا Price الا انه لا يستجيب

اذا اعود واكرر

المطلوب: نقل التركيز الى الحقل مثلا Price عن طريق التابع Show_Objects وذلك من اجل تقليل الاسطر الى اكبر حد ممكن.

الرجاء لمن يعرف في ضوء ماذكر تعديل مثالي المرفق

وشكرا

التعديل بالمرفق

Question_2007_07.rar

شكرا اخي Abo Yossof على الحل المقدم من قبلك، فهذا ما كنت اريده

اخي كما تلاحظ استطعت بفضل الله ثم بفضلك اختصار اربعة اسطر عن طريق التابع Show_Objects

وهي

1- اظهار المربع الاحمر

2- اظهار خانة النص

3- ارسال الرسالة التي سوف تعرض بخانة النص

4- نقل التركيز الى العنصر المراد

بقي شئ واحد، لا ادري ان كان بالامكان هذا ام انه مستحيل وهو التخلص من السطر الخامس وهو الخروح Exit sub

السؤال : هل يمكن تضمين التابع Show_Objects الامر Exit sub لنتخلص منه كما ساعدتني بالتخلص سابقا من اربعة اسطر تتكرر باستمرار

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

kafi كتب:

بقي شئ واحد، لا ادري ان كان بالامكان هذا ام انه مستحيل وهو التخلص من السطر الخامس وهو الخروح Exit sub

السؤال : هل يمكن تضمين التابع Show_Objects الامر Exit sub لنتخلص منه كما ساعدتني بالتخلص سابقا من اربعة اسطر تتكرر باستمرار

للاسف اخى هذا غير متاح على ما اعتقد

abdalla89 كتب:

السلام عليكم

سامحوني على تطفلي

ممكن سؤال صغير

ماهو الفرق بين نقل التركيز وبين الحل الذي قدمته في مشاركتي

فأنا لم الاحظ اي فرق ابدا

طبعا ان استخدمت التعليمة التالية

docmd.GoToControl ""

تحياتي للجميع و للاخ الغالي ابو يوسف

لا يوجد فارق اخى

عدا ان الاخ السائل يريدها فى الاجراء العام ( الوجود بالوحدة النمطية ) و ليس فى كود الزر فى النموذج

شكرا اخي Abo Yossof على ماتفضلت به

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