AccessTr.neT

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

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]

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