30-08-14, 09:06 AM
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه Sam1
1- Account_Number
2- Name
[/quote]
ارجو من الله المساعده والله يحفظكم ويرعاكم
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه 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
ارجو من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ