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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 มี.ค. 64 , 14:55:09
อ่าน 855 ครั้ง

Eid

รบกวนสอบถามครับ
« เมื่อ: 10 มี.ค. 64 , 14:55:09 »
ผมมีตารางชื่อ 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
รวมทั้งข้อมูลด้วยครับ รบกวนด้วยครับ
ขอบคุณมากครับ

 

10 มี.ค. 64 , 14:57:49
ตอบกลับ #1

PNR

: รบกวนสอบถามครับ
« ตอบกลับ #1 เมื่อ: 10 มี.ค. 64 , 14:57:49 »
ผมมีตารางชื่อ 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
« แก้ไขครั้งสุดท้าย: 10 มี.ค. 64 , 15:11:07 โดย PNR »
Time to stop for me  :dizzy:
 

11 มี.ค. 64 , 09:24:55
ตอบกลับ #2

Eid

: รบกวนสอบถามครับ
« ตอบกลับ #2 เมื่อ: 11 มี.ค. 64 , 09:24:55 »
ผมรบกวนสอบถามอีกครั้งครับ
ถ้าชื่อฟิวด์ เป็นดังนี้ล่ะครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

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

 

11 มี.ค. 64 , 10:08:59
ตอบกลับ #3

PNR

: รบกวนสอบถามครับ
« ตอบกลับ #3 เมื่อ: 11 มี.ค. 64 , 10:08:59 »
ใช้เครื่องหมาย [ และ ] ปิดหัวและท้ายครับ

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
Time to stop for me  :dizzy:
 

12 มี.ค. 64 , 07:59:24
ตอบกลับ #4

Eid

: รบกวนสอบถามครับ
« ตอบกลับ #4 เมื่อ: 12 มี.ค. 64 , 07:59:24 »
ขอขอบคุณ คุณ PNR อย่างมากเลยครับที่ได้ให้ความรู้ดีๆครับ

 

12 มี.ค. 64 , 15:06:58
ตอบกลับ #5

Eid

: รบกวนสอบถามครับ
« ตอบกลับ #5 เมื่อ: 12 มี.ค. 64 , 15:06:58 »
คุณ PNR คับ ผมรบกวนสอบถามอีกครั้งครับ
ถ้าผมต้องการ Copy ข้อมูลดังข้างต้นแต่เปลี่ยนชื่อฟิวด์ล่ะครับ ดังตัวอย่างนี้ครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

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

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

 

15 มี.ค. 64 , 14:58:56
ตอบกลับ #6

PNR

: รบกวนสอบถามครับ
« ตอบกลับ #6 เมื่อ: 15 มี.ค. 64 , 14:58:56 »
แค่เปลี่ยนชื่อฟิลล์ก็ได้แล้วครับ

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
Time to stop for me  :dizzy:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5