Merhaba, fonksiyonu aşağıdaki ile değiştirerek deneyiniz.

Private Function FilesAndDetails()

On Error GoTo Err_FilesAndDetails



    Dim rs As Recordset

    Dim vDir As Variant

    Dim sPath As String

    

    sPath = CurrentProject.Path & "\" & Me.AltKlasor & "\"

    

    CurrentDb.Execute "Delete tTempFiles.* from Tbl_Dosya;"

    

    Set rs = CurrentDb.OpenRecordset("Tbl_Dosya")

    

    vDir = Dir(sPath & "*.*")

    Do Until vDir = ""

        rs.AddNew

        rs!FilePathName = sPath & vDir

        rs!FilePath = sPath

        rs!FileName = vDir

        rs!ModifiedDate = FileDateTime(sPath & vDir)

        rs!FileSize = FileLen(sPath & vDir)

        rs.Update

        vDir = Dir

    Loop

    

    rs.Close

    Set rs = Nothing



    DoCmd.Requery



Exit_FilesAndDetails:

    Exit Function

    

Err_FilesAndDetails:

    MsgBox Err.Number & " - " & Err.Description

    Resume Exit_FilesAndDetails



End Function