AccessTr.neT

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

Yarin kodu o kosullara gore yeniden duzenlerim

(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

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

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)

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