VBA Access - Selecionando o Nó do Treeview - Select the Treeview Root Node.

| Blog Office VBA | Blog Excel | Blog Access |

Ao usar uma Treeview, talvez deseje saber como pode selecionar um nó. Para fazer isso você só precisa usar o seguinte trecho de código.

Me!TreeviewControlName.Nodes(1).Selected = True

A seleção de nós nem sempre produz o resultado desejado. A razão é que, se a classificação for realizada após os nós adicionados, estes talvez não fiquem posicionado na parte superior. Então o que vamos fazer agora? 

Há uma solução, e eu não vou reinventar a roda. UtterAccess tem um banco de dados de amostra com um procedimento chamado GotoFirstNode() que funciona em torno do problema mencionado acima. Também abrange muitas outras funcionalidades e é muito a pena conferir.

Public Function GotoFirstNode (tv As MSComctlLib.TreeView) As MSComctlLib.Node

    Dim nodNode As MSComctlLib.Node

        

    Set nodNode = tv.SelectedItem

    If nodNode Is Nothing And tv.Nodes.Count > 0 Then _

        Set nodNode = tv.Nodes.Item(1)

    

    If tv.Nodes.Count > 0 Then

        Do Until nodNode.Parent Is Nothing

            Set nodNode = nodNode.Parent

        Loop

        Do Until nodNode.Previous Is Nothing

            Set nodNode = nodNode.Previous

        Loop

        

        nodNode.Selected = True

        nodNode.EnsureVisible

    End If

    Set GotoFirstNode = nodNode

End Function

Referências: Utteraccess.com, Devhut.net

Tags: VBA, Access, diretório, pasta, directory, folder, validation