ربط التقارير في TreeView

[Tamer Murad]

السلام عليكم

عندي سؤال اخوتي في الله طريقة ربط التقارير في TreeView

الكود المرفق هو لفتح الفورم فقط هل من الممكن التعديل عليه بحيث يفتح تقارير وفورم 

Private Sub Form_Load()
    Dim OldLong As Long
    Dim nodX As Node
    Set nodX = TreeView1.Nodes.ADD(, , "R", "ÃÚÏÇÏÇÊ ÇáäÙÇã", 3)
    Set nodX = TreeView1.Nodes.ADD(, , "D", "ÇáÊÞÇÑíÑ", 3)
    Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C1", "ÈíÇäÇÊ ÇáÔÑßÉ", 2)
    Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C2", "ÈíÇäÇÊ ãÓÊÎÏãí ÇáäÙÇã", 5)
    Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C3", "ßáãÇÊ ÇáãÑæÑ", 1)
    Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C4", "ÈíÇäÇÊ ÇáãØæÑíä", 4)
    Set nodX = TreeView1.Nodes.ADD("D", tvwChild, "C5", "ÊÞÑíÑ 1", 4)
    Set nodX = TreeView1.Nodes.ADD("D", tvwChild, "C6", "ÊÞÑíÑ 2", 4)
    nodX.EnsureVisible
    OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE)
    SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
    InvalidateRect hwnd, 0, False
    
End Sub
Private Sub TreeView1_Click()
   
    Dim strFormName As String
    Dim formsDictionary As New Scripting.Dictionary
    formsDictionary.ADD "ÈíÇäÇÊ ÇáÔÑßÉ", "frmCompany"
    formsDictionary.ADD "ÈíÇäÇÊ ãÓÊÎÏãí ÇáäÙÇã", "frmSystemUserData"
    formsDictionary.ADD "ßáãÇÊ ÇáãÑæÑ", "frmPassword"
    formsDictionary.ADD "ÈíÇäÇÊ ÇáãØæÑíä", "frmDeveloper"
    strFormName = TreeView1.SelectedItem.Text
    If formsDictionary.Exists(strFormName) Then
        DoCmd.OpenForm formsDictionary(strFormName)
    Else
        MsgBox "ÚÐÑÇ åÐÇ ÇáäãæÐÌ ÛíÑ ãæÌæÏ", vbExclamation, "ÊäÈíå"
    End If
End Sub

 

 

 

MediaSoft.rar

تم تعديل فبراير 2, 2023 بواسطه Tamer Murad