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