تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه 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]

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

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب بسيط نقل أرقام؟؟؟ KamelArab 2 46 أمس, 06:45 PM
آخر رد: sendbad100
  مساعدة في تطبيق هذا الكود bidaya 0 43 06-12-16, 04:46 AM
آخر رد: bidaya
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 424 17-11-16, 11:54 PM
آخر رد: iisys
  [vb6.0] الكود باستخدام فيجوال بيسك6 تالين الورفلي 2 98 23-10-16, 10:38 AM
آخر رد: Ashraf Elafify
Question [vb6.0] كيف اجعل برنامجي المرفق يخذ سمات الوندز ؟؟ Microformt 0 73 07-10-16, 05:12 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 90 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 124 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
Shocked [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود ياسر عبد الكريم 2 117 26-09-16, 11:54 PM
آخر رد: ياسر عبد الكريم
  الفرق بين تاريخين بدون احتساب ايام الجمعه والسبت mohammed.atallah 3 195 17-08-16, 09:54 AM
آخر رد: mohammed.atallah
  [سؤال] ما هو الخطاء في هذا الكود allobaed 4 149 11-08-16, 06:04 PM
آخر رد: allobaed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم