تقييم الموضوع :
  • 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]

ارجو من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ربط اداة datareport مع قاعدة البينات عن طريق الكود عبدالله الصافي 2 47 15-07-18, 02:30 AM
آخر رد: عبدالله الصافي
  ارجو المساعدة فى هذا الكود mhareek 1 71 02-05-18, 07:18 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 114 28-04-18, 02:18 AM
آخر رد: Amir_Alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 120 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 182 23-03-18, 06:26 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 145 12-03-18, 07:09 AM
آخر رد: Microformt
  عدم تكرار الاسم لنفس التاريخ amro_demon 3 164 04-03-18, 01:20 PM
آخر رد: amro_demon
  هل الحدث click يقوم بفتح الـــ combox اذا وضعته في الحدث GotFocus allobaed 7 78 16-02-18, 03:40 PM
آخر رد: allobaed
  ما هو الخطأ فى هذا الكود مبرمج مصرى 0 65 07-02-18, 04:59 PM
آخر رد: مبرمج مصرى
  عمل مجموعة أرقام اسلام الكبابى 6 123 23-01-18, 06:52 PM
آخر رد: اسلام الكبابى

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


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