แสดงกระทู้
1
ห้อง MS Access / : เพิ่มรายการสำหรับ Key ข้อมูลอัตโนมัติ
« เมื่อ: 06 ม.ค. 63 , 16:30:16 »
ผมลองตัด 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
แล้วลองใช้ 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
