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
Docmd.transferspreadsheet Fonksiyon Olarak Çağırma
Konuyu Okuyanlar: 3 Ziyaretçi