- Kod: Tümünü seç
TreeView1.Nodes.Add Relative:=ks("urun_adi").Value, RelationShip:=tvwChild
satırında element not found hatası veriyor. Bu konuda yardımcı olabilirseniz sevinirim.
TreeView1.Nodes.Add Relative:=ks("urun_adi").Value, RelationShip:=tvwChild
![]() |
Private Sub UserForm_Activate()
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset
Set baglan = New ADODB.Connection
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ThisWorkbook.Path & "\tw.accdb"
Set ks = baglan.Execute("Select distinct(urun_adi) From urun_agaci")
i = 1
With TreeView1
.LineStyle = tvwRootLines
.Nodes.Add , , "Ürünler", "Ürünler"
.Nodes(.Nodes.Count).Expanded = True
Do While Not ks.EOF
Set ks1 = baglan.Execute("Select urun_parcasi From urun_agaci Where urun_adi='" & ks(0).Value & "'")
i = i + 1
Set a = .Nodes.Add("Ürünler", 4, ks(0).Value & i, ks(0).Value)
a.Expanded = True
Do While Not ks1.EOF
.Nodes.Add ks(0).Value & i, 4, ks1(0).Value & i, ks1(0).Value
ks1.MoveNext
Loop
ks.MoveNext
Loop
End With
Set baglan = Nothing
Set ks = Nothing
Set ks1 = Nothing
End Sub
Set ks = baglan.Execute("Select urun_adi From urun_agaci group by urun_adi,urun_id order by urun_id")
cenk e. yazdı:ürünün alt bileşenlerini o ürünün altında gösterebilirseniz çok muhteşem olur.
+ Biber Dolması
+ Dondurulmuş Biber
Dolma biber
+ Dolma içi
Tuz
Ayçiçek yağı
Et
Tuz
Salça
Tarkan VURAL yazdı:Eldeki veritabanı ile istediğiniz şekilde bir görüntü elde etmeye mantığım çalışmadı.
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir