Alıntı:...Sanırım sorunum tam anlaşılmadı...
ifadenize yönelik olarak;
bahsettiğiniz husus anlaşıldığı için zaten önceki mesajlarda yer alan örnekler sunuldu.bu örnek kodları ilgili hata mesajlarının bulunacağı kısma dahil edilmesi adına yazılmıştır.
kodların ayrı ayrı belirtilmesinin amacı ise;
her iki durumda da (gerek klasörde resim yoksa ve gerekse de resim alanı boşsa) nasıl yazılabildiğinin görülmesini sağlamak içindir.kodlardaki tanımları da kendi uygulamanıza göre uyarlamanız önerilmiştir.bir diğer öneri olması adına,aşağıdaki kodları deneyebilirsiniz.
Kod:
If Dir(CurrentProject.Path & "\" & "resimklasoru") = "" Then
MsgBox "resim adlı klasör bulunmamaktadır."
Exit Sub
Else
IF Dir(CurrentProject.Path & "\" & "resimklasoru" & Oyunkodu &".Jpg") <> "" or Not IsNull(Me.resim) Or Me.resim <> "" Then
Me.resim.picture = CurrentProject.Path & "\" & "resimklasoru" & Oyunkodu &".Jpg"
Exit Sub
Else
Me.resim.picture = CurrentProject.Path & "\" & "resimklasoru" & "resimyok.jpg"
End If
End If
otel otomasyonu