ต้องการค้นหาที่เก็บสินค้า โดยมีรุปโชว์ USER FORM VBA

[chaiwutampas]

เรื่อง การค้นหาข้อมูล Userform VBA

คือผมต้องการค้นหาข้อมูลที่เก็บสินค้า อย่างใดอย่างหนึ่ง
จากข้อมูลใน Sheet"FIND"
ติดปัญหาตรง ยัง UPDATE รูปไม่หมด ทำให้เกิดการ ERROR
ขอคำสั่งหากไม่มีรูป ให้แจ้ง MSGBOX : NO PIC ครับ

ขอบคุณครับ

[chaiwutampas]

Private Sub CommandButton3_Click()
Dim fdata As Range
Set fdata = Sheet1.Range("A:A").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
Me.TextBox1.Value = fdata.Value
Me.TextBox2.Value = fdata.Offset(0, 1).Value
Me.TextBox3.Value = fdata.Offset(0, 2).Value
Me.ComboBox2.Value = fdata.Offset(0, 3).Value
Me.TextBox4.Value = fdata.Offset(0, 4).Value
Me.TextBox5.Value = fdata.Offset(0, 5).Value
Me.PIC1.Picture = LoadPicture("F:\PIC\" & ComboBox1.Value & ".JPG")
Me.PIC1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

[logic]

ลองแบบนี้ครับ

โปรดอ่านกฎการใช้บอร์ดข้อ 5 เรื่องการโพสโค้ดด้วยครับ

Code: Select all

'<โค้ดก่อนหน้า>
If Dir("F:\PIC\" & ComboBox1.Value & ".JPG") = "" Then
    MsgBox "Error"
    Exit Sub
End If
Me.PIC1.Picture = LoadPicture("F:\PIC\" & ComboBox1.Value & ".JPG")
'<โค้ดอื่นที่เหลือ>

[chaiwutampas]

ขอโทษครับ เพิ่งโพสครั้งแรก จะปรับปรุงครับ และขอบคุณครับจะนำไปใช้งาน ให้ดียิ่งขึ้นครับ