Page 1 of 1
เรื่อง ดึงข้อมูลเข้า form ครับ
Posted: Fri May 18, 2012 10:49 am
by kamahltew
ไม่เข้าใจว่าทำไมกดเลือก ข้อมูลแล้ว
ช่อง text กับรูปภาพไม่โผล่มาครับ
รายละเอียดตามไฟล์แนบครับ
ปล.รูปที่จะให้มาปรากฏในช่อง ตั้งชื่อตาม list box แล้วครับ
Re: เรื่อง ดึงข้อมูลเข้า form ครับ
Posted: Fri May 18, 2012 11:25 am
by 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)
Re: เรื่อง ดึงข้อมูลเข้า form ครับ
Posted: Fri May 18, 2012 11:50 am
by 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
Re: เรื่อง ดึงข้อมูลเข้า form ครับ
Posted: Fri May 18, 2012 12:01 pm
by 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:
Re: เรื่อง ดึงข้อมูลเข้า form ครับ
Posted: Fri May 18, 2012 1:33 pm
by kamahltew
ขอบคุณมากครับ ได้แล้ว