كيف يتم فتح نموذج عن طريق النقر على احد عناصر الشجره

[at_aziz]

السلام عليكم ورحمة الله وبركاته

اخواني 

ماهي الطريقة التي يتم فيها فتح نموذج لما انقر على احد عناصر الشجره 

حاول اطبق على مثال الاخ الفاضل جعفر لكن للاسف ماعرفت

ارجو المساعده بارك الله فيكم وجزاكم الله خير

مرفق مثال اخونا الفاضل جعفر وفقه الله

 

 

AZ_TreeView_ListBox.rar

[jjafferr]

تفضل يا سيدي الفاضل 

 

الكود:

Private Sub TreeView1_NodeClick(ByVal Node As Object)
On Error GoTo err_TreeView1_NodeClick

'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)
    
'    colon = InStr(Node.Child, ":")
'    If colon = 0 Then
'        Me.txt1 = Val(Mid(Node.Child, 1, colon - 1)) + Node.Children
'        Me.txt1 = ""
'    Else
'        Me.txt1 = Val(Mid(Node.Child, 1, colon - 1)) + Node.Children
'    End If
    
    If Node.Text = "فتح نموذج frm1" Then
        DoCmd.OpenForm "frm1"
        
    ElseIf Node.Text = "فتح نموذج frm2" Then
        DoCmd.OpenForm "frm2"
    
    End If

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 "----------------------"

Exit Sub
err_TreeView1_NodeClick:

    If Err.Number = 91 Then
        colon = 
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

342.AZ_TreeView_ListBox.accdb.zip

[at_aziz]

بارك الله فيك وجزاك الله خير اخي الفاضل جعفر

الله يعطيك الصحة والعافيه 

هذا هو المطلوب

وفقك الله ورعاك

[jjafferr]