ช่วยด้วยลบข้อมูลผิด จนจะหมด Table แล้ว
กระทู้เก่าบอร์ด อ.Yeadram

 1,217   3
URL.หัวข้อ / URL ช่วยด้วยลบข้อมูลผิด จนจะหมด Table แล้ว

ผมมี Table1 มีฟิลด์   9 ฟิลด์ และมีฟิลด์ EGP_Code (Text)ที่ข้อมูลไม่ซ้ำกันเป็นตัวเลข 11 ตัว เวลาค้นหาข้อมูล record ที่ต้องการ ก็ใช้ ฟิลด์ EGP_Code ค้นหา   ผมหาพบตามต้องการ และนำข้อมูลมาแสดงบน Form ถูกต้อง
-- ปัญหามีอยู่ว่าผมต้องการลบ record ที่ข้อมูลกำลังโชว์บน Form นี่แหละโดยใช้ DoCmd.RunComand acCmdDeleteRecord มันดันไปลบ record ที่ 1 ทุกครั้ง ลองไปลองมาข้อมูลจะหมด Table แล้วครับ
--- ขอคำแนะนำด้วยครับ ขอขอบคุณล่วงหน้าครับ
โดย: Pravit เมื่อ: 25 ต.ค. 2555 , 14:31

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

1 @R14213
มันขึ้นกับการออกแบบฐานข้อมูลของคุณอ่ะครับ
ลองสั่งตรงจาก SQL ดูครับ สำรองข้อมูลก่อนทำทุกครับนะครับ
- ใส่ที่ปุ่ม Delete

Dim sq As String
sq = "Delete from Table1 where EGP_Code = '" & [ชื่อฟิลด์ EGP_Code ที่ใช้บนฟอร์ม] & "'"
DoCmd.RunSQL sq
DoCmd.SetWarnings True
Me.Requery

โดย: TTT เมื่อ: 25 ต.ค. 2555 , 14:57
2 @R14214
แก้ไข
Dim sq As String
DoCmd.SetWarnings False
sq = "Delete from Table1 where EGP_Code = '" & [ชื่อฟิลด์ EGP_Code ที่ใช้บนฟอร์ม] & "'"
DoCmd.RunSQL sq
DoCmd.SetWarnings True
Me.Requery
โดย: TTT เมื่อ: 25 ต.ค. 2555 , 14:59
3 @R14215
ขอบคุณมากครับใช้ได้แล้วครับ เปลี่ยนนิดเดียวครับ

Dim sq As String
DoCmd.SetWarnings False
sq = "Delete from Table1 where EGP_Code = '" & [ชื่อ Textbox ที่รับข้อมูล EGP_Code ที่ใช้บนฟอร์ม] & "'"
DoCmd.RunSQL sq
DoCmd.SetWarnings True
Me.Requery

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