ابوخليل قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 السلام عليكم ورحمة الله وبركاته وبعد احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع وهي دالة تخرج لنا رصيد الصنف بمجرد تمرير رقم الصنف عليها اليكم الدالة مع الشرح 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 اذا الشرح غير كافي يمكنني زيادة الايضاح 3 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 6, 2016 الكاتب مشاركة قام بنشر مايو 6, 2016 تم تطبيق الدالة على المثال هنا التطبيق في حقل الرصيد في نموذج المبيعات 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 8 ساعات مضت, ابوخليل said: تم تطبيق الدالة على المثال هنا التطبيق في حقل الرصيد في نموذج المبيعات السلام عليكم الاستاذ العزيز ابو خليل الشرح واف وكاف الله يبارك فيك نحتاج بعض الوقت للتطبيق بشكل مناسب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.