กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
308 6
URL.หัวข้อ /
URL
delete record ใน from และ Sub From
ไม่รู้ ผิดตรงไหนครับ ผมสร้างปุ่มdelete เพื่อจะลบเรคคอร์ด ใน From Voucher และ Sub From
acc_entry โดยมี Voucher_id เป็น link ครับ
Private Sub Command91_Click()
Dim dbs As Object
Set dbs = CurrentDb
dbs.Execute "DELETE * " _
& "FROM Voucher " _
& "WHERE Voucher_id = '" & Me.voucher_id & "'"
End Sub
dbs.Execute "DELETE * " _
& "FROM acc_entry " _
& "WHERE Voucher_id = '" & Me.voucher_id & "'"
End Sub
acc_entry โดยมี Voucher_id เป็น link ครับ
Private Sub Command91_Click()
Dim dbs As Object
Set dbs = CurrentDb
dbs.Execute "DELETE * " _
& "FROM Voucher " _
& "WHERE Voucher_id = '" & Me.voucher_id & "'"
End Sub
dbs.Execute "DELETE * " _
& "FROM acc_entry " _
& "WHERE Voucher_id = '" & Me.voucher_id & "'"
End Sub
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R05133
ผมคิดว่าตรง End Sub นะครับ เพราะเห็นมันมี 2 อัน ไม่ทราบ Error massage ว่าอย่างไรครับ
2 @R05147
error massage คือ complie error: Only comments may appear
after EndSub,End Function or End property
after EndSub,End Function or End property
3 @R05148
ผมเอาEnd Sub ตัวบนออกแล้ว ลองลบมีข้อความว่า Runtime error 3167 Record is delete END DEBUG และเรคคอร์ดที่ main fromถูกลบแล้ว แต่ที่ sub from ไม่ได้ลบ
4 @R05149
ลบ End Sub ตัวไหนออกครับ ต้องลบตัวแรกนะครับ
5 @R05162
ถ้าเป็น One-2-Many จะต้องลบตารางด้าน Many ก่อนครับ
ต้องสลับโค้ดกันครับ ต้องลบข้อมูลใน acc_entry หรือใน Subform ก่อน
ต้องสลับโค้ดกันครับ ต้องลบข้อมูลใน acc_entry หรือใน Subform ก่อน
6 @R05171
ทำได้แล้วครับ ทำตาม คุณ P! และ อจ.สุภาพ ขอบคุณครับ
Time: 0.0569s
