AccessTr.neT

Tam Versiyon: Excelden veri alma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
sayın ates2014,

EK'te yer alan örnek uygulamayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Sayın ates2014,

Hazırlamaya çalıştığınız örnek uygulama içeriğine dair bir hususu belirtmekte fayda var kanısındayım.

Her ne şekilde Excel dosyasını seçip bağlantıyı sağlasanız bile,verileri TblUrunler adlı tabloya aktarmadan öncesinde bu tablodaki mevcut kayıtları önce komple silip boş duruma getirmelisiniz ki hemen akabinde exceldeki kayıtları aktarabilesiniz.

Çünkü;bu hali ile işlem yapılırsa,mevcut kayıtların üzerine dahil etmek isteyebilir veya hata verebilir.bu nedenle,

DoCmd.TransferSpreadsheet...

Komut satırı öncesinde;

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM TblUrunler"
DoCmd.SetWarnings True


Komut satırı ile tablodaki mevcut kayıtları temizlemelisiniz.

NOT
7.mesajdaki örnek uygulama,bu açıklamalarda bahsi yapıldığı hali ile eklenmiştir.

Bilginize…iyi çalışmalar,saygılar.
Çok teşekkür ederim ozan hocam, referansı ekleyince sorun gitti,
Sizede ilginiz için çok teşekkür ederim Atoz112 hocam...
tabloyu boşaltma kodum vardı zaten, bu kodların üzerinde.
Sy.atoz112 çok hızlısınız,
tam buna bağlı olarak bir sorumun daha çıktı,
open diyalokla belge adını alıyorum aşağıdaki kodla, bu kodumda çalışmıyor.

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

Buradaki GetOpenFile_CLT  yerine ne yazmam gerek ?
Sayın ates2014,

Alıntı:Sy.atoz112 çok hızlısınız,

Konunuzun,Cevaplanmış Sorular Kategorisi’ne taşınmasına atıfta bulunarak yazdığınız ifadenize yönelik olarak,bir hatırlatma olması adına;


Alıntı:sorun gitti

gibi ya da benzeri ifadeler ile sorununuzun çözüme ulaştığını beyan etmeden öncesinde,paylaşılan çözümleri veya örnekleri birkaç kez denemeniz ve sonrasında kesin olumluluk edinildiğinde bu ifadeleri yazmanız daha yerinde olacaktır.

Böylece,konularınız;bu ifadeler akabinde,Cevaplanmış Sorular Kategorisi’ne taşınmamış olur ve açıkça beklemeye devam eder.

Son olarak;
Sayın ozan bey tarafından konunuzun 4.mesajındaki kod değişikliklerini içeren işlemleri,kendi adıma denemedim.dolayısı ile de,sizin yazdığınız kodlar akabinde yazmak gerekirse,

Dim dosyaadiyaz As String
dosyaadiyaz = GetOpenFile_CLT("DEPO\MAASLAR\2013-MAAS\BANKA LİSTESİ", "Gönderilecek Dosya Seçin.")
Me![txtEklenti] =dosyaadiyaz

Benzeri bir kod kullanımını deneyiniz.

Bilginize…iyi çalışmalar,saygılar.
(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ı.
Sayfalar: 1 2 3 4 5