MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Acrescentar informações em combo sincronizadas

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Acrescentar informações em combo sincronizadas Empty [Resolvido]Acrescentar informações em combo sincronizadas

    Mensagem  Mylton 5/3/2018, 13:40

    Bom dia.
    Possuo algumas combo sincronizadas no aplicativo que estou desenvolvendo, todavia necessito que as mesmas sejam atualizadas como dados a medida que estes forem necessários. Nesse exemplo de 5 combo sincronizada, como poderia acrescentar informações em cada nível de combo, de modo que não interfira no sincronismo e nem que precise abrir a tabla e acrescentar na mão?
    Obrigado.
    Anexos
    [Resolvido]Acrescentar informações em combo sincronizadas Attachment5Combos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 29 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Acrescentar informações em combo sincronizadas Empty Re: [Resolvido]Acrescentar informações em combo sincronizadas

    Mensagem  Alexandre Neves 10/3/2018, 13:04

    Boa tarde,
    Já é tempo de começar a mexer em código

    retire a origem dos dados das combos 2 a 5 e coloque
    Código:
    Private Sub cbonivel2_Enter()
        CboNivel2.RowSource = "SELECT DISTINCT Nivel2, Nivel1 FROM Tbl_FuncoesCorpo WHERE Nivel1='" & CboNivel1 & "' ORDER BY Nivel2;"
    End Sub
    Private Sub CboNivel3_Enter()
        CboNivel3.RowSource = "SELECT DISTINCT Nivel3, Nivel2 FROM Tbl_FuncoesCorpo WHERE Nivel2='" & CboNivel2 & "' ORDER BY Nivel3;"
    End Sub
    Private Sub CboNivel4_Enter()
        CboNivel4.RowSource = "SELECT DISTINCT Nivel4, Nivel3 FROM Tbl_FuncoesCorpo WHERE Nivel3='" & CboNivel3 & "' ORDER BY Nivel4;"
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Acrescentar informações em combo sincronizadas Empty Re: [Resolvido]Acrescentar informações em combo sincronizadas

    Mensagem  Mylton 27/5/2019, 23:40

    Boa noite.
    Zerando post não respondidos.
    Funcionou obrigado.

    Conteúdo patrocinado


    [Resolvido]Acrescentar informações em combo sincronizadas Empty Re: [Resolvido]Acrescentar informações em combo sincronizadas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:40