أريد تحويل بيانات عمود إلى صف في جملة واحدة

[السعيدان]

قام بنشر أكتوبر 18, 2019

السلام عليكم ورحمة الله تعالى وبركاته

تم التطرق الى الموضوع سابقا وقد نشر في 18 أكتوبر 2019 على الرابط :

 

وقد حاول تطبيقه على جدول (مرفق Database1) محاولا الاستفادة ولكن دون جدوى. 

لمن يستطيع مساعدتي، أكون شاكراً له.

بحيث يكون كما هي الصورة :

الملف:

 

Database1.accdb

[السعيدان]

نعم، حاولت تطبيقه على جدول (مرفق Database1) محاولا الاستفادة ولكن دون جدوى. 

من يستطيع مساعدتي؟ أكون شاكراً له.

حيث تظهر نتيجة ERROR في المعادلة في الوحدة النمطية ( Dim rs As New ADODB.Recordset ) ولا أعرف كيف حصل ذلك،

[ازهر عبد العزيز]

وعليكم السلام عليكم ورحمة الله تعالى وبركاته

تفضل لعلة طلبك

Database1.accdb

[السعيدان]

جزاك الله خير أخي أزهر، ولكني أرفقت صورة لتبيان قصدي من تحويل عمود إلى صف، وذلك بتجميع عدة صفوف تشترك في قيمة حقل ( NB )، وتقوم بتجميع قيم الحقل (Q) في خانة واحدة وصف واحد بالقيم التي توازي قيمة الحقل ( NB ). كما هو مبين بالصورة المرفقة التالية: 

 

[السعيدان]

كما أن الكود يكون بالإستعلام ( Q3 ) بحيث يكون البيانات في خانة واحدة في الاستعلام.

("AllContNo: Concatenate1("SELECT Q FROM Q1 WHERE ID='" & [ID] & "'" & " ORDER BY ID

 

[ازهر عبد العزيز]

اخي السعيدان ماذا تقول لو جعلنا الحقل Q يظهر اعداد العمليات التي حدثت كما في الصورة

واعتذر اذا لم يكن المطلوب واسمح لي بالتعلم معك 

[السعيدان]

نعم أخي أزهر، يمكن ذلك، بحسب علمي أن يكون بالاستعلام الجدولي.

 

[kha9009lid]

جرب المرفق

من مشاركة سابقة لاستاذنا الفاضل @jjafferr

 

0.accdb

[السعيدان]

جزاك الله خير أخي الاستاذ:kha9009lid ، نعم هذا ما أردته، ولك مني ألف شكر،

ويا حبذا لو استطعنا أن نجعل في الحقل ( q) الترتيب من اليمين إلى الشمال بالتسلسل إن أمكن، وإذا لا يمكننا ذلك، فهذا الذي أرفقته يكفي.

وأقصد بالترتيب أن يكون هكذا ( عند الحرف ( A ) يكون ترتيب الأشهر ( يوليو/2020 - أغسطس/2020 - سبتمبر/2020 ) وليس ( سبتمبر /2020 - أغسطس/2020 - يوليو/2020 ) كما هو بالصورة التالية:

[kha9009lid]

3 ساعات مضت, السعيدان said:

ويا حبذا لو استطعنا أن نجعل في الحقل ( q) الترتيب من اليمين إلى الشمال بالتسلسل إن أمكن، وإذا لا يمكننا ذلك، فهذا الذي أرفقته يكفي

ممكن عن طريق وحدة نمطية واستعلامين 2

النتيجة النهائية في استعلام q_2

ConcatRelated("[q]";"nam4";"[nb] = " & [nb];"[id]";" - ")

 

0.accdb

تم تعديل أكتوبر 1, 2020 بواسطه kha9009lid

[ابو عارف]

بارك الله فيك الاستاذ خالد

و هذا طريقة تغير بسيط في جملة sql

0.accdb

 

 

تم تعديل أكتوبر 2, 2020 بواسطه ابو عارف

[kha9009lid]

22 دقائق مضت, ابو عارف said:

و هذا طريقة تغير بسيط في جملة sql

طريقة مميزة واضافة رائعة وباستعلام واحد

والاجمل انها من استاذ قدير تعلمنا منه الكثير

تحياتي وتقدير لاخي واستاذي ابو عارف

[ابو عارف]

جزاك الله خير استاذ خالد كلنا نتعلم بعضنا من بعض 

 و لك مني اجمل تحايا.

[السعيدان]

بارك الله فيك اخي واستاذي ابو عارف، نعم هذا ما قصدته بالضبط.

جعله الله في ميزان أعمالك.

مشكورين جميع الأساتذة، وفي أمان الله.