دليل الحسابات (شجرة الحسابات)

وعليكم السلام اخوي :)

ممكن مثال لوسمحت ، يعني لما تضغط على غساله 11121:1 ، او الغسالات:1112 ، شو اللي لازم يظهر في الحقول اللي تريدها في النموذج؟

جعفر

شكرا استاذ جعفر

مرفق صورة توضح ما اريدة

تفضل ، على حسب مثالك :)

جعفر

277.treevew1.accdb.zip

شكرا استاذ جعفر

لكن تظهر الرساله التالية

ما ادري ليش الخطأ :(

لكن عموما ، كل اللي عملته هو هذا الكود (جزء منه كان عندك ، وانا اضفت الباقي):

Private Sub TreeView0_NodeClick(ByVal Node As Object)

lblItemCode.Caption = ""
If Node.Key <> "Root" Then
   lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1)
End If
lblPath.Caption = Node.FullPath

    Dim colon As Integer
    
    colon = InStr(Node.Text, ":")
    Me.txt3 = Mid(Node.Text, 1, colon - 1)
    Me.Txt4 = Mid(Node.Text, colon + 1)
    
On Error Resume Next
Debug.Print "node.Child; " & Node.Child
Debug.Print "node.Children; " & Node.Children
Debug.Print "node.Expanded; " & Node.Expanded
Debug.Print "node.FirstSibling; " & Node.FirstSibling
Debug.Print "node.FullPath; " & Node.FullPath
Debug.Print "node.Index; " & Node.Index
Debug.Print "node.Key; " & Node.Key
Debug.Print "node.LastSibling; " & Node.LastSibling
Debug.Print "node.Next; " & Node.Next
Debug.Print "node.Parent; " & Node.Parent
Debug.Print "node.Previous; " & Node.Previous
Debug.Print "node.Root; " & Node.Root
Debug.Print "node.Selected; " & Node.Selected
Debug.Print "node.Sorted; " & Node.Sorted
Debug.Print "node.Tag; " & Node.Tag
Debug.Print "node.Text; " & Node.Text
Debug.Print "----------------------"

End Sub

صحيح ما تحتاجه كله ، لكن يفضل ان تتركه هناك لوقت الحاجة ، حيث فيه جميع اوامر الـ Node :)

جعفر

شكرا  جزيلا لك اخ جعفر  لقد عمل الكود جيدا

لكن بعد نسخة فى الملف الاصلى لدي 

وشكررااااا   لك

:)