เรื่อง ดึงข้อมูลเข้า form ครับ

[kamahltew]

ไม่เข้าใจว่าทำไมกดเลือก ข้อมูลแล้ว
ช่อง text กับรูปภาพไม่โผล่มาครับ

รายละเอียดตามไฟล์แนบครับ

ปล.รูปที่จะให้มาปรากฏในช่อง ตั้งชื่อตาม list box แล้วครับ

[snasui]

การดึงภาพมาแสดงต้องระบุ Path ของภาพด้วยครับ ดูตัวอย่างจาก Link นี้ http://www.snasui.com/viewtopic.php?p=7065#p7065

นอกจากนี้การกำหนด Range เพื่อให้ Vlookup ได้ยังกำหนดไม่ถูกต้อง ควรเปลี่ยนเป็น

Code: Select all

    Set myRange = Worksheets("Sheet1").Range("B3:C18")
    frmData.txtName.Value = Application.WorksheetFunction.VLookup( _
        frmData.lstCode.Value, myRange, 2, 0)

[kamahltew]

เด้งเลยครับผม รบกวนอีกทีครับ

Private Sub lstCode_Click()
Set myRange = Worksheets("Sheet1").Range("B3:C18")
frmData.txtName.Value = Application.WorksheetFunction.VLookup(lstCode, myRange, 2, 0)
myPicture = C:\Documents and Settings\Teerutw\Desktop\Get Picture\"& lstCode & ".jpg"
imgCustom.Picture = LoadPicture(myPicture)
End Sub

[snasui]

จาก Code ที่แนบมา แก้จาก

Code: Select all

myPicture = C:\Documents and Settings\Teerutw\Desktop\Get Picture\"& lstCode & ".jpg"

เป็น

Code: Select all

myPicture = "C:\Documents and Settings\Teerutw\Desktop\Get Picture\"& lstCode & ".jpg"

เนื่องจากไม่ได้ใส่เครื่องหมาย " หน้า C:

[kamahltew]

ขอบคุณมากครับ ได้แล้ว