وضع الكود المناسب مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

الشرح داخل المرفق

لكم جزيل الشكر والتقدبرتقارير شهرية.rar

[طلعت محمد حسن]

السلام عليكم

اخي طارق لقد قمت بأجراء بعض التغيرات عن طريقة الاستعلام وجعلها بين تاريخين انت تحددها لا ادري اذا كان هذا يناسب طلبك

 

اقبل تحياتي واحترامي

تقارير شهرية1.rar

[طارق زكريا حسين جاه الرسول]

اخى العزيز

طلعت محمد حسن

بعد التحية

اولا اشكر

انا اريد البحث بالتاريخ واسم الصنف

لكم الشكر

[شوقي ربيع]

السلام عليكم

الشكر موصول للاخ طلعت

هذا حل بواسطة المصفوفات فهي اسريعة ودقيقة

كود البحث  وفي نفس الوقت يجمع عمود الاسعار

         For i = LBound(keyArray) To UBound(keyArray)
                 bMonth = Month(keyArray(i, 1))
            If keyArray(i, 4) = d And bMonth = ComboBox1.ListIndex + 1 Then
                e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e)
                itemArray(1, e) = keyArray(i, 1)
                itemArray(2, e) = keyArray(i, 4)
                itemArray(3, e) = keyArray(i, 5)
                itemArray(4, e) = keyArray(i, 7)
                x = x + Val(keyArray(i, 7))
            End If
        Next i
      
        If e > 0 Then
            If UBound(itemArray, 2) > 1 Then
                Me.ListBox1.List = Application.Transpose(itemArray)
                Else
                Dim c(1 To 1, 1 To 4)
                c(1, 1) = itemArray(1, 1)
                c(1, 2) = itemArray(2, 1)
                c(1, 3) = itemArray(3, 1)
                c(1, 4) = itemArray(4, 1)
                Me.ListBox1.List = c
            End If
        Else
                Me.ListBox1.Clear
        End If

تحياتي للجميع

تقارير شهرية.rar

[طلعت محمد حسن]

الاستاذ شوقي ربيع دائما نتعلم من عبقريه اعمالك فلك كل الحب والاحترام والتقدير استاذي العزيز

[طارق زكريا حسين جاه الرسول]

استاذى شوقي ربيع

لك كل تقديرى واحترامى