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.
Excelden veri alma
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.
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,
ifadenize yönelik olarak;
konunuzun 11.mesajında yer alan
kodları denediniz mi?
ya da,4.mesajda eklenen kodlar üzerinden yazmak gerekirse,
kod ifadesini deneyiniz.bilginize...iyi çalışmalar,saygılar.
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,
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.
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;
kodları ile değiştirerek kullanınız.
bilginize...iyi çalışmalar,saygılar.
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.
Konuyu Okuyanlar: 1 Ziyaretçi