Giúp dùm đoạn code (1 người xem)

[kimcuongnano]

Mình có đoạn code như sau:

Private Sub TxtMa_Change()
Dim Img As String
Img = ThisWorkbook.Path & "\Item Code\" & TxtMa.Value & ".JPG"
Image1.Picture = LoadPicture(Img)
End Sub

Khi áp dụng vào khi đụng phải những NV ko có hình thì chương trình báo lỗi, có cách nào khi gặp phải trường hợp NV ko có hình thì bỏ qua đoạn code trên và chương trình chỉ lọc những phần còn lại ko? Mong các pro giúp đỡ. Chân thành cảm ơn!

 

[ndu96081631]

Mình có đoạn code như sau:

Private Sub TxtMa_Change()
Dim Img As String
Img = ThisWorkbook.Path & "\Item Code\" & TxtMa.Value & ".JPG"
Image1.Picture = LoadPicture(Img)
End Sub

Khi áp dụng vào khi đụng phải những NV ko có hình thì chương trình báo lỗi, có cách nào khi gặp phải trường hợp NV ko có hình thì bỏ qua đoạn code trên và chương trình chỉ lọc những phần còn lại ko? Mong các pro giúp đỡ. Chân thành cảm ơn!

Sửa thành vầy xem:

Private Sub TxtMa_Change()
  Dim Img As String, chkExist As Boolean
  Img = ThisWorkbook.Path & "\Item Code\" & TxtMa.Value & ".JPG"
  chkExist = CreateObject("Scripting.FileSystemObject").FileExists(Img)
  Image1.Picture = LoadPicture(IIf(chkExist, Img, ""))
End Sub

 

[kimcuongnano]

Chân thành cám ơn ndu96081631

nhé! Nhờ bạn mà mình qua được khúc mắc đó.