สร้างข้อมูลตามช่วงของวันที่
กระทู้เก่าบอร์ด อ.Yeadram

 1,203   3
URL.หัวข้อ / URL สร้างข้อมูลตามช่วงของวันที่

Table1 โครงสร้างข้อมูลเป็นแบบนี้ครับ
start_date        end_date          desc
01/09/2011      5/09/2011       AAA
01/09/2011      5/09/2011       BBB
01/09/2011      5/09/2011       CCC

คือต้องการอยากจะนำข้อมูลจาก table1 ไปเพิ่มลงใน table2 ดังนี้ครับ
Table2
date1             desc
01/09/2011    AAA
01/09/2011    BBB
01/09/2011    CCC
02/09/2011    AAA
02/09/2011    BBB
02/09/2011    CCC
03/09/2011    AAA
03/09/2011    BBB
03/09/2011    CCC
....                  ....


ไม่ทราบว่าต้องทำเช่นไรครับ
ขอบคุณมากครับ
โดย: weezaa เมื่อ: 8 ก.ย. 2554 , 14:17

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R10934
ลองดูครับว่าใช้ได้หรือเปล่า ถ้าไม่ได้ไว้มาตอบให้ใหม่ครับ

http://www.thai-access.com/yeadram_view.php?topic_id=2293
โดย: PichaiTC เมื่อ: 8 ก.ย. 2554 , 14:29
2 @R10936
ตามตัวอย่างที่ คุณ PichaiTC ให้มา

ผมลองแก้ไขตามนี้ไม่ทราบว่าถูกต้องหรือไม่ครับ

Public Sub TransposeTable()
Dim lngLoop As Date
Dim strSQL As String
    DoCmd.SetWarnings False
    For lngLoop = me.start_date To me.end_date
        strSQL = "INSERT INTO Table2 (desc, InDate)" _
               & " SELECT Table1.desc, " & lngLoop _
               & " FROM Table1"
        DoCmd.RunSQL strSQL
    Next lngLoop
    DoCmd.SetWarnings True
End Sub

มันขึ้น error 7035 ครับ

ขอบคุณมากครับ
โดย: weezaa เมื่อ: 8 ก.ย. 2554 , 16:42
3 @R10982
ผมดูคร่าวๆ แล้วยังไม่แน่ใจว่าผิดตรงไหน
ไม่ทราบว่า debug เป็นหรือเปล่า ช่วยระบุหน่อยว่า error ขึ้นที่บรรทัดไหน

ถ้าให้เดาอาจจะไม่เกี่ยวกับ code แต่เป็นเรื่อง control หรือ field ก็ได้ครับ

- แนะนำ ที่จริงไม่ควร code ให้ For Loop ด้วยตัวแปร date แต่ในกรณี ยังทำงานได้ถูกต้องอยู่ครับ
โดย: PichaiTC เมื่อ: 13 ก.ย. 2554 , 10:01
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3713s