สอบถาม Copy ตารางและลบข้อมูลในตารางค่ะ
กระทู้เก่าบอร์ด อ.Yeadram

 645   5
URL.หัวข้อ / URL
สอบถาม Copy ตารางและลบข้อมูลในตารางค่ะ

เรียนอาจารย์ค่ะ

   หนูจะcopy Query ชื่อ QR1 ไปไว้ที่ตาราง TB1 ค่ะโดยเอาไปทั้งหมดในQR1
โดยมีปุ่ม CMD1 เป็นตัวควบคุมการทำงานค่ะ
ดูกระทู้ตัวอย่างแล้วใช้ INSERT INTO แต่ก็ไม่ได้ค่ะ

Private Sub CMD1_Click()
Dim strSQL As String
strSQL = "INSERT INTO TB1 (*) "
& " SELECT * "
& "FROM QR1 "
End Sub

หรือมันต้องระบุทีละพิวค่ะ ไม่เข้าใจ SQL ค่ะ


และอีกอย่างเมื่อหนูเปิดพอร์มแล้วอยากให้ลบข้อมูลในตาราง TB1 ทั้งหมด
เลยจะเขียนยังไงค่ะ


ขอบคุณค่ะ


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

1 @R23302
ใช้ append query ครับ
-ให้เปิดQuery ในรูปแบบDesign
-คลิกQuery ตรงแถบเมนูด้านบน
-เลือก append query
-เลือกตารางที่ต้องการ(ตารางต้องมีฟิวส์เหมือนกันกับQuery)
-OK

-สร้างปุ่มในฟอร์มโดยใช่้ชื่อว่า CMD1
-ใส่โค้ดดังนี้ครับ

Private Sub CMD1_Click()
DoCmd.SetWarnings (0)
DoCmd.OpenQuery ("ชื่อQueryที่ใช้")
DoCmd.SetWarnings (1)
End Sub

ลองดูครับ ผมใช้วิธีนี้ได้ผลครับ
2 @R23303
อ๋อ ส่วนการลบข้อมูลในตาราง รออาจารย์ท่านอื่นนะครับ
3 @R23304
ทำในส่วนของ append query ได้แล้วค่ะ
ขอบคุณมากค่ะอาจารย์ ekkaphon

รอท่านอาจารย์ต่อไปสอนลบตอน

เปิดพอร์มแล้วให้ลบข้อมูลในตาราง TB1 ทั้งหมด
เลยจะเขียนยังไงค่ะ


ขอบคุณอีกครั้งค่ะ
4 @R23305
เจอล่ะค่ะ

DoCmd.RunSQL "Delete * From [TB_DETAIL_CLONE]"
Me.Refresh

เอาไปแปะตรงเปิดพอร์มมันจะแจ้งว่าต้องการจะลบข้อมูลที่มีอยู่หรือไม่
แต่ถ้าไม่ให้มันแจ้งเตือนให้ลบเลยละค่ะได้หรือเปล่า
หรือมันบังคับจากระบบค่ะ

ขอบคุณค่ะ
5 @R23306
ได้อีกแล้วค่ะมั่วได้ค่ะ

DoCmd.SetWarnings (WarningsOff)


ขอบคุณค่ะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2319s