ผมมีข้อมูล DocId และ DocType โดยข้อมูลนั้นอยู่ใน tblDocType ในกรณีที่ผมพิมพ์ข้อมูล Doctype ของ frmDoc (ข้อมูลดังกล่าวมี่อยู่ใน tblDocType) DocId ก็จะแสดงข้อมูลโดยอัตโนมัติ
ปัญหามีอยู่ว่าถ้าข้อมูล DocType ของ frmDoc ตัวสุดท้ายต่างกันจาก "R" เป็น "*" โปรแกรมจะไม่แสดงผลในช่อง DocId แต่จะมีข้อความว่า "The text entered isn't an item in the list" (ซึ่งผมก็ลองตรวจสอบใน tblDocType ดูแล้ว ปรากฏว่ามี) เช่น 55403-01071312****-R กับ 55403-01071312****-*
โดยที่ผมเขียนโค๊ดไว้แบบนี้ครับ
Option Compare Database
Option Explicit

Private Sub DocId_GotFocus()
If Me.DocType <> "" Then
Me.DocId = DocType
Else
Me.DocId = [DocType]
End If

End Sub

Private Sub Form_Current()
DocType.SetFocus
End Sub