Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

1 2 3 4 5 6 7 8 9 10 11 12 13
17/02/2020, 15:45

berduş

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.
17/02/2020, 16:00

feraz

1,4 ve 6 nedir?
Bağlantılı tablo,normal tablo gibi bir şey midir?
17/02/2020, 16:09

berduş

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
17/02/2020, 18:17

feraz

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
17/02/2020, 18:30

feraz

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.
17/02/2020, 19:04

berduş

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
1 2 3 4 5 6 7 8 9 10 11 12 13