23-04-2021, 17:34
(En son düzenleme: 23-04-2021, 17:45 ekremer1969.)
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;
ş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;
tarzında bir koda ihtiyacım var ama maalesef beceremedim. Yardımcı olacak arkadaşlara şimdiden teşekkürler.
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
- Private Sub Komut89_Click()
- Dim tbl As AccessObject, DB As Object
- Set DB = Application.CurrentData
- For Each tbl In DB.AllTables
- If Not Left(tbl.Name, 4) = "MSys" Then
- 'Call TabloGoster(tbl.Name)
- End If
- Next tbl
- Call TabloGoster("Tablo1")
- Call TabloGoster("Tablo2")
- Call TabloGoster("Tablo3")
- Call TabloGoster("Tablo4")
- 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
- Call TabloGoster(tbl.Name)
tarzında bir koda ihtiyacım var ama maalesef beceremedim. Yardımcı olacak arkadaşlara şimdiden teşekkürler.