sayın ates2014,

ilk mesajda eklediğiniz örnek üzerinden ve sayın ozan bey tarafından 4.mesajda paylaşılan kodlara yönelik olarak;

öncelikle,Dialog adlı modülün kodlarını tamamen etkisiz duruma getiriniz.

ardından,Komut7 adlı butonun içeriğini;

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))





Me![txtEklenti] = Right$(Klasor, Len(Klasor) - InStrRev(Klasor, "\"))





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

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

                Hasfieldnames:=True

                Me.SiraNo.SetFocus

                Me.Requery

        End If

    End With

kodları ile değiştirerek kullanınız.


bilginize...iyi çalışmalar,saygılar.