MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Treeview não carrega com base em consulta utilizando critério para Filtro

    Compartilhe

    Gilnei
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 26/10/2012

    Treeview não carrega com base em consulta utilizando critério para Filtro

    Mensagem  Gilnei em Ter 20 Jan 2015, 17:42

    Boa tarde.
    Estou montando um treeview para utilizar como menu. O problema é que eu preciso que ele carregue os dados com base em uma consulta. Até ai tudo bem, mas quando eu adiciono nesta consulta um critério para filtro, baseado em um campo no formulário, da erro. Se eu retiro o critério de filtro, funciona normalmente.

    Segue o Código que utilizei:

    Private Sub Form_Load()

       Dim objNode As Node, strKey As String
       Dim rst As DAO.Recordset, intKey As Integer
       varHash = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
       With TreeView
       Set rst = CurrentDb.OpenRecordset("Consulta1") ' O erro acontece nesta parte
    'Aparece uma mensagem de Parametros insuficientes.
    'Diz que esta mensagem é gerada quando expressões ou nomes de campo desconhecidos são interpretados como parâmetros consulta.



       If rst.RecordCount > 0 Then
           While Not rst.EOF
               intKey = rst.Fields("ID").Value
               If rst.Fields("Posição") = 0 Then
                   Set objNode = .Nodes.Add(, , NumberToString(intKey), rst.Fields("Menu"))
                             
               Else
                   Set objNode = .Nodes.Add(NumberToString(rst.Fields("Posição")), tvwChild, NumberToString(intKey), rst.Fields("Menu"))
                   
                   End If
               rst.MoveNext
           Wend
                     
       End If
       End With
       rst.Close
       Set rst = Nothing
       
    Error_Exit:
    Exit Sub

    Se alguém puder me ajudar fico agradecido, não sei mais o que fazer!

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Treeview não carrega com base em consulta utilizando critério para Filtro

    Mensagem  Roberto_1977 em Ter 20 Jan 2015, 17:47

    Boa tarde,

    Seria mais facil se postasses aqui a sua BD ou parte onde se encontra problema...


    Abraço... Cool

    Gilnei
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 26/10/2012

    Re: Treeview não carrega com base em consulta utilizando critério para Filtro

    Mensagem  Gilnei em Ter 20 Jan 2015, 19:00

    OK, segue exemplo
    Anexos
    TreeView.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (201 Kb) Baixado 32 vez(es)

      Data/hora atual: Dom 04 Dez 2016, 01:54