ก่อนอื่นต้องขอบใจ อ.badman มากที่เอาตัวอย่างมาให้ แต่ผมก็ยังไม่เข้าใจและทำไม่ได้อยู่ดี ที่ผมเห็นเนี่ย คือต้องเขียนโค้ดใช่ป่ะครับ (ไม่รู้ใช่อันนี้ป่าวครับที่ทำให้combo ทำงาน)
Option Compare Database
Option Explicit

Private Sub A_AfterUpdate()
Dim strSQL As String
strSQL = "Select * From tblTumbol Where tumbolID like '" & A & "*' ;"
[Forms]![frmpv_am_tb]![frmTumbol].[Form].RecordSource = strSQL
End Sub

Private Sub ap_tb_Click()

End Sub

Private Sub P_AfterUpdate()
Dim strSQL As String
strSQL = "Select * From tblAmpur Where ampurID like '" & P & "*' ;"
[Forms]![frmpv_am_tb]![frmAmpur].[Form].RecordSource = strSQL
A.Requery
End Sub
ที่ผมดูมาแต่ผมเพิ่งเริ่มเขียนอ่ะครับ ยังไม่เข้าใจ ขอความกรุณาอธิบายให้ผมหน่อยได้มั้ยครับ พร้อมกันนี้ผมได้ทำฟอร์มแนบมาด้วยกรุณาทำให้มันทำงานได้หน่อยนะครับ ขอบคุณมาก