ไม่รู้ ผิดตรงไหนครับ ผมสร้างปุ่ม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