Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Dosya Yolu Boş Ise Hata Alıyorum

[VBA] Dosya Yolu Boş Ise Hata Alıyorum
serdem48
Aktif Üye 100-150

*
Kayıt Tarihi: 23.09.2014
Toplam 26 konu açtı.
Toplam 127 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 5 / 0
#1
26-10-2023, 11:03
Visual Basic
  1. Private Sub Liste1_Click()
  2. Me.FilterOn = False
  3.  
  4. Me.Refresh
  5.  
  6. Dim rs As Object
  7.     Set rs = Me.Recordset.Clone
  8.     rs.FindFirst "[S_ID] = " & str(Nz(Me![Liste1], 0))
  9.     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  10.     DoCmd.RunCommand acCmdRefreshPage
  11.  
  12. Me.Liste1.Requery
  13. Me.Liste2.Requery
  14.  
  15.    Me.WebBrowser4.Navigate Me![DYolu]
  16.  
  17. End Sub


üstteki kod ile liste kutusunda tıkladığımda ilgili kaydı yüklüyor. ve dosya yolundaki dosyayı webbrowser da gösteriyor. 
Bazı kayıtlarımda dosya yolu boş. boş olan dosya yollarında hata alıyorum. 
DYolu boş olduğu durumda    Me.WebBrowser4.Navigate "T:/7.JPG" dosyasını göstermesini nasıl sağlayabilirim.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
26-10-2023, 11:38
Visual Basic
  1. If len (Me![DYolu & "")=0 then xYol ="T:/7.JPG" Else xYol=Me![DYolu]
  2. Me.WebBrowser4.Navigate xYol


seklinde dener misiniz



  Bul
  Alıntı
Bu mesajı beğenenler:
serdem48
Aktif Üye 100-150

*
Kayıt Tarihi: 23.09.2014
Toplam 26 konu açtı.
Toplam 127 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 5 / 0
#3
26-10-2023, 13:26
Visual Basic
  1. Me.FilterOn = False
  2.  
  3. Me.Refresh
  4.  
  5.  
  6.  
  7.  
  8. Dim rs As Object
  9.     Set rs = Me.Recordset.Clone
  10.     rs.FindFirst "[S_ID] = " & str(Nz(Me![Liste1], 0))
  11.     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  12.     DoCmd.RunCommand acCmdRefreshPage
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. Me.Liste1.Requery
  20. Me.Liste2.Requery
  21.  
  22. If len (Me![DYolu & "")=0 then xYol ="T:/7.JPG" Else xYol=Me![DYolu]
  23. Me.WebBrowser4.Navigate xYol


bu şekliyle denedim hata veriyor. sanırım xyol bir yerde tanımlama yapmam mı gerekiyor.



  Bul
  Alıntı
Bu mesajı beğenenler:
celalll
Önemli Üye 200-300

*
Kayıt Tarihi: 27.11.2017
Toplam 9 konu açtı.
Toplam 206 yorum yaptı.
Toplam 15 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 12
#4
26-10-2023, 13:37
Me.FilterOn = False
Me.Refresh

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_ID] = " & Nz(Me![Liste1], 0)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.RunCommand acCmdRefreshPage

Me.Liste1.Requery
Me.Liste2.Requery

If Len(Me![DYolu]) = 0 Then
    xYol = "T:/7.JPG"
Else
    xYol = Me![DYolu]
End If
Me.WebBrowser4.Navigate xYol



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
serdem48
Aktif Üye 100-150

*
Kayıt Tarihi: 23.09.2014
Toplam 26 konu açtı.
Toplam 127 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 5 / 0
#5
26-10-2023, 14:11
Teşekkürler her ikisinde de  Oldu.
Halily hocamın verdiği kodda bi tane "]"  eksik kalmış ondan olmamış.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Fonksiyonda Hata zimbit 1 100 12-02-2024, 18:52
Son Mesaj: dsezgin
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 113 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.181 29-12-2023, 10:24
Son Mesaj: burhanb
  [VBA] Dosya Yolu Yazdırma benuva 2 118 26-11-2023, 19:06
Son Mesaj: benuva
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 241 22-06-2023, 19:04
Son Mesaj: dsezgin
access-sql-18 Access.db , Yüksek Dosya Boyutu. BeyTor 9 350 13-05-2023, 22:43
Son Mesaj: BeyTor
  Ikon Eklerken Hata orhnkprn 2 126 27-01-2023, 00:54
Son Mesaj: BeyTor
  Error Hata Bora34 85 1.629 20-12-2022, 21:22
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi