[Microformt]

الاخوه الكرام
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه 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]

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