Snasui Excel Forum

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