الذهاب إلى سجل جديد لحقل محدد في نموذج فرعي

[عبدالعزيز محمد]

بارك الله في الجميع

عذرا لم استطع إرفاق ملف ويمكن التوضيح بملف آخر أو استخدام التوضيح التالي كمثال...

اسم النموذج الرئيسي= Form1

اسم النموذج الفرعي =SubForm1

اسم الحقل المراد نقل التركيز إليه =Name

أريد كود يقوم بالتالي: الانتقال إلى سجل جديد في النموذج الفرعي بالنموذج الرئيسي بشرط أن يكون نقل التركيز لحقل محدد ويكون سجل جديد

ومرة اخرى اعتذر عن ارفاق ملف 

[ابوخليل]

forms!form1!subform1![name].SetFocus

ملحوظة : كلمة name محجوزة في اكسس فحاول تعديلها

اذا لم يعمل انظر الى اسم عنصر تحكم النموذج الفرعي  هل هو = subform1

[عبدالعزيز محمد]

جزاك الله خيرا والكود يعمل وتم تغيير اسم الحقل name بــmonth

وأريد نقل التركيز لحقل جديد للحقل month 

أي نقل التركيز لأول حقل فارغ

وأشكرك مرة أخرى .......

[ابوخليل]

هههههههه

حتى month  محجوز  في اكسس يرمز الى الشهر

forms!form1!subform1.SetFocus
DoCmd.GoToRecord , , acNewRec
txt_month.SetFocus

 

[عبدالعزيز محمد]

السلام عليكم 

قمت بكل ما نصحتموني به وكتابة الكود ولكن لم ينجح فأرسلت -مرفق-بعد محاولات عدة لتجهيز ملف أود ما تم طلبه 

اسم النموذج الرئيسي= FormTeachers

اسم النموذج الفرعي =FormSubTeachers

اسم الحقل المراد نقل التركيز إليه =MONTH

أريد كود يقوم بالتالي: الانتقال إلى سجل جديد في النموذج الفرعي بالنموذج الرئيسي بشرط أن يكون نقل التركيز لحقل محدد ويكون سجل جديد

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

نأمل أن يكون المطلوب واضحا ومفهوما والشكر لجميع من ساهم في إنجاح هذا الصرح الذي استفدت منه كثيرا 

ملاحظة الملف بنسخة أوفيس 365

Aziz.rar

[عبدالعزيز محمد]

السلام عليكم

مازلت انتظر التعديل على الفورم 

[ابوخليل]

عليكم السلام

اغلب تسميات الحقول في مثالك هي دالات محجوزة في اكسس

تفضل هذا بريمج صغير لدالات اكسس ، قبل ان تعتمد التسمية ابحث عنها فيه

اذا عدلت المرفق ارفعه مرة اخرى

dbx.mdb

[عبدالعزيز محمد]

بارك الله فيك وجزاك الله خيرا 

قمت بتغيير تسميات الحقول 

Aziz.rar

[ابوخليل]

اعتذر عن تأخري في الرد

الكود الذي يحقق مطلوبك وجدته فعلا في المرفق ، وايضا عند تحريك المفاتيح اعلى واسفل يتغير السجل في الرئيسي والفرعي

FormSubTeachers.SetFocus
DoCmd.GoToRecord , , acNewRec
FormSubTeachers.Form!MONTH_NO.SetFocus

ولكن المشكلة في القائمة المنسدلة ، حيث اجريت من خلالها احداث كثيرة

ايضا يمتنع اكسس من نقل التركيز منها الى الفورم

الحل المناسب ان تضع هذا الكود خلف زر : اضافة

 

[عبدالعزيز محمد]

السلام عليكم وجزاك الله خيرا على الاستجابة وعلى النصائح التي استفدت منها وكل رواد المنتدى

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

 

[ابوخليل]

ارفق مثالك لأرى الخلل عن قرب

[عبدالعزيز محمد]

لقد اتعبتك معي عذرا

وهذا المثال

Aziz.rar

[ابوخليل]

ما زالت التسميات في النموذج على الوضع القديم

الحقل اسمه month  لم يتم تغييره الى month_No

تفضل

FormSubTeachers.SetFocus
DoCmd.GoToRecord , , acNewRec
FormSubTeachers!MONTH_NO.SetFocus

 

Aziz_up.rar