تحويل صف الى عمود

[يونس الخطابي]

في موضوع سابق بعنوان تحويل عمود الى صفوف بشرط / وجدت اجابه شامله ووافيه من ابداعات الاستاذ الفاضل jjafferr  لانني بحثت في الانتريت لتنفيذ ذلك ولم اجد الا في اكسل اما في الاكسس فعلى حد علمي المتواضع لم يقم احد بهذه المحاوله الناجحه .

اليوم كنت بحاجه الى فعل العكس وهو تحويل صف الى عمود  . وارفق طيا قاعدة بيانات تتضمن جداول واستعلامات ونماذج . اهم ما اريد الوصول اليه هو تحويل صف يكون مصدره الاستعلام ( QAAA )  ويظهر على شكل عمود في الجدول( TBBBB )  مع اضافة تحسينات ذكرتها في النموذج المسمى (FAAA ) وجزاكم الله جميعا بخير

jjafferr.rar

تم تعديل يناير 4, 2022 بواسطه يونس الخطابي

[jjafferr]

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

 

تفضل هذا جوابك سؤالك 🙂

 

فقط عليك ان تنادي الوحدة النمطية مرة واحدة حتى تقوم بإدخال جميع بيانات الاستعلام QAAA الى الجدول TBBBB :

Public Function Rows_to_Column()
On Error GoTo err_Rows_to_Column

    Dim Rrst As DAO.Recordset
    Dim Crst As DAO.Recordset
    Dim i As Integer
    Dim fld As Field
    Dim iField_Caption As String
    
    Set Crst = CurrentDb.OpenRecordset("Select * From TBBBB")
    Set Rrst = CurrentDb.OpenRecordset("Select * From QAAA")
    Rrst.MoveFirst

    
    'Records
    Do Until Rrst.EOF
    
        'Field Names
        For Each fld In Rrst.Fields
        
            iField_Caption = fld.Properties("Caption")
            'Debug.Print fld.Name & vbTab & Rrst(fld.Name)
            
            Crst.AddNew
                Crst!NSSASASE = iField_Caption
                Crst!NSSBDEL = Rrst(fld.Name)
            Crst.Update
        Next
    
        Rrst.MoveNext
    Loop


Exit_Rows_to_Column:

    Rrst.Close: Set Rrst = Nothing
    Crst.Close: Set Crst = Nothing
    MsgBox "Done"
    
    Exit Function
    
err_Rows_to_Column:

    If Err.Number = 3270 Then
        'this field does not have a caption for it, give it the field name
        iField_Caption = fld.Name
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_Rows_to_Column
    End If
    
End Function

 

جعفر

[يونس الخطابي]

استاذي الفاضل جعفر المحترم

احيانا نجد اناس يتسارعون لمساعدتنا بكل ما اوتو من قوه ، لاتربطنا بهم صلة قرابه او صلة دم لكنهم يتمنون الخير للجميع ويسعون دوما للمؤازره ذلك لان فعل الخير متجذر في نفوسهم ، ومرضعهم طيب ، وانت في مقدمتهم  ، ادعو الله ان يجعل لكم في كل حرف كتبته الف حسنه  ، وان يدخلك ووالديك الجنه  ، يخونني التعبير وتعجز الكلمات وعبارات الشكر جميعها لتعبر لك عن مدى امتناني ، يكفيك انني عند كل صلاة فجر اذكرك واخوتك العاملين في هذا المنتدى بكل خير  لما يبذلوه من جهد من اجل حل المعضلات التي تواجه اخوتهم. شكرا جزيلا وجزاك الله خير

[jjafferr]

اخي يونس ، شكرا جزيلا لك على جميل كلماتك 🙂

 

جعفر

[يونس الخطابي]

السلام عليكم ورحمة الله وبركاته
اخي العزيز جعفر
تحيه طيبه
فقط للتذكير انا ليست لدي اي معلومات عن البرمجه وقواعد البيانات واحمد الله انني تعلمت ( النسخ واللصق) وقد اعتمدت كثيرا على شروحاتك في هذا المنتدى
هذه القاعده التي تفضلت وعملتها لي يوجد فيها نموذج بحث يتوقف احيانا وقد اتعبني وعملت على استبداله . لكن المشكله التي واجهتني كيفية اضافة الاوامر التاليه في النموذج  LIST
هلا تكرمت علي واضفتها للنموذج ومن ثم نشر القاعده لانه اذا شرحتها لي لا اعرف كيف اضيفها  . على ان تكون جميع الاوامر متعلقه بالسجل الذي وضعنا امامه علامة صح في الخانه ( اظهار)
الامر الاول / يفتح النموذج المسمى   FTQDER1
الامر الثاني / يفتح التقريرالمسمى     TQRERKBER1
الامر الثالث / يفتح مستند وورد اسمه  M_ DAROATH     - اذا كانت هناك صعوبه في حشر المعلومات في ملف الوورد فيكفي امر يفتح هذا المستند 
ارجو ان لا اكون قد اثقلت عليك وجزاك الله خير

jjafferr.rar

تم تعديل يناير 8, 2022 بواسطه يونس الخطابي
تعديل