اريد تقرير بشكل افقي

ما تريده ليس أمراً صعبا لكنني قد أن أخبرك كيف آمل توضيح الهدف فقد يكون هناك فكرة أفضل من فكرتك

السلام عليكم

ان كنت تعتقد الامر سهل فارجو ان توضح ليز سوالى الريد في التقرير سوف اوضح ما ريد بالتفصيل

عندي الاسماء التالية

رقم الاسم

1 علي

2 جعفر

4 كمال

5 حسين

15 حازم

اريد تظهر الاسماء في التفصل التقريرreport detail بشكل عمودي اما في Report footer اريدها بشكل افقي كما يلي موضح

++++++++++++++++++++++++++++-++++++++++++++++

عنوان تقرير الاسماء

---------- Report details ------------------

رقم الاسم

1 علي

2 جعفر

4 كمال

5 حسين

15 حازم

-----------Report footer---------

علي جعفر كمال حسين حازم

ارجو ان وضحت المطلوب

السلام عليكم

مع أنك لم توضح حتى الأن لماذا تقوم بذلك وما هو الهذف إلا أنني سأحاول أن أفيدك

أخي الحبيب اتبع الخطوات التالية

في إحدى الوحدات النمطية أنشئ الدالة التالية

Public Function names_col()

      Dim dbs As Database, rst As Recordset, MYSEC As String, I As Integer

      Set dbs = CurrentDb

      Set rst = dbs.OpenRecordset("SELECT * from table1")

        I = 0

        Do Until rst.EOF

        MYSEC = MYSEC & rst!MYname & " - " 'اكتب اسم الحقل الذي يحتوي على الاسم

        rst.MoveNext

        I = I + 1

        Loop

       rst.Close

       Set rst = Nothing

       Set dbs = Nothing

       If I > 0 Then

       names_col = Left(MYSEC, Len(MYSEC) - 3)

       Else

       names_col = "NO names"

       End If

End Function

بالطبع يجب تغيير ما يلزم في الدالة

ضع مربع نص في تذييل التقرير واجعل مصدر عنصر التحكم هو الدالة بالشكل التالي

=names_col ()

مرحبا شبااااااب

أنا عندي جدول فيه 41 حقل تقريبا

كيف يمكنني أن أعمل له تقرير

علما أن يمكنني أن استغني عن 5 الى 6 حقول في التقرير فقط

أما القية فهي مهمة لي جدا

ولكم شكري