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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 192 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 48 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 83 30-09-17, 08:27 PM
آخر رد: bidaya
  امل ان اجد احد فيكم من اعضاء المنتدى الكريم يقوم بالعديل لي علا المثال المرفق wolf1120 9 275 21-09-17, 02:06 PM
آخر رد: wolf1120
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 194 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري
  كيفية توجيه مربع نص إلى جدولين بإستخدام Adodc المبرمج العتيق 1 81 12-09-17, 03:28 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] احتاج مثال شجرة الحسابات كاملة iAwadop 5 335 08-09-17, 08:19 PM
آخر رد: محمود بكرى
Question [vb6.0] كيف اجعل الصوره تتوسط الفورم سوى كان عند التكبير او التصغير ؟ Microformt 1 92 05-09-17, 10:22 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 159 22-08-17, 07:00 PM
آخر رد: Microformt
  المقارنة بين جدولين فيصل علي 9 205 19-08-17, 02:44 AM
آخر رد: فيصل علي

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


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