กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
374 6
URL.หัวข้อ /
URL
ผมอยาก DblClick เร็คคอร์ดใน ฟอร์ม ซึ่งเป็น แบบดาต้าชีต แล้วให้ทำการลบ เร็คคอร์นั้น
ผมจะต้องกำหนดอะไรยังไงรบกวนช่วยแนะนำผมด้วยครับ
ผมมีตัวอย่างด้วยครับ
ผมมีตัวอย่างด้วยครับ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R05752
ลอง ค้นด้วยคำว่า DoCmd.RunCommand acCmdDeleteRecord ครับ
2 @R05753
ขอบคุณครับอาจารย์ แล้วผมจะลองศึกษาดูครับ
3 @R05756
ผมลองค้นหาและศึกษาดูตามที่อาจารย์แนะนำ สามารถลบได้ตามต้องการครับ
นี้คือโค้ดที่ผมใช้ครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdDeleteRecord
End Sub
แต่มันมี MsgBox แสดงข้อความว่า
""คุณกำลังจะลบ 1 ระเบียน
ถ้าคุณคลิกใช่ คุณจะไม่สามารถที่จะยกเลิกการลบได้
คุณแน่ใจว่าคุณต้องการที่จะลบระเบียนนี้""
ผมลองเปลี่ยนโค้ดที่หาเจอในกระทู้ต่างๆ ก็มีเอเรอหมดเลยครับ ไม่รู้จะแก้ยังไงครับ
ขอบคุณครับ
นี้คือโค้ดที่ผมใช้ครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdDeleteRecord
End Sub
แต่มันมี MsgBox แสดงข้อความว่า
""คุณกำลังจะลบ 1 ระเบียน
ถ้าคุณคลิกใช่ คุณจะไม่สามารถที่จะยกเลิกการลบได้
คุณแน่ใจว่าคุณต้องการที่จะลบระเบียนนี้""
ผมลองเปลี่ยนโค้ดที่หาเจอในกระทู้ต่างๆ ก็มีเอเรอหมดเลยครับ ไม่รู้จะแก้ยังไงครับ
ขอบคุณครับ
4 @R05757
ผมลองค้นหาและศึกษาดูตามที่อาจารย์แนะนำ สามารถลบได้ตามต้องการครับ
นี้คือโค้ดที่ผมใช้ครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdDeleteRecord
End Sub
แต่มันมี MsgBox แสดงข้อความว่า
""คุณกำลังจะลบ 1 ระเบียน
ถ้าคุณคลิกใช่ คุณจะไม่สามารถที่จะยกเลิกการลบได้
คุณแน่ใจว่าคุณต้องการที่จะลบระเบียนนี้""
ผมลองเปลี่ยนโค้ดที่หาเจอในกระทู้ต่างๆ ก็มีเอเรอหมดเลยครับ ไม่รู้จะแก้ยังไงครับ
ขอบคุณครับ
นี้คือโค้ดที่ผมใช้ครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdDeleteRecord
End Sub
แต่มันมี MsgBox แสดงข้อความว่า
""คุณกำลังจะลบ 1 ระเบียน
ถ้าคุณคลิกใช่ คุณจะไม่สามารถที่จะยกเลิกการลบได้
คุณแน่ใจว่าคุณต้องการที่จะลบระเบียนนี้""
ผมลองเปลี่ยนโค้ดที่หาเจอในกระทู้ต่างๆ ก็มีเอเรอหมดเลยครับ ไม่รู้จะแก้ยังไงครับ
ขอบคุณครับ
5 @R05761
ผมเจอคำตอบแล้วครับ ถ้าใครมีปัญหาแบบนี้ก็ใช้ นี้เลย
.................................................
If MsgBox("กรุณายืนยันการลบ", vbQuestion + vbOKCancel) = vbOK Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
Exit Sub
End If
...........................
หรือไม่ก็ไปที่ ลองดูครับ
http://agserver.kku.ac.th/basiceng/webboard/question.asp?GID=1779
.................................................
If MsgBox("กรุณายืนยันการลบ", vbQuestion + vbOKCancel) = vbOK Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
Exit Sub
End If
...........................
หรือไม่ก็ไปที่ ลองดูครับ
http://agserver.kku.ac.th/basiceng/webboard/question.asp?GID=1779
6 @R05762
อีกอย่างครับ ถ้าไม้อยากให้มีข้อความใดๆเกิดขึ้นเลย คือ ดับเบิ้ลคลิกแล้ว ก็ให้ลบทันทีก็ใช้แบบนี้ครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End Sub
ขอบคุณครับ
Private Sub title_DblClick(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End Sub
ขอบคุณครับ
Time: 0.1546s
