تحديث كمية الأدوية في المخزن تلقائيا باستخدام كود vba

[سعادة السفير]

السلام عليكم

في الملف المرفق، لدي جدولين: ادوية و زيارات طبية،

اريد من فضلكم معرفة طريقة تحديث كمية الادوية في المخزن تلقائيا كلما اُعطيت كمية من الدواء للمريض وذلك باستعمال VBA، أي بعبارة أخرى:

 

tblMedication.QtySrock.NewValue = tblMedication.QtyStock.OldValue - frmVisits.QtyGiven.Value

 

ثم سأكمل بقية الجداول (جدول مقتنيات الأدوية) اتستنادا إلى كود تحديث الإضافة السابق.

 

ارجو أن أكون قد وفقت في الشرح،

شكرا لكل من سيرد.

 

MedicationStock.rar