TreeView ile Form Yönetmek - Baskı Önizleme

TreeView ile Form Yönetmek - Baskı Önizleme

+- 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ığı: TreeView ile Form Yönetmek (/konu-treeview-ile-form-yonetmek.html)

Sayfalar: 1 2

TreeView ile Form Yönetmek - Entepli - 30/04/2009

Arkadaşlar veri tabanımdaki formları TreeView ile yönetmem mümkün müdür? Yani mesala satış ve Alış ile ilgili formlarım için aşağıdaki şekilde bir yapı oluşturmam müm kün müdür?
Satışlar
Yurt İçi
Yurtdışı
USD
Euro
Diğer
Alışlar
Yurtiçi
İhhalat
en son noktada çift tıkladığımda bu konu ile ilgili form açılsa. böyle birşey yapabilir miyim.
Yardımcı olursanız sevinirim.
Saygılar

Cvp: TreeView ile Form Yönetmek - okileturc - 30/04/2009

Değiştirerek uyarlayabileceğiniz bir uygulamayı daha önce
siteye göndermiştim. Kaynak : DataPig
Treeview uygulaması - Satranç açılışlar
Kolay gelsin

Cvp: TreeView ile Form Yönetmek - esrefigit - 30/04/2009

önce treeviev nesnesi eklenir sonra image list nesnesi eklenir
burda gördüğün gibi 4 ana bölümlü bir treewiev var her satırın sonundaki rakam o satırın imagelistteki iconu eğer 2 rakam varsa İşlemleri", 3, 4) buda birinci rakam kapalı durmdaki ikinci rakamda tıklandıktan sonraki iconu gösteririr
en altta da örnek olarak bir rapor açılma ile ilgili kod var treewieve tıklama sonrası kodu

Kod:

Private Sub Form_Load()

 

 Dim nodobject   As Node

 With Me.TreeView4.Nodes

 Set nodobject = .Add(, , "MÜŞTERİ", "İhracat Kayıtları", 6)

 Set nodobject = .Add("MÜŞTERİ", tvwChild, "F_MÜŞTERİ", "MÜŞTERİ KAYIT İŞLEMLERİ")

 Set nodobject = .Add("MÜŞTERİ", tvwChild, "F_MÜŞTERİ_KAYIT_BUL", "MÜŞTERİ KAYIT BULMA ")



            

           



            Set nodobject = .Add(, , "MAL", "DEPO KAYIT", 5)

            Set nodobject = .Add("MAL", tvwChild, "F_MAL_TURLERI_KAYIT", "Mal Türleri Kayıt İşlemleri", 3, 4)

            Set nodobject = .Add("MAL", tvwChild, "F_MAL_TURLERI_LISTE", "Mal Türleri Listesi")







            Set nodobject = .Add(, , "RAPOR", "Raporlama", 1)

            Set nodobject = .Add("RAPOR", tvwChild, "F_rapor1", "Rapor1")

            Set nodobject = .Add("RAPOR", tvwChild, "F_rapor2", "Rapor2")





             Set nodobject = .Add(, , "ÖDEME", "ÖDEME KAYITLARI", 2)

            Set nodobject = .Add("ÖDEME", tvwChild, "F_FIRMA_KAYIT", "Firma Kayıt İşlemleri")

            Set nodobject = .Add("ÖDEME", tvwChild, "F_FIRMA_LISTE", "Firma Listesi")





            Set nodobject = .Add(, , "SATIŞ", "SATIŞ KAYITLARI", 3)

            Set nodobject = .Add("SATIŞ", tvwChild, "F_SATIŞ", "SATIŞ İŞLEMLERİ")



End With







End Sub







Private Sub TreeView4_NodeClick(ByVal Node As Object)

Select Case Node

Case "Rapor1"

DoCmd.OpenForm "Rapor1"

Case "Rapor2"

DoCmd.OpenForm "Rapor2"

End Select

End Sub

Cvp: TreeView ile Form Yönetmek - Entepli - 30/04/2009

İlginize teşekkür ederim

Esref bey yazdığınız kodu çalıştırınca "image list must be initialized before it can be used" şeklinde bir uyarı alıyorum. Bu sorunu nasıl aşarım?

Cvp: TreeView ile Form Yönetmek - esrefigit - 30/04/2009

önce image list ekle sonra ona ikonlar ekle bu ikonlara key numarası ver ve bu image liti treewieve tanıt

Cvp: TreeView ile Form Yönetmek - Entepli - 30/04/2009

az önce yazdığım sorunu çözdüm ama şimdi de indeks out of bounds şeklinde bir hata alıyorum. Ne yapabilirim ?

bu sorunu da çözdüm ama şimdi de type mistake şeklinde bir hata alıyorum "MÜŞTERİ" bunun bir bağlantısı mı var?