หรือจะใช้ คิวรี่ Update แบบนี้ก็ได้เหมือนกัน

Dim SQL As String
SQL = "UPDATE Table2 SET Table2.Type_Job = [forms]![FORM1]![Type_Job] " _
& "WHERE (((Table2.ID)=[Forms]![FORM1]![ID]));"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
Forms![FORM1].[ฟอร์มย่อย Table2].Requery

ถ้าตารางของซัพฟอร์ม ชื่อ table2
ปรับปรุงทุกระเบียนที่มีในตารางโค้ดจะเป็น

Private Sub txtTypeJob_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table2")
   rs.MoveFirst
   Do Until rs.EOF
   rs.Edit
   rs![Type_Job] = Me.txtTypeJob
   rs.Update
   rs.MoveNext
 Loop
rs.Close
Set rs = Nothing
Forms![frmMain].[SubFrm].Requery
End Sub


ถ้ามีการปรับปรุงข้อมูล โดยแยกตาม ID ก็ใส่แบบนี้
Private Sub txtTypeJob_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table2 WHERE Table2.ID = " & [Forms]![frmMain]![txtID] & "")
   rs.MoveFirst
   Do Until rs.EOF
   rs.Edit
   rs![Type_Job] = Me.txtTypeJob
   rs.Update
   rs.MoveNext
 Loop
rs.Close
Set rs = Nothing
Forms![frmMain].[SubFrm].Requery
End Sub