Bağlı tablolar ile çalıştığım dosyamda, kullandığım resim veya eklerin dosya yolunda karşılığı olmadığında, SQL hata kodu çıkıyor.
Bunun yerine dosya yolu hatalıysa veya dosyaya erişemiyorsa, hiçbir işlem yapmamasını ya da "Dosya bulunamadı" gibi bir hata mesajı vermesini nasıl sağlayabilirim.
Dosya yolunun yazdığı "mtn_dosyadizini" metin kutusu boşsa aşağıdaki kodu yazarak hata vermesini engelleyebiliyorum. Ama metin kutusunda dosya yolu yazmasına rağmen dosyayı bulamazsa, Sql hata kodu oluşuyor.
Resim İçin
Kod:
If IsNull(Me.mtn_dosyadizini) Or Me.mtn_dosyadizini = "" Then
Me.ResimCercevesi.Visible = False
Else
Me.ResimCercevesi.Visible = True
Me!ResimCercevesi.Picture = BagliTabloDizini & Me!mtn_dosyadizini
End If
Dosya Eki İçin
Kod:
If IsNull(Me.data_yolu) Or Me.data_yolu = "" Then
MsgBox "Belirtilen dosya yolu bulunamıyor.!" & vbCr & "Lütfen Dosyanın Eklenmiş Olduğundan Emin Olunuz.", vbCritical, "Dosya Açılamadı"
Exit Sub
End If
Call fShellExe(BagliTabloDizini & Me.mtn_dosyadizini, 1)