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