كيف يمكن استخدام دالة dsum لحساب الآتى :
1- اجمالى المطلوب دفعه من المريض خلال زياراته للطبيب وذلك لكل مريض على حدة مع تسجيل هذه القيمة فى حقل ALL_Price
2- وكذلك اجمالى المدفوع من المريض خلال زياراته للطبيب وذلك لكل مريض على حدة مع تسجيل هذه القيمة فى حقل ALL_Payed
ارجو ان تكون الاجابة باستخدام vba
وشكراً مقدماً لمن يرغب فى مساعدتى
ليس هناك من يساعد ؟ للرفع
السلام عليكم ورحمة الله وبركاته
أخي الكريم عند تصميم البرامج لاينصح بوضع حقول للحساب مثل مجموع المدفوع ومجموع المستحق وإنما يتم ذلك من خلال استخدام الاستعلامات في معظم الأحيان
وإاليك يا أخي توضيخ لما تم عمله
وسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
جزاكم الله خيراً اخى اياد بيك على سرعة الرد ولكن
هل هناك طريقة أخرى باستخدام vba بحيث يتم ادراج قيمة اجمالى المطلوب الى حقل ALL_Price مباشرة مثل المستخدمة فى مثال الاخت زهرة التالى :
/index.php?showtopic=257542&st=0&p=1267041&hl=dsum&fromsearch=1entry1267041
تم تعديل هذه المشاركة بواسطة سكر سكر في 12 مارس 2012 في 23:43
السلام عليكم ورحمة الله وبركاته
Private Sub Form_AfterUpdate()
Me.All_Price = DSum("[Price]", "Pation_History", "Pation_ID=" & Me.Pation_ID)
Me.All_Payed = DSum("[Payed]", "Pation_History", "Pation_ID=" & Me.Pation_ID)
End Sub
Private Sub Form_Load()
Me.All_Price = DSum("[Price]", "Pation_History", "Pation_ID=" & Me.Pation_ID)
Me.All_Payed = DSum("[Payed]", "Pation_History", "Pation_ID=" & Me.Pation_ID)
End Subتفضل أخي التعديل المطلوب
تم تعديل هذه المشاركة بواسطة إياد بيك في 13 مارس 2012 في 00:23
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…