DCount("Name", "MSysObjects", "Name='" & txtTblAd & "' and type in (1,4,6)")
şeklinde yazarsanız sistemde bu adda kayıtlı tablo sayısını gösterir.
1,4 ve 6 nedir?
Bağlantılı tablo,normal tablo gibi bir şey midir?
bağlantılı tablo daha önce sizinle yaptığımız değişmişse güncelle yoksa ekle çalışmasında kullanmıştık tabloyu doğrudan eklemek yerine esas tabloya bağlanmıştık ve üzerinde işlem yapmıştık. bir nevi kısayol olarak da düşünebilirsiniz
Sağolun berduş hocam.
Ö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 Function
Kod:
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
Access hocamız içinde örnek dosyayı ekleyeyim.
Arşive alacaktım lazım olur.
Textboxa yazılan veriye göre arama yapar.
Bu arada sayın @
berduş hocam sorgu rapor ve form için nasıl yazacağız şu 1,4,6 gibi yerlere.
https://accesstr.net/konu-docmd-transfer...#pid164704
37. mesajda paylaştığım bağlantıda form, rapor yada sorgu hepsi için kodlar verilmiş
Queries = 5
Forms = -32768
Reports = -32764
Macros = -32766
Modules = -32761
Diğerlerinde tek değer olduğu için type in yerine type=... gibi yazilacak