Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Dosya Yolunu Değişken Olarak Gösteremiyorum

[VBA] Dosya Yolunu Değişken Olarak Gösteremiyorum
vitusa
Yeni Üye 1-15

*
Kayıt Tarihi: 25.09.2017
Toplam 2 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#1
access-sql-18  19-02-2021, 16:26
Üstatlar öncelikle herkese iyi günler.
Yapmaya çalıştığım bir personel takip projesi var.Personel kartında resim göstermek istiyorum.Göstermek istediğim resimler 'resim' klasörünün içerisinde ve içerisinde bulunan resimlerin dosya adı personellerin sicil numarası olarak kayıtlı.Örneğin personelin sicili:12345 ise resmi 12345.png olarak kayıtlı
Visual Basic
  1. Private Sub Form_Current()
  2. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\12345.png"



bu kod sorunsuz çalışıyor.Benim istediğim sicil değiştiğinde dosya yolu sonundaki 12345.png sicile göre değişsin.Bunun için kodu şu şekilde revize ettim:


Visual Basic
  1. Private Sub Form_Current()
  2. Me.sicil = [SİCİLİ] & ".png"
  3. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\Me.sicil"



ancak bu kod hata veriyor ve çalışmıyor.Bu konuda yardımcı olursanız sevinirim.Saygılar



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

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
19-02-2021, 19:14
Visual Basic
  1. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\Me.sicil"


Satırını
Visual Basic
  1. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\" & Me.sicil


şeklinde düzenleyebilirsiniz.



  Bul
  Alıntı
Bu mesajı beğenenler:
vitusa
Yeni Üye 1-15

*
Kayıt Tarihi: 25.09.2017
Toplam 2 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#3
20-02-2021, 13:46
(19-02-2021, 19:14)halily demiş ki:
Visual Basic
  1. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\Me.sicil"


Satırını
Visual Basic
  1. Me.cerceve.Picture = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\" & Me.sicil


şeklinde düzenleyebilirsiniz.


Bu şekilde girince sorunsuz çalıştı.Çok teşekkür ederim.Dosya da o sicilde bir klasör yok ise açamadı hatası veriyor bu hatayı engellemek için on goto error komutu denedim ancak başarılı olmadı eğer o isimde dosya bulamıyorsa yine resim klasörü içinde resimyok.jpg dosyasını nasıl göstertebilirim hocam



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

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#4
20-02-2021, 14:22
kod aşağıdaki gibi olmalıdır.
Visual Basic
  1. VarMi = Dir(Me.sicil )
  2. if VarMi ="" then VarMi = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\resimyok.jpg"
  3. Me.cerceve.Picture =VarMi





  Bul
  Alıntı
Bu mesajı beğenenler:
vitusa
Yeni Üye 1-15

*
Kayıt Tarihi: 25.09.2017
Toplam 2 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#5
20-02-2021, 15:40
Hocam bunu nasıl revize edeceğimi ve çalışma mantığını tam olarak anlayamadım rica etsem açıklayabilir misiniz.Ayrıca bi kaç deneme yaptım revize etmek için maalesef hata veriyor.Sorunumu on error goto ile çözebileceğimi düşünüyordum siz çok başka bir şey yazmışsınız tam olarak çözemedim



  Bul
  Alıntı
Bu mesajı beğenenler:
vitusa
Yeni Üye 1-15

*
Kayıt Tarihi: 25.09.2017
Toplam 2 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#6
20-02-2021, 15:43
Visual Basic
  1. VarMi = Dir(Me.sicil ) 
  2. if VarMi ="" then VarMi = "C:\Users\aa\Desktop\çalışma\Yeni klasör\resim\resimyok.jpg" '
  3. Me.cerceve.Picture =VarMi
  4.  
  5.  
  6.  
  7. 'varmi eğer boşsa varmi resimyok.jpg olsun demişsiniz ama varmi tanımlamasını ve boş ise mantığını tam olarak çözemedim





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [MAKRO] Alt Formda Filtrelemenin Iptali Ve Alt Formun Liste Olarak Görünmesi. M_Kemal_Askeri 2 133 21-04-2026, 23:57
Son Mesaj: M_Kemal_Askeri
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 142 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Word Dot şaplonunu Açtırarak Dosya Göndermek Aplt 1 342 12-01-2025, 17:11
Son Mesaj: dsezgin
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 435 13-08-2024, 21:18
Son Mesaj: abkbek
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 953 01-08-2024, 10:28
Son Mesaj: dsezgin
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 455 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 501 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.518 29-12-2023, 10:24
Son Mesaj: burhanb

Foruma Git:


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