A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Tablo Gizleme Gösterme Kodları
#1
Selam

Ekte verdiğim programda (program çalışıyor ama istediğim program bu değil) gizle ve göster butonlarına basarak tabloları gizleyip tekrar görünür hale getirebiliyorum. Butona tıkladıktan sonra program aç-kapa yapıldığında veya tasarım moduna alındığında işlemin gerçekleştiği görülebiliyor. Tablo isimlerini otomatik olarak alıp gizlemede problemim yok ama tablo isimlerini tek tek yazmadan geri getirme işini beceremedim.  Çalışsın diye kodu; 

Visual Basic
  1. Private Sub Komut89_Click()
  2. Dim tbl As AccessObject, DB As Object
  3. Set DB = Application.CurrentData
  4. For Each tbl In DB.AllTables
  5. If Not Left(tbl.Name, 4) = "MSys" Then
  6. 'Call TabloGoster(tbl.Name)
  7. End If
  8. Next tbl
  9. Call TabloGoster("Tablo1")
  10. Call TabloGoster("Tablo2")
  11. Call TabloGoster("Tablo3")
  12. Call TabloGoster("Tablo4")
  13. End Sub



şeklinde yazmak zorunda kaldım ancak gerçek programımda çok fazla tablo mevcut, gizle kısmındakine benzer tablo isimlerini elle yazmadan halletmem gerekiyor;

Visual Basic
  1. Call TabloGoster(tbl.Name)


  tarzında bir koda ihtiyacım var ama maalesef beceremedim. Yardımcı olacak arkadaşlara şimdiden teşekkürler.


Eklenti Dosyaları
.rar   Program.rar (Boyut: 20,89 KB / İndirilme: 19)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Private Sub Komut88_Click()
  2. Dim tbl As AccessObject, DB As Object
  3. Set DB = Application.CurrentData
  4. For Each tbl In DB.AllTables
  5. If Left(tbl.Name, 4) <> "MSys" Then Application.CurrentDb.TableDefs(tbl.Name).Properties("Attributes").Value = 2
  6. Next tbl
  7. Application.RefreshDatabaseWindow
  8. End Sub



2=Gizle
0=Göster



  Alıntı
Bu mesajı beğenenler: halily
#3
Hocam çok teşekkürler.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Vt Tasarım Penceresini Gizleme Ve Kullanıcı Formuna Masaüstünde Ulaşabilmek? abkbek 0 19 9 saat önce
Son Mesaj: abkbek
  [VBA] Vba Koduyla Birden Fazla Metin Kutusu Gizleme footprinting 5 104 01-05-2021, 18:00
Son Mesaj: halily
  [FONKSiYON] Ondalık Sayı Ile Tam Sayıyı Ayrı Ayrı Gösterme necasi 1 78 29-03-2021, 09:45
Son Mesaj: dsezgin
  [VBA] Access Penceresini Gizleme M_Kemal_Askeri 6 218 23-03-2021, 03:32
Son Mesaj: M_Kemal_Askeri
  Access Penceresini Gizleme neco_can 1 123 15-01-2021, 15:09
Son Mesaj: dsezgin
  [FORM] Access Gizleme ates2014 7 299 16-12-2020, 16:51
Son Mesaj: ates2014
  [FORM] Access Logosunu Gizleme ekremer1969 2 155 25-11-2020, 19:09
Son Mesaj: ekremer1969
  [SORGU] Seçime Göre Resim Gösterme Ve Worde Aktarma derzulya 4 364 19-09-2020, 09:03
Son Mesaj: derzulya

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi