ผมลองตัด relationship ของ Job_ID ออกจาก tb_Jobs
แล้วลองใช้ Docmd.runSQL แบบนี้ แล้วได้ครับ
แต่ยังไม่ smooth เท่าไหร่
แต่ยังไงก็ขอบคุณมากครับ
Private Sub cmd_Add_Click()
If Not IsNull(Me.ID) Then
Dim int_OT_ID As Integer
int_OT_ID = Me.ID
DoCmd.RunSQL (" INSERT INTO tb_OT_Details ( Emp_ID, OT_ID ) SELECT tb_Employees.ID, " & int_OT_ID & " as OT_ID FROM tb_Employees ;")
Me.frm_OT_Detail.Requery
Else
Exit Sub
End If
End Sub