เรียนถาม ผมต้องการใช้ textbox เป็นตัวค้นหาคำ โดยเขียน code forms
Private Sub tHospName_AfterUpdate()
    List2.Visible = True
    List2.RowSource = "SELECT T_HospCode.HospCode,
T_HospCode.HospName " & _
                                " FROM T_HospCode " & _
                                " WHERE T_HospCode.HospName Like '" & Forms!Form1!tHospName & "*' "
    List2.Requery
    'List12.Requery
End Sub

ที่ List2 เขียน code
Private Sub List2_AfterUpdate()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[tHospName] = " & Str(Nz(Me![List2], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


ส่วน List2 เขียน code ที่ propoties row source
SELECT T_HospCode.HospCode, T_HospCode.HospName FROM T_HospCode WHERE (((T_HospCode.HospName) Like forms!Form1!tHospName & "*"));

เมื่อพิมพ์ตัวแรกที่ textbox แล้ว List2 ไม่ค้นหาคำแรกกลับปรากฎข้อมูลทั้งหมด
ที่ต้องการคือพิมพ์ตัวแรกและตัวต่อๆไป List2 จะปรากฎตามข้อความพิมพ์ค้นหา
เมื่อ click ที่ List2 แล้วข้อความที่ค้นหาไปอยู่ใน textbox
ไม่ทราบว่าผมเขียน code ส่วนใดไม่ถูกต้องหรือไม่ครบ รบกวนด้วยครับ ขอคำแนะนำ