ยังไม่ค่อยเข้าใจคำถามครับ

ถ้าต้องการให้แสดง ชื่อ นามสกุล ใน ฟอร์ม นี้ ก็ลองแบบนี้ครับ

1. ใส่ Text Box ลงไป 2 อัน โดยตั้งชื่อให้เป็น txtName และ txtLastName

2. ใส่โค้ดนี้ลงไป โดยใช้กับเหตุการณ์ OnCurrent ของ ฟอร์ม AfterUpdate ของฟีลด์ HN

Private Sub Form_Current()
If Me.HN <> "" Then
Me.txtName = Nz(DLookup("[ชื่อ]", "tblPatient", "trim([hn])='" & Me.HN & "'"), "")
Me.txtLastName = Nz(DLookup("[สกุล]", "tblPatient", "trim([hn])='" & Me.HN & "'"), "")
Else
Me.txtName = ""
Me.txtLastName = ""
End If
End Sub

Private Sub HN_AfterUpdate()
Form_Current
End Sub

*** ไม่ควรจะเคาะช่องว่างในฟีลด์ HN นะครับ จะทำให้ทำงานยาก ผมเองยังงงอยู่เหมือนกัน

เรียน อ.สุภาพ เนื่องจากเครื่องที่ใช้จะไม่มีข้อมูลในฐานข้อมูลโรงพยาบาล ซึ่งเขียนด้วยโปรแกรม delphi ซึ่งผมอ่านแล้วไม่ค่อยรู้เรื่อง ก็เลยใช้ access เป็นการเก็บข้อมูลเฉพาะหน่วยงานห้องผ่าตัด link ผ่าน ODBC กับ table patient อีกทีครับ
( ข้อมูลใน table patient คัดลอกมาบางส่วนซึ่งคนเขียน delphi กำหนดไว้ครับ ว่าต้องเคาะให้ครบ 7 ตัวใน field HN )
ผมจึงคิดว่าให้กรอก HN ที form TBLANES1 แล้วให้แสดงรายชื่อ-สกุลของ TBL PATIENT ออกมาให้ดูว่าเป็นผู้ป่วยที่เราตั้งใจจะพิมพ์จริง ๆ ครับ