Excelden veri alma

sayın ates2014,

7.mesajdaki alternatif örnek uygulamayı denediniz mi?

sonuç nedir?


ayrıca,
11.mesajdaki kodları denediniz mi?

sonuç nedir?


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

evet sy.atoz112 çalışmadı,
DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
tablename:="TblUrunler", FileName:=strFileToOpen, _
Hasfieldnames:=True
bu satır hata verdi,
Yalnız o sorumuz çözüldü,
bu diyaloğ penceresinin açılıp seçmiş olduğum belgenin adını almak istiyorum,
şimdiki sorunum bu,
Me![txtEklenti] = GetOpenFile_CLT("DEPO\MAASLAR\2013-MAAS\BANKA LİSTESİ", "Gönderilecek Dosya Seçin.")
opendiyalog ile seçmiş olduğum belge adını Me![txtEklenti] = metin kutusuna almak .
çok teşekkür ederim.

sayın ates2014,

Alıntı:şimdiki sorunum bu,
Me![txtEklenti] = GetOpenFile_CLT("DEPO\MAASLAR\2013-MAAS\BANKA LİSTESİ", "Gönderilecek Dosya Seçin.")
opendiyalog ile seçmiş olduğum belge adını Me![txtEklenti] = metin kutusuna almak .

ifadenize yönelik olarak;

konunuzun 11.mesajında yer alan

Dim dosyaadiyaz As String

dosyaadiyaz = GetOpenFile_CLT("DEPO\MAASLAR\2013-MAAS\BANKA LİSTESİ", "Gönderilecek Dosya Seçin.")

Me![txtEklenti] =dosyaadiyaz

kodları denediniz mi?

ya da,4.mesajda eklenen kodlar üzerinden yazmak gerekirse,

Me![txtEklenti]=Klasor

kod ifadesini deneyiniz.bilginize...iyi çalışmalar,saygılar.

Denedim çalışmadı.

sayın ates2014,

metin denetimine aktarmaksızın bu hali ile uygulama çalışıyorsa eğer,

Me![txtEklenti]=Klasor

kod satırını yazmanız yeterlidir.

fakat,eğer aktarmaksızın çalışmıyorsa,öncesinde diğer sorununuz olan 32 bit / 64 bit konusunu çözmelisiniz.

son olarak;
kısa cümleler içerecek şekilde yazmak yerine ayrıntılı bilgiler yazmaya gayret ediniz.örneğin;çalışmadıysa hata mı verdi,hata verdiyse hata resmini ekleyiniz (bu arada,konunuzu,yeniden Sorular Kategorisi'ne taşınmış olacağından dolayı eklemeler yapabilirsiniz.)

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

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.