MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Consulta não funciona

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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: Qua 23 Ago 2017, 01:47