function Cross_A()
dim sq as string
dim yr as long
dim i as long
dim qr as dao.querydef

yr = dlookup(ไปหาปี จากฟิลด์วันที่ของรายงานมา)

sq = " คัดลอกสายอักขระ sql มาจาก ของเดิมทั้งหมด ระวังเครื่องหมายฟันหนู ถ้ามีให้เปลี่ยนเป็น หยดน้ำค้างทั้งหมด และเอาบรรทัดสุดท้ายออก"

sq = sq & " PIVOT ชื่อฟิลด์ที่จะทำ In (" & yr
for i = 1 to 2
    sq = sq & ", " & yr - i
next
sq = sq & ");"

set qr = query("ชื่อคิวรี่เดิม")
qr.sql = sq
docmd.save เขียนต่อเอาครับ เอาเป็นว่า สั่งบันทึกคิวรี่ตัวนี้
set qr = nothing
docmd.openquery ชื่อคิวรี่
end function

เวลาเรียกใช้ให้เรียกผ่านฟังก์ชั่นครับ (อาจจะโดยมาโคร หรือปุ่มคำสั่งก็ได้)
ทั้งหมดนั่นเขียนสดนะครับ ยังไม่ได้ทดลอง อาจจะเขียนตกบ้างหรือเปล่าก็ไม่รู้ เอาเป็นว่า พอเป็นแนวทางครับ

คงเป็นคำตอบ ว่าทำได้ เดี๋ยวลองทำก่อนครับอาจารย์ ขอบคุณครับ