รบกวนสอบถามครับ

[Eid]

ผมมีตารางชื่อ ABC ดังนี้คับ
CmdCode     CmdTitle    CmdPrice    CmdSupName   CmdDate
11111111    AAAAAA         50          AAAAAAAAA    1/1/2021
22222222    BBBBBB       150          BBBBBBBBB    2/1/2021
33333333    CCCCCC         95          CCCCCCCCC    3/1/2021

ที่หน้าฟอร์ม ผมสร้างปุ่มชื่อ CmdRun
ผมจะใช้คำสั่ง Copy ตาราง ABC อย่างไรคับ
ให้เป็นตารางชื่อ 123 โดยเอาเฉพาะคอลัมภ์ CmdCode , CmdTitle , CmdPrice , CmdDate
รวมทั้งข้อมูลด้วยครับ รบกวนด้วยครับ
ขอบคุณมากครับ

[PNR]

ผมมีตารางชื่อ ABC ดังนี้คับ
CmdCode     CmdTitle    CmdPrice    CmdSupName   CmdDate
11111111    AAAAAA         50          AAAAAAAAA    1/1/2021
22222222    BBBBBB       150          BBBBBBBBB    2/1/2021
33333333    CCCCCC         95          CCCCCCCCC    3/1/2021

ที่หน้าฟอร์ม ผมสร้างปุ่มชื่อ CmdRun
ผมจะใช้คำสั่ง Copy ตาราง ABC อย่างไรคับ
ให้เป็นตารางชื่อ 123 โดยเอาเฉพาะคอลัมภ์ CmdCode , CmdTitle , CmdPrice , CmdDate
รวมทั้งข้อมูลด้วยครับ รบกวนด้วยครับ
ขอบคุณมากครับ

ใช้ MakeTable Query ครับ
มันสามารถกำหนด ชื่อตารางที่จะสร้างได้ และ Field ที่ต้องการนำไปใช้ก็กำหนดเอาได้เลย

ตัวอย่าง

โค๊ด: [Select]

Private Sub CmdRun_Click()
Dim SQL As String
SQL = "SELECT CmdCode, CmdTitle, CmdPrice, CmdDate INTO 123 FROM ABC;"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub

[Eid]

ผมรบกวนสอบถามอีกครั้งครับ
ถ้าชื่อฟิวด์ เป็นดังนี้ล่ะครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

คือมีเว้นวรรคครับ จะต้องแก้ไขโค๊ดอย่างไรครับเพราะตารางต้นทางเขา
เว้นวรรคชื่อฟิวด์ไว้ครับ

[PNR]

ใช้เครื่องหมาย [ และ ] ปิดหัวและท้ายครับ

Private Sub CmdRun_Click()
Dim SQL As String
SQL = "SELECT [Cmd Code], [Cmd Title], [Cmd Price], [Cmd Date] INTO 123 FROM ABC;"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub

[Eid]

ขอขอบคุณ คุณ PNR อย่างมากเลยครับที่ได้ให้ความรู้ดีๆครับ

[Eid]

คุณ PNR คับ ผมรบกวนสอบถามอีกครั้งครับ
ถ้าผมต้องการ Copy ข้อมูลดังข้างต้นแต่เปลี่ยนชื่อฟิวด์ล่ะครับ ดังตัวอย่างนี้ครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

ให้เป็น Bacode , Description , UnitPrice , Date

ต้องแกไขโค๊ดอย่างไรครับ

[PNR]

แค่เปลี่ยนชื่อฟิลล์ก็ได้แล้วครับ

Private Sub CmdRun_Click()
Dim SQL As String
SQL = "SELECT [Bacode], [Description], [UnitPrice], [Date] INTO 123 FROM ABC;"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub