منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين

الاخوه الكرام
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه Sam1
1- Account_Number
2- Name

كود :

[php]

Private Sub Command1_Click()

    Dim i As Integer

    '' نقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة

    Set rs = db.OpenRecordset("SELECT DISTINCT Account_Number FROM sam2", 2)

        If rs.RecordCount > 0 Then

            rs.MoveLast

            rs.MoveFirst

            ReDim AccountNumbers(rs.RecordCount - 1)

            For i = 0 To rs.RecordCount - 1

                 AccountNumbers(i) = rs.Fields("Account_Number")

                 rs.MoveNext

            Next i

        End If

    rs.Close

    '' نعمل حلقة تكرار تمر على جميع عناصر المصفوفة التي تحتوي على أرقام الحسابات

    For i = 0 To UBound(AccountNumbers)

        ActiveReport1.DAODataControl1.DatabaseName = App.Path & "\db1.mdb"

        ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & ",Date" & ",Account_Number" & ",Deposit" & ",Clouds" & ",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=" & AccountNumbers(i) & " AND Tbl.Operation<=Tbn.Operation) as Balance" & " From sam2 as Tbn Where Account_Number=" & AccountNumbers(i) & " Order By Date,Operation ASC"

        ActiveReport1.PrintReport False

        Set ActiveReport1 = Nothing '' إغلاق الكائن

    Next i

End Sub

[/quote]

ارجو من الله المساعده والله يحفظكم ويرعاكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Microformt