مساعدة في تحديث النموذج الرئيسي

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

السلام عليكم  

يوجد في النموذج الرئيسي  Fexperience حقل m وهو عبارة عن مجموع الحقل z في النموذج الفرعي  وتظهر نتيجة الحقل عند الضغط على زر التحديث الموجود  وهنلك الحقل xy ,وهو المفرض يساوي  الحقل m  بعد الضغط على زر xy الموجود  المطلوب كيف اجعل نتيجة الحقل m تظهر بعد كل عملية ادخال في النموذج الفرعي دون ان اضغط على زر التحديث وايضا تكون قيمة الحقل xy تساوي قيمة الحقل m  بدون الضغط على زر xy

test.accdb

[أبوبسمله]

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

اتفضل اخى ازهر

بعد محاولات الردود وجزاه الله خيرا مهندسنا الغالى @محمد طاهر وجميع القائمين على الموقع وتطويره

كان هناك مشكله وان شاء الله تكون قد انحلت لدى الجميع ان صادفتهم

جرب ووافنى بالنتيجه بعد الاختيار من النموذج الفرعى من الكمبو idserum

Private Sub idserum_AfterUpdate()
    Me.z = Me.x * Me.y
    DoCmd.RunCommand acCmdSaveRecord
    Forms!Fexperience.SetFocus
    Forms!Fexperience!m = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0)
    Forms!Fexperience!xy = Forms!Fexperience!m
End Sub

بالتوفيق اخى

test(4).accdb

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

5 دقائق مضت, الفلاحجى said:

جرب ووافنى بالنتيجه بعد الاختيار من النموذج الفرعى من الكمبو idserum

 

[husamwahab]

السلام عليكم

مشاركة مع اخي واستاذي الفلاحجي

Private Sub idserum_AfterUpdate()
Me.z = Me.x * Me.y
Forms!Fexperience.Refresh
Forms!Fexperience!xy = Forms!Fexperience!m
End Sub

 

[أبوبسمله]

الان, husamwahab said:

السلام عليكم

مشاركة مع اخي واستاذي الفلاحجي

Private Sub idserum_AfterUpdate()
Me.z = Me.x * Me.y
Forms!Fexperience.Refresh
Forms!Fexperience!xy = Forms!Fexperience!m
End Sub

 

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

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

بالتوفيق

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

11 دقائق مضت, الفلاحجى said:

تقريبا لانك اخترت سجل جديد ولم تختر بيانات من الكمبوكس

 اعتذر منك استاذ الفلاحجي فعلا

 

15 دقائق مضت, husamwahab said:

مشاركة مع اخي واستاذي الفلاحجي

المبدع دائما وابدا  جزاك الله خير   

لكن ارجو منكم اساتذتي  تحملي اذا وجدت المزيد من الاسئلة بعد المراجعة 

[أبوبسمله]

ولا يهمك اخى ازهر

والافضل اجابه اخى العزيز حسام

بالتوفيق

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

الاساتذة  الفلاحجى و  husamwahab ماذا لو اردت الاستغناء عن الحقل M والاعتماذ فقط على الحقل XY   فكيف سيكون شكل الكود

[husamwahab]

حبيبي استاذ احمد

دائما متواضع 

[أبوبسمله]

7 دقائق مضت, husamwahab said:

حبيبي استاذ احمد

دائما متواضع 

احبك الله الذى احببتنى فيه 💐

[أبوبسمله]

15 دقائق مضت, ازهر عبد العزيز said:

الاساتذة  الفلاحجى و  husamwahab ماذا لو اردت الاستغناء عن الحقل M والاعتماذ فقط على الحقل XY   فكيف سيكون شكل الكود

Private Sub idserum_AfterUpdate()
Me.z = Me.x * Me.y
Forms!Fexperience.Refresh
Forms!Fexperience!xy = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0)
End Sub