(13/10/2016, 11:12)ozanakkaya yazdı: Merhaba,
dialog modülündeki "GetOpenFile_CLT" fonksiyonunu 64 Bitte çalıştıramazsınız.

modülü tamamen silip butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim Klasor As String

Dim Sonuc As String

With DoCmd

    .SetWarnings False

    .RunSQL "delete from TblUrunler "

    .SetWarnings True

End With



    With Application.FileDialog(msoFileDialogOpen)

    

        .Title = "Select a file"

        .Filters.Clear

        .Filters.Add "Excel files", "*.xlsx, *.xls"

        .AllowMultiSelect = False

        .Title = "Belge Seçiniz"

        .InitialFileName = CurrentProject.Path

        

        Sonuc = .Show

        

            If (Sonuc <> 0) Then

                Klasor = Trim(.SelectedItems.Item(1))

                 DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _

                tablename:="TblUrunler", FileName:=Klasor, _

                Hasfieldnames:=True

                Me.SiraNo.SetFocus

                Me.Requery

        End If

    End With

Ozan hocam daha önce böyle yazmıştı;
dialog modülündeki "GetOpenFile_CLT" fonksiyonunu 64 Bitte çalıştıramazsınız.
malesef çalışmadı.