AccessTr.neT

Bul · 16/02/2020, 15:56

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

Bul · 16/02/2020, 16:40

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.

Bul · 16/02/2020, 17:17

teşekkürler şöyle yazdım

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

Bul · 16/02/2020, 20:22

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

Bul · 16/02/2020, 20:25

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

Bul · 16/02/2020, 20:43

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

AccessTr.neT

Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri