تجميع بيانات الحقول على شكل سجلات

[ابو البشر]

السلام عليكم ورحمة الله وبركاته ..... الاخوة الافاضل من مشرفين وأعضاء المنتدى المبارك

لدي جدول به بيانات بشكل حقول متعددة . المطلوب هو نقل هذه البيانات عن طريق كود الى جدول إخر على شكل سجلات . لا أريدها عن طريق استعلام الحاق فقط لأن اسماء الحقول تتغير كل مرة وأيضا عدد هذه الحقول .... والشرح كما في الصور التاليه :

 

Data1.mdb

[jjafferr]

وعليكم السلام

 

وبتغيير بسيط على الكود:

 

نصل الى:

Private Sub cmd_Go_Click()

    Dim rst As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim db As DAO.Database
    Dim RC As Integer
    Dim i As Integer
    Dim j As Integer
    
    Set db = CurrentDb
    db.Execute ("Delete * From bayan1")
    
    Set rst2 = db.OpenRecordset("Select * From bayan1")
    Set rst = db.OpenRecordset("Select * From bayan")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
    
        For j = 0 To rst.Fields.Count - 1
        
            If Len(rst.Fields(j).Value & "") = 0 Then GoTo Next_j
            
            rst2.AddNew
                rst2!a1 = rst.Fields(j).Value
            rst2.Update
Next_j:
        Next j
        
        rst.MoveNext
    Next i
         
    
    rst.Close: Set rst = Nothing
    rst2.Close: Set rst2 = Nothing
    db.Close
    
End Sub

 

جعفر

[عبد الفتاح كيرة]

بارك الله فيكم

[ابو البشر]

تسلم يا استاذ . جعفر ... بارك الله فيك وفي جهودك في المنتدى ومعنا جميعا ... شكرا لك وكتب الله اجرك .

[kanory]

ما شاء الله تبارك الله