Runtime error 53

[Apolin]

hello friends
Newly I am studying excel VBA. when i am coding one school program Run time 53 (file not found) error occurred.

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "" & TextBox1.Value & ".jpg")

please tell me what is wrong in this? and explain me about these codes.

Thanks

Apolin

 

[mrshl9898]

Try

[COLOR=#333333]Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg")[/COLOR]

 

[Apolin]

Thanks, but its not working. I am showing you all the codes. please see
Private Sub TextBox1_Change()
Dim i As Long, lastRow As Long, ws As Worksheet
Set ws = Sheets("I A NEW")
lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
If Val(Me.TextBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox2 = ws.Cells(i, "B").Value
Me.TextBox3 = ws.Cells(i, "C").Value
Me.TextBox4 = ws.Cells(i, "D").Value
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "" & TextBox3.Value & ".jpg")
End If
If TextBox1 = "" Then
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.Image1.Picture = LoadPicture("")
End If
Next i


End Sub

 

[mrshl9898]

Have you confirmed the file is in the correct place?.

debug.print ThisWorkbook.Path & "" & TextBox3.Value & ".jpg"