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,

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.
Sayfalar: 1 2 3 4 5