استفسار حول تغير قيمة حقل مربع تحرير وسرد عند الدخول

[ازهر عبد العزيز]

السلام عليكم .... لدي نموذج fxy  يحتوي مربع تحرير وسرد typ يحوي قيم    (x,x1,y,y ) ويوجد نموذج اخر هو finterto يحوي اربع ازرار مسميات بنفس قيم مربع التحرير والسرد كيف استطيع الدخول الى نموذج fxy من خلال هذة الازرار بشرط عند الضغط على اي زر يفتح نموذج fxy ويتغير قيمة مربع التحرير والسرد بحسب اسم الزر الذي تم ضغطة مثال عند الضغط على زر  x يجب ان يفتح النموذج fxy ومربع التحرير والسرد تكون قيمتة  x وهكذا بقية الازرار

xy.accdb

تم تعديل أبريل 18, 2020 بواسطه ازهر عبد العزيز

[أبوبسمله]

وعليكم السلام  اخىى @ازهر عبد العزيز

اتفضل ان شاء الله يكون ما تريد

بالتوفيق ان شاء الله

xy.accdb

مرفق تعديل بسيط

 

xy1.accdb

[ازهر عبد العزيز]

ما شاء اللة عليك استاذي العزيز @أحمد الفلاحجى  احسنت مطلب اخر لاني لم اوضح في سؤالي هل بالامكان جعل  قيمة مربع التحرير والسرد افتراضية عند الدخول  لاني لااريد اضافة سجل جديد عند الدخول  اي عند الدخول من زر x مثلا تكون قيمة مربع التحرير والسرد  الافتراضية  x    بحيث تبقى قيمة idxy هي جديد  ارجو اني وضحت ولم اثقل عليك بطلباتي 

[أبوبسمله]

اتفضل اخى @ازهر عبد العزيز

ان شاء الله يكون ما تريد

بالتوفيق ان شاء الله

xy1.accdb

[kha9009lid]

بصراحة اخي @أحمد الفلاحجى

حبيت الحل هذا لانه جميل جدا

بارامتر 6

OpenArgs

DoCmd.Close
DoCmd.OpenForm "fxy", , , , , , "y"

ثم في القيمة الافتراضية للحقل المستهدف

=[Forms]![fxy].[OpenArgs]

ويحقق المطلوب حسب طلب الاستاذ @ازهر عبد العزيز

مع ذلك لو كان لدينا سجل محفوظ في الجدول لايعمل الكود وسوف يظهر لنا السجل الاول فقط بالقيمة المحفوظة للقائمة المنسدلة

ويمكن التغلب على المشكله بتعديل بسيط

DoCmd.OpenForm "fxy", , , , , , "x"
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "finterto"

وايضا هناك طريقة اخرى

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

DoCmd.OpenForm "fxy"
DoCmd.GoToRecord , , acNewRec
Form_fxy.typ.DefaultValue = """" & Me.x.Caption & """"
DoCmd.Close acForm, "finterto"

وتفسير الكود

افتح نموذج fxy

انتقل الى سجل جديد

اجعل القيمة الافتراضية للقائمة المنسدلة تساوي تسمية زر الامر

اغلق نموذج finterto

واكرر الحل المقدم منكم اجمل 🌹

الملف مرفق

xy1.accdb

[ازهر عبد العزيز]

الاساتذة المبدعين @أحمد الفلاحجى  و @kha9009lid

[أبوبسمله]

جزاك الله خيرا اخى واستاذى خالد @kha9009lid انت الاروع اخى

حلولك رائعه وتفسيرك للاحداث اكثر من رائع جزاك الله خيرا

وللعلم هذه ثانى مره اتعامل مع بارامتر  6 OpenArgs فمعلوماتى فيه قليله وها انا اتعلم منكم استاذى العزيز بارك الله فيك