[Resolvido]Controle Treeview erro sintaxe

Olá pessoal.

Estou tentando criar um controle Treeview para o meu sistema; estou seguindo um exemplo que vi na internet, porém, apesar de, na minha percepção, já ter feito tudo como manda a orientação, estou esbarrando em uma linha. Por favor, alguém poderia me dizer onde estou errando?

Segue o arquivo para análise. No formulário, clique no botão para executar o código abaixo.
O erro se encontra na linha em destaque.

Private Sub btTV_Click()
Dim tempNode As MSComctlLib.Node
Dim rsC As DAO.Recordset
Dim rsO As DAO.Recordset

TV.Nodes.Clear
Set tempNode = TV.Nodes.Add(, , "C", "Clientes")

Set rsC = CurrentDb.OpenRecordset("SELECT IdCliente,Nome FROM Clientes ORDER BY Nome", , dbReadOnly)
Do While Not rsC.EOF
   Set tempNode = TV.Nodes.Add("C", tvwChild, "CL" & rsC.Fields("IdCliente"), rsC.Fields("Nome"))
   
   Set rsO = CurrentDb.OpenRecordset("SELECT IdOrdem as NOrdem,dataOrdem FROM Pedidos WHERE IdCliente=""" & rsC.Fields("IdCliente") & """ ORDER BY dataOrdem DESC", , dbReadOnly)
       Do While Not rsO.EOF
       
           Set tempNode = TV.Nodes.Add("CL" & rsC.Fields("IdCliente"), tvwChild, "O" & rsO.Fields("NOrdem"), rsO.Fields("dataOrdem"))
           
           rsO.MoveNext
       Loop
   rsO.Close
   rsC.MoveNext
Loop
rsC.Close

End Sub


----------

grato

Olá;

Código:

    Set rsO = CurrentDb.OpenRecordset("SELECT IdOrdem as NOrdem,dataOrdem FROM Pedidos WHERE IdCliente=" & rsC.Fields("IdCliente") & " ORDER BY dataOrdem DESC", , dbReadOnly)


Ok, João Paulo. Obrigado!

Desculpe, coloquei como resolvido, mas tinha uma outra solicitação:

Como faço para incluir mais um nível? Transportadora, por exemplo.

Basta acrescentar outra designação ao node;

Código:

Private Sub btTV_Click()
Dim tempNode As MSComctlLib.Node
Dim rsC As DAO.Recordset
Dim rsO As DAO.Recordset

TV.Nodes.Clear

Set tempNode = TV.Nodes.Add(, , "C", "Clientes")
Set tempNode = TV.Nodes.Add(, , "TR", "Transportadora")

Olá Ronaldo Costa,

Só um comentário a fazer.
Eu, particularmente, gosto mais do TreeView do que o Ribbon, para criar menus, mas o componente TreeView faz parte do MSCOMCTL.ocx, e este componente não é nativo do Access, mas do Windows.
E por não ser nativo do Access, o teu sistema pode gerar alguma incompatibilidade com este componente, dependendo da máquina que estiver rodando, pois a MSCOMCTL.ocx tem que estar na mesma versão da máquina em que o sistema foi desenvolvido, no que implica em copiar a ocx e registrá-la na máquina do usuário final.

Espero ter ajudado.

[]'s

"MSCOMCTL.ocx tem que estar na mesma versão da máquina em que o sistema foi desenvolvido"

Amigão, discordo.

Testei o exemplo numa maquina com Office365 (Ms Access 2016) sem problema.
Testei numa com Ms Access 2010 também sem problema.

Você pode-me fornecer algum exemplo de problema de incompatibilidade, por favor ?

Olá JPaulo,

Já me deparei com este tipo de problema quando desenvolvi um sistema em Access 2007 plataforma 32 bits, utilizando TreeView e o ListView e que as versão desta .ocx era a 6.01.9833.

Quando o sistema foi migrado para a versão 2013, na plataforma 64 bits, o Treeview e o ListView já não funcionavam mais, e tive que substituir a .ocx pela versão 6.01.9834.

Eu sugiro que, quando for desenvolver no Access, que seja utilizado os objetos nativos do próprio Access, e eu posso falar com certa propriedade que já tive muita dor de cabeça com isso....rssss.

Sempre trabalhei com ferramentas Microsoft, principalmente o Visual Studio, VB.Net, C#, ASP.Net, mas o Access (versão 2.0) foi minha primeira ferramenta de desenvolvimento e eu gosto muito de trabalhar com ele.



Um grande abraço.

[]'s

Basta acrescentar outra designação ao node;


João Paulo, acho que não fui claro. Considerando o que já existe, gostaria, por exemplo, de ao clicar em uma data, me mostrasse as transportadoras que sairão na data específica.

grato

Ola;

@Alexandre, aceito a explicação.

@Ronaldo, este tópico está resolvido, com a sua duvida inicial.

Você tem uma nova duvida que não tem a haver com o problema inicial, abra por favor um novo tópico.