Hướng dẫn Treeview

[truongtrungv]

Tôi đã xây dựng một treeview trong acces nhưng khi cick vào không nhảy from. Rất mong được dự giúp đỡ.

 

[LoveBlue]

Ðề: Hướng dẫn Treeview

Tôi đã xây dựng một treeview trong acces nhưng khi cick vào không nhảy from. Rất mong được dự giúp đỡ.

Bạn Up lên xem thử nào!
Chú ý trong event Nodeclick. Bạn Lồng thêm case vào!

Đại loại như:

Private Sub MenuTree_NodeClick(ByVal Node As Object)
Select Case Node.Key
    Case "1"
          ' Mở Form nhập danh mục vật tư
    Case "2"  
         ' Mở Form Nhập phiếu nhập/ xuất kho

    End Select

End Sub

 

[truongtrungv]

Ðề: Hướng dẫn Treeview

Đây nè bạn


Private Sub Form_Load()

DoCmd.Maximize
Dim Nhanh As Node
Set Nhanh = treeforder.Nodes.Add(, , "CAPNHAT", "Caäp nhaät")
Set Nhanh = treeforder.Nodes.Add("CAPNHAT", tvwChild, "HUYEN", "Caäp nhaät danh saùch Huyeän")
Set Nhanh = treeforder.Nodes.Add("CAPNHAT", tvwChild, "VAT_TU", "Caäp nhaät danh muïc vaät tö")
Set Nhanh = treeforder.Nodes.Add("CAPNHAT", tvwChild, "KHO", "Caäp nhaät danh muïc kho")
Set Nhanh = treeforder.Nodes.Add("CAPNHAT", tvwChild, "CHITIETNHAPXUATVATTU", "Nhaäp/Xuaát vaät tö")
Set Nhanh = treeforder.Nodes.Add(, , "BC", "Baùo caùo")
Set Nhanh = treeforder.Nodes.Add("BC", tvwChild, "PHIEUNHAPXUATKHHANGVATTU", "Baùo caùo nhaäp/xuaát")
Set Nhanh = treeforder.Nodes.Add("BC", tvwChild, "TON", "Baùo caùo toàn kho")
Set Nhanh = treeforder.Nodes.Add(, , "TIM", "Tìm kieám")
Set Nhanh = treeforder.Nodes.Add("TIM", tvwChild, "TIM_NGAYTOINGAY", "Tìm ngaøy tôùi ngaøy")
End Sub




Private Sub TREEFORDER_DblClick()
DoCmd.Maximize
If Me.TXTA = "HUYEN" Then
DoCmd.Close
DoCmd.OpenForm "HUYEN", acNormal
ElseIf Me.TXTA = "KHO" Then
DoCmd.Close
DoCmd.OpenForm "KHO", acNormal
ElseIf Me.TXTA = "VAT_TU" Then
DoCmd.Close
DoCmd.OpenForm "VAT_TU", acNormal
ElseIf Me.TXTA = "CHITIETNHAPXUATVATTU" Then
DoCmd.Close
DoCmd.OpenForm "CHITIETNHAPXUATVATTU", acNormal
ElseIf Me.TXTA = "PHIEUNHAPXUATKHHANGVATTU" Then
DoCmd.Close
DoCmd.RunMacro "thoat.xembaocao"
ElseIf Me.TXTA = "TON" Then
DoCmd.Close
DoCmd.RunMacro "thoat.baocaoTON"
End If

End Sub

Private Sub TREEFORDER_NodeClick(ByVal Node As Object)
TXTA = treeforder.SelectedItem.Key
End Sub