AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13

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 Img-grin

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

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13

berduş

feraz

berduş

feraz

feraz

berduş