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