Bakınız bir önceki mesajım)
Yarin kodu o kosullara gore yeniden duzenlerim
Docmd.transferspreadsheet Fonksiyon Olarak Çağırma
(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ı
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Ben arşive eklediğim kodu değiştireceğim
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Tercih meselesi eger isimler belliyse bence dcount/dlookup daha pratik sadece fazladan bir kriter daha eklenecek o kadar
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
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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)
Uyariniz için tesekkurler)
Alttaki koddaki if ile end if arasına tablo silme kodu yazılabilir bence kısa yoldan ![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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
Konuyu Okuyanlar: 2 Ziyaretçi