أخي علاء
في نموذجك shareholders
قم بتسمية الحقل غير المنضم لارباح المشاريع بالاسم strProfTot
في خصائص النموذج
وفي حدث عند التحميل ، قم بكتابة الكود
Private Sub Form_Load()
Dim ProfTotal As Currency
ProfTotal = DSum("profit", "projects")
Me.strProfTot = ProfTotal
End Sub
حيث عرفنا المتغير ProfTotal كعملة
ثم حددنا قيمته = مجموع قيم الحقل profit من الجدول projects ( بدون شرط / كما طلبت)
ثم جعلنا قيمة الحقل strProfTot في النموذج تساوي ProfTotal
* تمت التجربة على المثال --- بنجاح
جرب ووافني بالنتيجة
والله من وراء القصد وهو حسبي
......