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

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

السلام عليكم 

لدي نمودج frm يحتوي مربع تحرير وسرد idrxt  ويجود نمودج فرعي يحتوي على  حقل بنفس الاسم وبنفس  البيانات لكن في الاول نص والثاني رقم لان الاول مصدر بياناتة استعلام على حقلان كيف اجعل القيمة الافتراضية للحقل idrxt في النمودج الفرعي تكون مشابهة لما موجود في مربع التحرير في النمودج الرئيسي بمعن لو تم اختيار من مربع التحرير  r1  وعند اضافة سجل جديد في النمودج الفرعي تكون قيمة الحقل idrxt في النودج الفرعي = 1 وهكدا 

t1.accdb

[ابوبسمله]

وعليكم السلام استاذ ازهر

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

Private Sub txt_AfterUpdate()
x = Me.txt.Column(0)
Me.rmb.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.rmb.Form!idrxt = x
End Sub

بالتوفيق

t1.accdb

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

3 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام استاذ ازهر

 

طبعا اشكرك على المجهود الجميل لكن ليس المطلوب لاني اريد القيمة الافتراضية للحقل = ما موجود في مربع التحرير والسرد وليس البيانات 

[ابوبسمله]

الشكر لله

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

بالتوفيق

[ابوبسمله]

اتفضل لعلى قد فهمت ما تريد

Private Sub txt_AfterUpdate()
x = Me.txt.Column(0)
'Me.rmb.SetFocus
'DoCmd.GoToRecord , , acNewRec
Me.rmb.Form!idrxt.DefaultValue = x
End Sub

بالتوفيق

t1.accdb

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

2 دقائق مضت, احمد الفلاحجي said:

اتفضل لعلى قد فهمت ما تريد

بالتوفيق

 

استاد احمد الظاهر هو المطلوب لكن اسمح لي بمراجعة الحل

جزاك الله عني كل خير