เริ่มเรื่อง form ก่อนนะคับ คือว่า สร้างฟอร์มไว้นึงฟอร์ม หากใส่ตัวเลขลงไปใน listbox ทำอย่างไรให้ค่าไปเกิดขึ้นในตารางในทันทีทันใด เนื่องจากผมสร้างรายงาน โดยใช้ค่าจากตาราง เวลาสั่งพิมพ์เหมือนกันค่ายังไม่ได้ทำการ อัพเดตเลย
เรื่อง Not in list เคยเปิดไปดูกระทู้ที่อาจารย์เคยตอบไว้ แต่เนื่องจากยังไม่สันทัดเรื่องการใช้โค้ดคำสั่งอยากรบกวนสอบถาม การประยุกต์โค้ดอาจารย์

Private Sub acPlaceType_NotInList(NewData As String, Response As Integer)
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb

Response = acDataErrContinue
If MsgBox("ไม่มีรายการนี้ ต้องการจะเพิ่มเข้าไปหรือไม่?", vbOKCancel) = vbOK Then
' Set Response argument to indicate that data is being added.
Response = acDataErrAdded
' Add string in NewData argument to a table tblDiscipline.

With dbs
Set rst = .OpenRecordset("tblPlace")
rst.AddNew
rst!PlaceName = NewData
rst.Update
rst.Close
.Close
End With

Else
' If user chooses Cancel, suppress error message and undo changes.
Response = acDataErrContinue
End If

End Sub

รบกวนด้วยนะคับ ต้องการแค่ openform แต่ไม่รู้จะไปใส่ไว้ตรงช่วงไหนคับ