Access ile form tasarımında tree kullanımı

[tayaz]

Merhaba,
Access 'de tasarladığım bir form üzerinde tree olması gerekiyor. Ancak bunu nasıl yapacağımı bulamadım. yardımcı olabilir misiniz?

 

[modalı]

Sayın tayaz,

Nesne kutusunun içinde en aşağıda ActiveX denetimleri ekleme butonu var, oradan Microsoft tree view denetimini eklerseniz işiniz görülür herhalde.

İyi çalışmalar

 

[akd]

Merhaba arkadaşlar,
Sayın modalı, çalışmama tree view'li bir menü yapmak istiyorum,
Basit bir örnek yapabilirmisiniz,
ben daha sonra kendi uygulamama geliştirerek uygularım.
İyi çalışmalar...

 

[gulsum1]

cevap

önce treeviev nesnesi eklenir sonra image list nesnesi eklenir

Private Sub Form_Load()


Dim nodobject As Node
With Me.TreeView4.Nodes
Set nodobject = .Add(, , "g", "GELEN EVRAK", 1, 3)
Set nodobject = .Add("g", tvwChild, "F_3", "GELEN GİRİŞ")
Set nodobject = .Add("g", tvwChild, "F_4", "GELEN ARŞİV", 2)


Set nodobject = .Add(, , "giden", "GİDEN EVRAK", 1)
Set nodobject = .Add("giden", tvwChild, "F_1", "GİDEN GİRİŞ", 1, 3)
Set nodobject = .Add("giden", tvwChild, "F_1_TURLERI_LISTE", "GİDEN ARŞİV")
Set nodobject = .Add(, , "RAPOR", "RAPORLAMA", 1)
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor1", "GELEN EVRAK DEFTERİ")
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor2", "GİDEN EVRAK DEFTERİ")

Set nodobject = .Add(, , "ÇIKIŞ", "ÇIKIŞ", 1)

End With


End Sub

Private Sub TreeView4_NodeClick(ByVal Node As Object)
Select Case Node
Case "GELEN GİRİŞ"
Alt56.SourceObject = "EVRAK"
Case "GELEN EVRAK"
Alt56.SourceObject = "ANASAYFA"
Case "GİDEN EVRAK"
Alt56.SourceObject = "ANASAYFA"
Case "GİDEN GİRİŞ"
Alt56.SourceObject = "GİDENEVRAK"
Case "GELEN ARŞİV"
DoCmd.OpenForm "gelenevrakarsiv"
Case "GİDEN ARŞİV"
DoCmd.OpenForm "gidenevrakarsiv"

Case "GELEN EVRAK DEFTERİ"
Dim stDocName As String

stDocName = "2006"
DoCmd.OpenReport stDocName, acPreview
Case "GİDEN EVRAK DEFTERİ"



Case "ÇIKIŞ"
DoCmd.Quit
End Select
End Sub

Set nodobject = .Add("giden", tvwChild, "F_1", "GİDEN GİRİŞ", 1, 3)

burdaki 1 tıklamadan önceki resim 3 tıkladıktan sonraki resim

 

[gulsum1]

cevap

buda tablodaki verileri treewive alma kodu


Private Sub Form_Load()
Dim BRANSIM As String
Dim nodobject As Node
Dim ISIM As String
Dim ALAN As String
Dim anahtar As String

With Me.TreeView4.Nodes
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT DISTINCTROW PERSONEL.BRANŞI AS BRANS FROM PERSONEL GROUP BY PERSONEL.BRANŞI"
Set rs = db.OpenRecordset(strSQL)

rs.MoveFirst

Do While Not rs.EOF
BRANSIM = Nz(rs![BRANS])
Set nodobject = .Add(, , BRANSIM, BRANSIM)
rs.MoveNext
Loop

Set rs = Nothing
strSQL = ""
strSQL = "SELECT DISTINCTROW PERSONEL.[PERSONEL NO], PERSONEL.[ADI SOYADI], PERSONEL.BRANŞI FROM PERSONEL GROUP BY PERSONEL.[PERSONEL NO], PERSONEL.[ADI SOYADI], PERSONEL.BRANŞI"
Set rs = db.OpenRecordset(strSQL)

rs.MoveFirst



Do While Not rs.EOF
ISIM = Nz(rs![ADI SOYADI])
ALAN = Nz(rs![BRANŞI])
anahtar = "A" & Nz(rs![PERSONEL NO])
Set nodobject = .Add(ALAN, tvwChild, anahtar, ISIM)
rs.MoveNext
Loop

End With
End Sub

örnek gerçek veriler içerdiği için koyamıyorum

 

[assenucler]

İstek

Merhabalar

tayaz, sn. modalı ve gulsum'un katkıları ile yaptığınız dosyayı eklerseniz, bizlerin de faydalanacağı bir dosyaya sahip olabiliriz.

Katkı ve paylaşımlarınız için teşekkürler.

 

[acy06]

Ttree viev menü

Sayın Modalı;

Tree viev menülü bir form oluturmak istiyorum. Bunu bir örnekle açıklarsanız sevinirim.

 

[gulsum1]

koyulacak örnekte modalının dediği ekleden activexlerden treewiev yine aynı yerden imagelist eklenmiş ve yukardaki kodlardan başka bir şey olmaz onuda sizde yaparsınız yukardaki kodu aynen kopyala ve yapıştır

orda unutmuşum imagelist e ikonlar ekeleyeceksiniz üstüne tıklayın açılan menüden ekleyin birde treewievde imagelisti göstereceksiniz yada yukarda bahsettiğim 1 3 rakamlarını kaldırın

 

[mithrill74]

sayın gülsüm1.
bu treewiev içeren form hazırlamayı örnek bir dosya ile açıklayabilirseniz çok daha faydalı olur kanaatindeyim. çünkü konuya benim gibi yeni olanlar için kodlar biraz karışık geliyor.))

 

[yeni54]

treeview ile hazırlanmış geliştirmeye açık bir menü örneği

menü adımlarını tabloya bağlamak da size kalmış artık...

 

[acy06]

treeview ile hazırlanmış geliştirmeye açık bir menü örneği

menü adımlarını tabloya bağlamak da size kalmış artık...

Peki arkadaşım raporları nasıl bağlayacağız.

' FATURA
Case "fatura_h"
stDocName = "srgEQU"
DoCmd.OpenForm stDocName, , , stLinkCriteria

kodunda OpenForm yerine OpenRapor mu? yazmamız lazım ya da başka bir kodmu yazmamız lazım....

 

[yeni54]

#4 nolu Gülsüm Hn ın mesajında sorunun cevabı mevcut

 

[kaikai]

güzel çalışma tebrikler

 

[kaikai]

arkadaşlar şimdi treeview de bir ana menü yaptım lakin tüm öğeler açık konumda ben istedğimin yanındaki artı ya basıp eksi hale getirip içindeki seçeneklerden öyle seçme istiyorum. şimdi hepsi eksi konumda yani açık. o zaman direk buton atardım olurdu. bilen varsa yardım edebilirmi...