دالة لاستخراج رصيد الصنف

[ابوخليل]

السلام عليكم ورحمة الله وبركاته  وبعد

احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع

وهي  دالة تخرج لنا رصيد الصنف بمجرد تمرير  رقم الصنف عليها

اليكم الدالة مع الشرح

Public Function alRaseed(ByVal vsenf As String) ' vsenf هو متغير نصي ويمكن ان يكون رقمي وهو يمثل رقم الصنف
Dim shra, bai As Integer 'متغيرات رقمية
shra = Nz(DSum("kmyahB", "tbl_buy", "N_mad=" & vsenf), 0) ' مجموع عدد الاصناف المشتراه من الصنف المحدد
bai = Nz(DSum("kmyahS", "tbl_sales", "N_Mda=" & vsenf), 0) ' مجموع عدد الاصناف المبيعة من الصنف نفسه
alRaseed = shra - bai ' الرصيد المتبقي
End Function
'وفي النموذج ا
Private Sub Cmd1_Click()
text1 = alRaseed("0000121")
'الرقم بين القوسين يمثل معرف الصنف
'ويمكن ان نضع داخله اسم حقل الصنف
End Sub

اذا الشرح غير كافي يمكنني زيادة الايضاح

[ابوخليل]

تم تطبيق الدالة على المثال  هنا

التطبيق في حقل الرصيد في نموذج المبيعات

[شامل2]

8 ساعات مضت, ابوخليل said:

تم تطبيق الدالة على المثال  هنا

التطبيق في حقل الرصيد في نموذج المبيعات

السلام عليكم

الاستاذ العزيز ابو خليل

الشرح واف وكاف

الله يبارك فيك

نحتاج بعض الوقت للتطبيق بشكل مناسب