การค้นหาข้อมูลโดยอิงจากรหัส

[mmeaw2537]

อาจารย์คะ จาก Code ที่เขียนมา กดค้นหาแล้วไม่ขึ้นรายการ ไม่ทราบว่ามีการผิดพลาดตรงไหนคะ

Code อยู่ในฟอร์ม Datastudent ในปุ่มของการ ค้นหาคะ

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
Set myRange = Worksheets(2).Range("A:K")
TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox3.Text, myRange, 1, False)
TextBox5.Value = Application.WorksheetFunction.VLookup(TextBox3.Text, myRange, 2, False)

'Other code
End Sub

[bank9597]

ปรับโค๊ดเป็น

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
        Set myRange = Worksheets(2).Range("A:K")
        TextBox4.Value = Application.WorksheetFunction.VLookup(CLng(TextBox3.Text), myRange, 1, False)
        TextBox5.Value = Application.WorksheetFunction.VLookup(CLng(TextBox3.Text), myRange, 2, False)
End Sub

[mmeaw2537]

ขอบคุณมากนะคะ ตอนนี้ code สามารถแสดงผลได้แล้วคะ