Form : Code Delete Record ไม่ทำงาน
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 236   2
URL.หัวข้อ / URL
Form : Code Delete Record ไม่ทำงาน

จาก Code ข้างล่าง
Private Sub CmdDelete_Click()
Dim X As Integer
Dim dbs As Database
Set dbs = CurrentDb
X = MsgBox("คุณต้องการลบ เอกสารใบนี้ ใช่ หรือ ไม่" & vbCrLf & "You need delete this document ?", vbOKCancel, "< ลบข้อมูล (Delete data) >")

If X = 1 Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings False
Me.CusID.SetFocus
Me.CmbFind.Value = ""

Else
dbs.Close
Set dbs = Nothing

End If

End Sub

ผมทดลองกับ Form FrmTbl001_Receiced_Main และ FrmTbl003_Require_Main
พบว่า เมื่อเข้าสู่ ฐานข้อมูล แล้ว Run Form นี้ Code จะสามารถทำงานได้ คือ ลบรายการได้
แต่ ถ้าผมออกจาก ฐานข้อมูล แล้วใช้จาก MenuBar ที่สร้างขึ้น (โดยไม่เข้าสู่ ฐานข้อมูล เพื่อแก้ไข)
ผมลองใช้ DoCmd.RunCommand acCmdDeleteRecord ก็ไม่ทำงาน ครับ
ปรากฏว่า คำสั่งไม่ทำงานครับ รบกวน อ.สุภาพ แนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

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

1 @R03940
ทั้ง 2 วิธีจะต้องมีการเปิดฟอร์มแสดงข้อมูลด้วยครับถึงจะทำงานได้

ซึ่งถ้าสั่งจากฟอร์มอื่น ให้ทำการ Set Focus ไปยัง Form เป้าหมาย แล้ว Set Focus ไปยังข้อมูลที่ต้องการอีกต่อหนึ่งครับ

2 @R03941
เรียน อ.สุภาพ ครับ
ผมเปิด Form แสดงข้อมูลปกติ
โดยใน 1 Form จะมี Main Form และ Sub Form
ผมนำ Command Buttom ไปวางบน Main Form
แล้วนำ Code นี้ใส่ลงไป Run Form ปกติ แต่ไม่สามารถทำงานได้
ผมลอง Delete Command Buttom ตัวที่มีปัญหาทิ้งไป
แล้วลองสร้างใหม่ โดยใช้ Wizard ในการทำ
ปรากฏว่า สามารถ Run ได้ปกติ ไม่มีปัญหา
ช่วงหลังๆ ผมเจอปัญหาลักษณะแบบนี้บ่อยๆ
ลอง Format แล้วลง Program ใหม่ก็เหมือนเดิม
งง จริงๆ ครับ
ขอบพระคุณ อาจารย์ มากๆ ครับ
Suchat
ชลบุรี
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0725s