ต้องการทำ list เพื่อต้องการให้เลือกข้อมูลแล้วแสดงที่ text box จึงเขียน code ตามรายละเอียดด้านล่าง ซึ่งสามารถใช้ได้ในกรณี field WorkingCode Data Type เป็น number แต่หากกำหนดให้ field WorkingCode Data Type เป็น Text จะ error ค่ะ ต้องเขียนอย่างไรจึงจะใช้กับ text ได้ค่ะ พร้อมกันนี้ได้แนบรูปตัวอย่างมาด้วยค่ะ

Private Sub ListWorking_Click()
       Dim ls As Object
        Set ls = Me.RecordsetClone
        ls.FindFirst "[WorkingCode]=" & Str(Me![ListWorking])
        Me.Bookmark = ls.Bookmark
        Me.ListWorking = Me.WorkingCode
       
    txtWorkingCode.Enabled = False
    txtWorking.Enabled = False

End Sub

ขอบคุณค่ะ