Skip to main content

AccessTr.neT


Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak

Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak

#7
Arkadaşlar, benim uzun süredir yapmaya çalıştığım fakat bir türlü aşamadığım bir sorunum var. Tablodaki kayıtların tümüne ait fotoğrafların tutulduğu klasörde fotoğrafları tarama yaptırmak istiyorum. 

Yani fotoğrafı olmayan kayıtların taramasını yapmak istiyorum açıkçası.
[Resim: do.php?img=4666]

Örnek uygulamamı da ekliyorum : 
.rar [email protected] (Dosya Boyutu: 1,06 MB | İndirme Sayısı: 17)


Yardımlarınız için şimdiden teşekkür ediyorum.
Cevapla
#8
Formu açıp "Taramayı Başlat" butonunu tıklayınız.
.rar [email protected] (Dosya Boyutu: 1,01 MB | İndirme Sayısı: 28)
Cevapla
#9
Teşekkür ederim Sn. ozanakkaya, yapmak istediğim tamda buydu elleriniz dert görmesin. Örneği aldım ve çalışmama uyarlamaya çalıştım fakat bir yerde yine takıldım.  


Fotoğrafların bulunduğu klasör yolu ayarlar tablomdan vermek istedim ama bir türlü olmadı.


Private Sub btnTara_Click()


  Dim sPath As String
    Dim rs As Recordset
    Dim vDir As Variant

    'sPath = CurrentProject.Path & "\MSSAYIMFOTO\" Bunun yerine.
    sPath = Dir(DLookup("FotografKlasorYolu", "tblvtSetting")) 'Bu şekilde ekleme yaptım.
    CurrentDb.Execute "Delete tTempFiles.* from tbl_resimolanlar;"
    
    Set rs = CurrentDb.OpenRecordset("tbl_resimolanlar")
    
    vDir = Dir(sPath & "*.*")
    Do Until vDir = ""
        rs.AddNew
        rs!resimadlari = Left(vDir, InStr(1, vDir, ".jpg") - 1)
        rs.Update
        vDir = Dir
    Loop
    
    rs.Close
    Set rs = Nothing

  Me.TumFotoListBox.Requery
  Me.TumKayitListBox.RowSource = "srg_eslesmeyenler"
End Sub
Cevapla
#10
 sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")
şeklinde olması gerekiyor. Zaten iptal ettiğin kodda Dir kodu bulunmuyor.

Ayrıca ayar tablosundaki resim yolunun .......Project@EKIZ\MSSAYIMFOTO\ şeklinde \ ile bitmesi gerekiyor.
Cevapla
#11
(13/11/2014, 19:02)ozanakkaya yazdı:
 sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")
şeklinde olması gerekiyor. Zaten iptal ettiğin kodda Dir kodu bulunmuyor.

Ayrıca ayar tablosundaki resim yolunun .......Project@EKIZ\MSSAYIMFOTO\ şeklinde \ ile bitmesi gerekiyor.

Teşekkür ederim Sn.ozanakkaya, oradaki ayrıntıyı atlamışım. Elleriniz dert görmesin. Alakanız için tekrar teşekkürler.
Cevapla
#12
Sayın salim.ekiz 
Bu çalışmanızda bir ürüne birden fazla resim ekleyip sonrada o resimlerden istediklerinizi mi görüntülüyorsunuz?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task