AccessTr.neT

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ı.


Örnek uygulamamı da ekliyorum : [attachment=21331]

Yardımlarınız için şimdiden teşekkür ediyorum.

Formu açıp "Taramayı Başlat" butonunu tıklayınız.

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

 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.

(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.

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?