kooroshir
سه شنبه 13 تیر 1396, 13:56 عصر
با سلام . یک فایل اکسز 203 برای رویت مشخصات قبلا طراحی شده . اما الان من اکسز 2007 و 2010 نصب کردم . وقتی برنامه را اجرا میکنم ارور میده . در صورتی که همون برنامه در اکسز 2003 درست اجرا میشه و عکس را از مسیر موجود باز میکنه . میشه راهنمایی کنید بگید باید چه کنم که در همه اکسز ها اجرا بشه و عسشو نشون بده ؟ متن برنامه :
Private Sub Label56_Click()
Dim c, s As String
c = "e:\electron\"
s = pr.Value
Set fs = Application.FileSearch
With fs
.LookIn = "e:\electron"
.SearchSubFolders = True
.FileName = s + ".bmp"
If .Execute() > 0 Then
Image43.Picture = c + .FileName
Else
.FileName = s + ".jpg"
Image43.Picture = c + .FileName
End If
End With
End Sub
به خط پنجم ارور میده
Private Sub Label56_Click()
Dim c, s As String
c = "e:\electron\"
s = pr.Value
Set fs = Application.FileSearch
With fs
.LookIn = "e:\electron"
.SearchSubFolders = True
.FileName = s + ".bmp"
If .Execute() > 0 Then
Image43.Picture = c + .FileName
Else
.FileName = s + ".jpg"
Image43.Picture = c + .FileName
End If
End With
End Sub
به خط پنجم ارور میده