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

    [Resolvido]Consulta não funciona

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    [Resolvido]Consulta não funciona

    Mensagem  Mylton em Seg 22 Ago 2016, 17:53

    Boa tarde
    Preciso de um help.
    Nesta aplicação com 3 tabelas e 1 form, A combo Lista1 busca valores pela consulta....

    SELECT Tbl_Processo.IdProcesso, Tbl_Processo.NumeroProcesso, Tbl_Processo.NomeAvaliado FROM Tbl_Processo ORDER BY Tbl_Processo.IdProcesso;

    Deveria preencher os campos IdProcesso, NumeroProcesso e NomeAvaliado.
    Todavia so preenche o primeiro.

    Usei...

    Private Sub Lista1_AfterUpdate()
       Me.IdProcessoAso = Me.Lista1.Column(0)
       Me!Lista1 = ""
    End Sub



    Abaixo tenho uma outra combo LstGrupos que faz uma consulta....

    SELECT Tbl_TodosCid10.ClassificacaoCid FROM Tbl_TodosCid10 GROUP BY Tbl_TodosCid10.ClassificacaoCid;

    Objetivo...
    Mostrar os grupos farmaco da tabela todoscid10.
    Na elaboração do form...quando criamos funciona, só que quando testo o form propriamente dito não aparece nada..

    O que preciso...
    È que aparecesse para que possa escolher o farmaco na combo LstCid10, podendo ao final salvar o registro.

    A rotina que usei para a combo LstGrupos mostrar na combo LstCid10 foi...

    Private Sub LstGrupos_AfterUpdate()
    ' Define a caixa de Combinação Cid10 para ser limitada pelo Grupo escolhido
           Me.LstCid10.RowSource = "SELECT Tbl_TodosCid10.IdCid10, Tbl_TodosCid10.DescricaoCid FROM Tbl_TodosCid10 " & _
           " WHERE IdCid10 = " & Me.LstGrupos.Column(0) & _
           " ORDER BY DescricaoCid"
           Me.LstCid10 = Null
    End Sub

    A qual não pude testar.

    Alguém poderia ajudar?
    Obrigado


    [Você precisa estar registrado e conectado para ver este link.]

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

    Re: [Resolvido]Consulta não funciona

    Mensagem  FabioPaes em Ter 23 Ago 2016, 01:07

    Amigo, mude sua combo, na guia FOrmato>Numero de Colunas, Coloque = 3

    No Evento apos atualizar coloque:

    Me.IdProcessoAso = Me.Lista1.Column(0)
    Me.NumeroProcesso = Me.Lista1.Column(1)
    Me.NomeAvaliado = Me.Lista1.Column(2)
    'Me!Lista1 = Null



    Para aprender mais sobre esse tipo de preenchimento veja este Video que fiz:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Consulta não funciona

    Mensagem  Mylton em Qua 24 Ago 2016, 12:51

    Obrigado Fábio.
    Gde Abs

      Data/hora atual: Dom 04 Dez 2016, 06:00