กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
319 4
URL.หัวข้อ /
URL
ต้องการทำคิวรี่ 2 คิวรี่พร้อมกัน
นำสองตารางมา link กัน แบบ Sub from โดยต้องการจะลบrecord ของตารางแม่ และตารางลูกโดยกดปุ่ม command เพียงปุ่มเดียวให้ข้อมูลทั้งสองตารางลบออก ตามฟอร์ม edit _loan_vou
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R04431
ลองค้นด้วยคำว่า cascade ดูครับ
2 @R04435
ผมลองทำตามตัวอย่างแล้ว ไม่ได้ครับไม่รู้จะผิดตรงไหนครบ เรียน อจ.ช่วยพิจารณาทีครับ
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "DELETE * " _
& "FROM add_loan_vou " _
& "WHERE vou_loan_num =" & Me.vou_loan_num
dbs.Execute "DELETE * " _
& "FROM edit_loan_payable " _
& "WHERE vou_loan_num =" & vou_loan_num
End Sub
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command35_Click:
Exit Sub
Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click
End Sub
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "DELETE * " _
& "FROM add_loan_vou " _
& "WHERE vou_loan_num =" & Me.vou_loan_num
dbs.Execute "DELETE * " _
& "FROM edit_loan_payable " _
& "WHERE vou_loan_num =" & vou_loan_num
End Sub
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command35_Click:
Exit Sub
Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click
End Sub
3 @R04437
เพิ่มเติมครับ ข้อความerror คือ User defined type not defined
4 @R04439
ลองเปลี่ยนจาก
Dim dbs As Database
ไปเป็น
Dim dbs As Object
ครับ
Dim dbs As Database
ไปเป็น
Dim dbs As Object
ครับ
Time: 0.1094s
