عندى جدول مبيعات الاصناف موضحا عدد ونوع وكمية الاصناف المباعة وعندى جدول مقابل بالاصناف التى ترد من الموردين للمخزن
المطلوب كيف اقوم بالربط بين الجدولين لكى احصل على رصيد المخزون ؟
استخدم مكتبات فيجوال بيسك 6 واكسيس اريد الحصول على جدول ثالث يوضحى رصيد كل صنف - وشكرا لحضراتكم .
يأخي الموضوع سهل مايحتاج جدول ثالث
يحتاج فقط حقل للكمية المردودة فقط
وتخصم وتخصم الكمية المردودة من الكمية الواردة يطلع لك صافي المخزون
تحياتي ولو ترفق البرنامج لتعديل علية
اولا جزاك الله خيرا - ولكن كنت اريد رصيد كل صنف - حتى يمكن الجرد بسهولة - اى اود معرفة رصيد كل صنف وليس مجموع المشتريات والمبيعات
ومنتظر رد حضرتك - جزاك الله خير الجزاء
فعلا احتاج شاشة توضح حركة الصنف لكل صنف على حدة حتى يمكن عمل جرد للمخزن كالتالى :
الصنف النوع اجمالى الكمية شراء اجمالى الكمية بيع الرصيد الحالى
خشب زان 7م 500 300 200
خشب زان 10م 300 100 200
خشب موسكى 5م 300 200 100
خشب موسكى 3م 6200 600 200
هذا ماريدة بالفعل - ولا اعرف كيف اشكرك - وانك تحاول مساعدتى -جعلة الله لك فى ميزان حسناتك واعطاك الصحة والعافية
If myRecordSet.RecordCount > 0 Then
With Me.MSFlexGrid1
.Rows = myRecordSet.RecordCount + 1
Dim r As Integer
For r = 1 To myRecordSet.RecordCount
.TextMatrix(r, 0) = Format$(myRecordSet.Fields("Operations.id"), "0000") '' رقم العملية
.TextMatrix(r, 1) = Format$(myRecordSet.Fields("Date"), "yyyy/MM/dd") '' تاريخ العملية
.TextMatrix(r, 2) = Format$(myRecordSet.Fields("ItemID"), "0000") '' رقم الصنف
.TextMatrix(r, 3) = myRecordSet.Fields("Description") '' وصف الصنف
.TextMatrix(r, 4) = myRecordSet.Fields("Quantity") '' الكمية
.TextMatrix(r, 5) = myRecordSet.Fields("OperationName") '' نوع العملية
myRecordSet.MoveNext
Next r
Me.Label1.Caption = "مجموع العمليات: " & Str(myRecordSet.RecordCount)
If myRecordSet.RecordCount > 0 Then
With Me.MSFlexGrid2
.Rows = myRecordSet.RecordCount + 1
Dim r As Integer
For r = 1 To myRecordSet.RecordCount
.TextMatrix(r, 0) = Format$(myRecordSet.Fields("ItemID"), "0000") '' رقم الصنف
.TextMatrix(r, 1) = myRecordSet.Fields("Description") '' نوع الصنف
.TextMatrix(r, 2) = myRecordSet.Fields("SUMSale") '' كمية الشراء
.TextMatrix(r, 3) = myRecordSet.Fields("SUMBuy") '' كمية البيع
.TextMatrix(r, 4) = myRecordSet.Fields("SUMQuantity") '' الكمية المتبقية
myRecordSet.MoveNext
Next r
اكثر من رائع واكثر مما اتخيل استاذى ابو رائد - جعلة الله فى ميزان حسناتك يوم اللقاء - ولا انسى بالطبع كل التحيه والشكر لأخونا الفاضل الاستاذ تركى الحلوانى -اعطاكم الله الصحة والعافية
والسلام عليكم ورحمه الله وبركاتة