+- 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ığı: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma (/konu-docmd-transferspreadsheet-fonksiyon-olarak-cagirma.html)
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
Bakınız bir önceki mesajım)
Yarin kodu o kosullara gore yeniden duzenlerim
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 16/02/2020
(16/02/2020, 22:49)berduş yazdı: Aslında sizin de uyarınızla Dlookup kodunun eksik olduğunu şimdi farkettim)Bence excelden veri alma konusunu tümden silip başka kod ile tablo ismini bulma koduyla yapmalısınuz gibi.Zaten çok fazla mesaj yazılmıştı
Ben arşive eklediğim kodu değiştireceğim
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
Tercih meselesi eger isimler belliyse bence dcount/dlookup daha pratik sadece fazladan bir kriter daha eklenecek o kadar
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 16/02/2020
Tamam üstad.Ben değiştireceğim ne olur ne olmaz.O konudaki dosya kodlarını değiştirip tekrar yüklemeliyim yarın.Bende kısa kod eklerim
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
Gerçi kod örnekteki yapıya uygun yani sadece tabloları içeriye aktaran yapıya ama dediginiz gibi o adda form yada sorgu da bulunabileceginden oradaki kodu değiştirmem gerekecek.
Uyariniz için tesekkurler)
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 16/02/2020
Alttaki koddaki if ile end if arasına tablo silme kodu yazılabilir bence kısa yoldan
Acaba formda sorunmu var kodları tag içine alınca garip garip yazılar çıkıyor color vs...
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
İf obj.Name ="TmpTablo" then
Exit for
End if
Next obj