AccessTr.neT
Excelden veri alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excelden veri alma (/konu-excelden-veri-alma.html)

Sayfalar: 1 2 3 4 5

Cvp: Excelden veri alma - atoz112 - 13/10/2016

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.

Cvp: Excelden veri alma - ates2014 - 13/10/2016

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.

Cvp: Excelden veri alma - atoz112 - 13/10/2016

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.

Cvp: Excelden veri alma - ates2014 - 13/10/2016

Denedim çalışmadı.

Cvp: Excelden veri alma - atoz112 - 13/10/2016

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.

Cvp: Excelden veri alma - atoz112 - 13/10/2016

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.