DCount("Name", "MSysObjects", "Name='" & txtTblAd & "' and type in (1,4,6)")Docmd.transferspreadsheet Fonksiyon Olarak Çağırma
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
Ö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
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.
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.
Tablo Ad varmi aranan kisa yoldan.rar
(Dosya Boyutu: 36,43 KB | İndirme Sayısı: 2)
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
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
Konuyu Okuyanlar: 6 Ziyaretçi
