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]Sincronizar caixas de listagem

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Sincronizar caixas de listagem

    Mensagem  Mylton em Sex 08 Jul 2016, 22:35

    Boa noite
    1- Desculpas por estar postando o mesmo tipo ade assunto.
    Mas não é bem o mesmo.

    Nesse meu tópico,
    [Você precisa estar registrado e conectado para ver este link.]
    ajudaram-me bastante.

    Todavia, encontrei um cadastro com 25 000 genéricos e suas indicações.
    Para nós da área da saúde, creio que não haja nada mais completo.
    só que como é muito extenso não consegui criar 4 tabelas e relacioná-las.
    Optei por uma única tabela.
    E não sei como sincronizar da forma correta essas 4 caixas de lista, de modo a criar um cadastro para escolha de um farmaco.

    Se alguém puder ajudar...

    Obrigado
    Anexos
    Farmaco 25000.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (996 Kb) Baixado 5 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Sincronizar caixas de listagem

    Mensagem  FabioPaes em Sab 09 Jul 2016, 02:22

    Mylton como o objetivo é o Aprendizado, fiz apenas para a Segunda Combo... Faça para as demais, mas nao copie e cole... Entenda o que foi feito... Tente fazer sozinho... Se aparecer a duvida avisa aqui que respondo se souber, e claro...
    Anexos
    Farmaco 25000.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (993 Kb) Baixado 17 vez(es)


    .................................................................................
    _____________________________________________________________________
    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]Sincronizar caixas de listagem

    Mensagem  Mylton em Sab 09 Jul 2016, 15:13

    Bom dia
    Fábio
    Apliquei seu ensinamento
    Private Sub ListaClasseTerapeutica_AfterUpdate()
    Me.ListaPrincipioAtivo.RowSource = "SELECT PrincipioAtivo FROM Farmaco WHERE ClasseTerapeutica = '" & Me.ListaClasseTerapeutica.Column(0) & "'"
    End Sub


    Lista 2.....
    Private Sub ListaPrincipioAtivo_AfterUpdate()
    Me.ListaApresentacao.RowSource = "SELECT Apresentacao from Farmaco where PrincipioAtivo = '" & Me.ListaPrincipioAtivo.Column(0) & "'"
    End Sub

    funcionou!


    Lista 3....

    Private Sub ListaApresentacao_AfterUpdate()
    Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaNomeFantasia.Column(0) & "'"
    End Sub


    Meu raciocínio.....
    A caixa lista apresentação após atualizar manda para a caixa nome fantasia a seleção dos nomes fantasias da tabela farmaco dentro do critério apresentação, isso na caixa nome fantasia.

    Não funcionou.



    Outra dúvida...
    Como alguns nomes acabam se repetindo, até mesmo porque se repetem mesmo na tabela, teria como na caixa deixar apenas um nome? Desde que seja idêntico em um tudo.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Sincronizar caixas de listagem

    Mensagem  FabioPaes em Sab 09 Jul 2016, 15:55

    Seu raciocinio quase foi certo amigo.... Veja bem...

    Eu quero carregar a lista seguinte (nome Fantasia) com os dados, quando o Campo Apresentação for igual ao que tiver na Combo APRESENTAÇÃO.



    Private Sub ListaApresentacao_AfterUpdate()
    Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaNomeFantasia.Column(0) & "'"
    End Sub


    Correto é:

    Private Sub ListaApresentacao_AfterUpdate()
    Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaApresentacao.Column(0) & "'"
    End Sub






    Sobre o Agrupamento, basta mandar agrupa no final do SQL, deve mandar agrupar por todos os campos que devem ser Iguais... Como nao sei quais são, veja vc quais devem ser a adapte de acordo com o exemplo a seguir:


    Private Sub ListaClasseTerapeutica_AfterUpdate()
    Me.ListaPrincipioAtivo.RowSource = "SELECT PrincipioAtivo FROM Farmaco WHERE ClasseTerapeutica = '" & Me.ListaClasseTerapeutica.Column(0) & "' GROUP BY PrincipioAtivo, Laboratorio"

    End Sub


    Veja que nesse Caso ele irá agrupar somente quando os dados forem iguais nos Campos: PrincipioAtivo, Laboratorio

    Coloque os outros da mesma forma: PrincipioAtivo, Laboratorio, Apresentacao, ....


    .................................................................................
    _____________________________________________________________________
    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]Sincronizar caixas de listagem

    Mensagem  Mylton em Sab 09 Jul 2016, 16:11

    Rs....
    Bati na trave...rsrs...
    Mas sua dica certeira mais uma vez.
    Obrigado.
    Vou pedir ao administrador para disponibilizar no repositório, afinal o tamanho excede a capacidade de envio.
    Obrigado.
    Gde Abs.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Sincronizar caixas de listagem

    Mensagem  Mylton em Sab 09 Jul 2016, 16:12

    Faltou o resolvido.

      Data/hora atual: Sex 09 Dez 2016, 03:48