فضلاً أريد تصحيح كود إستداعاء قيمة مربع نص بنموذج من نموذج اخر

[alaa aboul-ela]

 

الأساتذة المحترمين

السلام عليكم

أريد تصحيح الكود الخاص استدعاء قيمة مربع نصي من نموذج لنموذج اخر 

إسم المربع النصي أرباح المشاريع من نموذج المشاريع projects الى نموذج حملة الاسهم او المساهمين shareholders

وبارك الله فيكم ...تحياتي 

 

 

 

توزيعات ارباح.rar

[alaa aboul-ela]

طيب لو أمكن استدعاء القيمة من جدول projects عن طريق مجموع حقل !!

[sum[profit.

[أبو آدم]

أخي علاء

في نموذجك shareholders

قم بتسمية الحقل غير المنضم لارباح المشاريع بالاسم strProfTot

في خصائص النموذج

وفي حدث عند التحميل ، قم بكتابة الكود

Private Sub Form_Load()
Dim ProfTotal As Currency
ProfTotal = DSum("profit", "projects")
Me.strProfTot = ProfTotal
End Sub

حيث عرفنا المتغير ProfTotal  كعملة

ثم حددنا قيمته = مجموع قيم الحقل profit من الجدول projects ( بدون شرط / كما طلبت)

ثم جعلنا قيمة الحقل strProfTot في النموذج تساوي ProfTotal

 

* تمت التجربة على المثال --- بنجاح

جرب ووافني بالنتيجة

 

والله من وراء القصد وهو حسبي

 

......

[أبو آدم]

تفضل ...

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

 

........

NA_projectsProfit.rar

[alaa aboul-ela]

شكرا يا استاذي الكريم على تعبك واثمن واقدر مجهودك جزاك الله كل خير ....تحياتي