+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma (/konu-docmd-transferspreadsheet-fonksiyon-olarak-cagirma.html)
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 17/02/2020
DCount("Name", "MSysObjects", "Name='" & txtTblAd & "' and type in (1,4,6)")Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 17/02/2020
1,4 ve 6 nedir?
Bağlantılı tablo,normal tablo gibi bir şey midir?
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 17/02/2020
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
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 17/02/2020
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 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 SubCvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 17/02/2020
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.
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 17/02/2020
https://accesstr.net/konu-docmd-transferspreadsheet-fonksiyon-olarak-cagirma.html?pid=164704#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