السلام عليكم
بالملف المرفق، 1- جدول tblSource به حقول البيانات ، كل حقل في صف منفصل ... حاولت إستخدم الاستعلامات الانشائيةSQL وباستخدام ال loop - لادخال البيانات في حقول أفقية بالجدول الثاني tblTarget
مثال ....
أحمد
30 يناير
متزوج
حتي تكون أحمد 30 يناير متزوج ...............(. لتأدية Transpose function كما في الاكسل)
DoCmd.RunSQL "INSERT INTO tblTarget(rstTarget.column(i)) Values (rstSource.row(i));"
DoCmd.RunSQL "INSERT INTO tblTarget(rstTarget.Fields(i)) Values (rstSource.Fields(i));"
إذا تفضلتم بمراجعة الكود او اى فكرة لتأدية المطلوب .... جزاكم الله خيرا
Sql_to_transpose.zip
