Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - 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ığı: 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 |