Önceki verdiğiniz39.mesajdaki kodları denedim gereksiz geldi bana ve tablo adlarında extra adda buluyor.
En iyisi son verdiğiniz kodu kullanmak.
accessman hocamız içinde alttaki gibi kod yaptım
Kod:
Option Compare Database
Public Function TabloAvarmi(tabloAd As String) As Boolean
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & tabloAd & "' and type in (1,4,6)")) Then
TabloAvarmi = True
Else
TabloAvarmi = False
End If
End FunctionKod:
Private Sub Button1_Click()
If TabloAvarmi("Tablo1") = True Then
MsgBox "Aranan Tablo Var...", vbInformation, "Bilgi"
Else
MsgBox "Aranan Tablo Yok...", vbCritical, "Hata"
End If
End Sub