Tablo Var Mı Kontrol Etme

18/08/2011, 13:52

berna

Herkese merhabalar.

Veritabanımda, mesela musterilerim isimli tablonun olup olmadığını Vba kodu kullanarak nasıl öğrenebilirim. Yani butonu tıklayınca, tablo yok ise mesaj kutusu ile uyarı versin istiyorum.

Teşekkürler
18/08/2011, 15:16

ozanakkaya

Merhaba,

Modüle aşağıdaki kodu ekle

Public Function Tablo_Varmi(tabloadi As String) As Boolean

    If DCount("[Name]", "MSysObjects", "[Name] = '" & tabloadi & "'") = 1 Then

        Tablo_Varmi = True

    End If

End Function
Formdaki komut butonuna da aşağıdaki kodu ekle
If Tablo_Varmi("musterilerim") = True Then

MsgBox ("Tablo Var")

Else

MsgBox ("Tablo Yok")

End If

Butona tıkladığında, 
[url=http://www.per**.com.tr][/url]
18/08/2011, 15:35

berna

Çok teşekkür ederim sayın admin. Kod çok işime yaradı. Hızlı cevabınız için de teşekkürler.