Private Sub Form_Load()
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("tblProduct")
rs2.index = "ProductIndex"
Set rs3 = db.OpenRecordset("tblOrder")
rs3.index = "OrderIndex"
Set rs4 = db.OpenRecordset("tblOrderProduct")
rs4.index = "OrderProductIndex"
txtOrderID.SetFocus
End Sub

Private Sub txtOrderID_AfterUpdate()
rs4.Seek "=", txtOrderID.Value
If rs4.NoMatch = False Then
rs4.Fields("Section").Value = txtSection.Value
rs4.Fields("BudgetSect").Value = txtBudgetSect.Value
Else
txtSection.Value = Null
txtBudgetSect.Value = Null
End If
End Sub
โค๊ดดังกล่าวดัดแปลงมาจาก Project จากตาราง tblOrderProduct ผมได้เพิ่ม Section และ BudgetSect ลงใน field name ซึ่ง data type เป็น text ทั้งคู่ แต่ว่าเมื่อลอง update ค่าเก่าลงใน txtOrderID แล้ว ในช่อง txtSection และ txtBudgetSect กลับไม่แสดงค่าใดๆขึ้นมาเลย รบกวนช่วยหาคำตอบด้วยครับ อาจาร์ย