สอบถามค่ะ เวลาค้นหาข้อมูลรูปภาพไม่เปลี่ยนค่ะ

[thinatda]

สอบถามค่ะ เวลาค้นหาข้อมูลรูปภาพไม่เปลี่ยนค่ะ
1.ใส่รูปภาพที่ ลำดับที่1 แล้ว ลำดับที่ 2 ไม่ได้ใส่ แต่เวลากดค้นหา รูปภาพของลำดับที่1 ไปแสดงลำดับที่2 ด้วยค่ะ
2.ถ้าลำดับไหนไม่มีรูปภาพอยากให้แสดง No_Image ค่ะ
อันนี้คือโค้ดค้นหาที่ใช้อยู่ค่ะ

Code: Select all

Private Sub cmdSearch_Click()
cmdAdd.Enabled = False
Dim X As Long
Dim Y As Long
X = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For Y = 2 To X
If Sheet2.Cells(Y, 2).Value = TextBox15.Text Then
If Sheet2.Cells(Y, 7).Value = TextBox16.Text Then
TextBox17 = Sheet2.Cells(Y, 1).Value
Tllist = Sheet2.Cells(Y, 2).Value
TMolcular = Sheet2.Cells(Y, 3).Value
ComGrade = Sheet2.Cells(Y, 4).Value
TPurity = Sheet2.Cells(Y, 5).Value
TCasNo = Sheet2.Cells(Y, 6).Value
TBottle = Sheet2.Cells(Y, 7).Value
TLot = Sheet2.Cells(Y, 8).Value
ComCompany = Sheet2.Cells(Y, 9).Value
TSize = Sheet2.Cells(Y, 10).Value
TTemperature = Sheet2.Cells(Y, 11).Value
TState = Sheet2.Cells(Y, 12).Value
TLockers = Sheet2.Cells(Y, 13).Value
TInputday = Sheet2.Cells(Y, 14).Value
TOutputday = Sheet2.Cells(Y, 15).Value
TExpire = Sheet2.Cells(Y, 16).Value
TStatus = Sheet2.Cells(Y, 17).Value
TTotal = Sheet2.Cells(Y, 18).Value
ComType = Sheet2.Cells(Y, 19).Value
TCoa = Sheet2.Cells(Y, 20).Value

cmdUpdate.Visible = True
Me.cmdDelete.Visible = True
On Error Resume Next
Image1.Picture = LoadPicture("C:\EMP DATA\PHOTO\" & TextBox17.Text & Value & ".JPG")
Image1.PictureSizeMode = 1
Image2.Picture = LoadPicture("C:\EMP DATA\PHOTO\" & Tllist.Text & Value & ".JPG")
Image2.PictureSizeMode = 1
Image3.Picture = LoadPicture("C:\EMP DATA\PHOTO\" & TLot.Text & Value & ".JPG")
Image3.PictureSizeMode = 1
End If
End If
Next Y

End Sub

[snasui]

กรุณาแจ้งลำดับขั้นตอนการทดสอบ, Object ที่เกี่ยวข้อง, ข้อมูลที่ต้องกรอก เพื่อให้เจอปัญหามาตามที่แจ้งมาด้วยจะได้เข้าถึงปัญหาโดยไวครับ