eklediğim sizin örneğe bu dediğiniz Dlookup  kısmını nasıl ekleriz

iyi de orada zaten kullanılmış

If Not IsNull(DLookup("Name", "MSysObjects", "Name='TmpTablo'")) Then DoCmd.DeleteObject acTable, "TmpTablo"

önce dosya var mı diye kontrol ediyor sonrada varsa siliyor. sizin yapmanız gereken silmek yerine kendi istediğiniz kodu yazmak.

teşekkürler şöyle yazdım

If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & accessTableName & "'")) Then
        transferFromExcel = True
Else
        transferFromExcel = False
End If

Alttaki kod ile tablo adlarını bulup koşul ile karşılaştırabilirsiniz.

Dim adoRecSet As New ADODB.Recordset

            Set adoRecSet = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

    

    Do While Not adoRecSet.EOF

      Debug.Print adoRecSet.Fields("TABLE_NAME").Value

        adoRecSet.MoveNext

    Loop

    adoRecSet.Close

      

    Set adoRecSet = Nothing

Dao ile kısa kıd vardı bulamadım.

yazdığınız kod çoklu tablo yada sorgu alırken işe yarayabilir ama burada tek tablonun daha doğrusu adı bilinen bir nesnenin varlığı kontrol edileceği için en kısası Dlookup yada DCount bence