Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

1 2 3 4 5 6 7 8 9 10 11 12 13
16/02/2020, 22:50

berduş

Bakınız bir önceki mesajım)

Yarin kodu o kosullara gore yeniden duzenlerim
16/02/2020, 22:53

feraz

(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
16/02/2020, 22:56

berduş

Tercih meselesi eger isimler belliyse bence dcount/dlookup daha pratik sadece fazladan bir kriter daha eklenecek o kadar
16/02/2020, 23:02

feraz

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
16/02/2020, 23:05

berduş

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)
16/02/2020, 23:12

feraz

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
1 2 3 4 5 6 7 8 9 10 11 12 13