TreeView ile Form Yönetmek

1 2
30/04/2009, 10:54

Entepli

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
30/04/2009, 13:17

okileturc

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

esrefigit

ö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
30/04/2009, 15:09

Entepli

İ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?
30/04/2009, 16:09

esrefigit

önce image list ekle sonra ona ikonlar ekle bu ikonlara key numarası ver ve bu image liti treewieve tanıt
30/04/2009, 16:15

Entepli

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?
1 2