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

    Acrescentar informações em combo sincronizadas

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Acrescentar informações em combo sincronizadas

    Mensagem  Mylton em 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
    5Combos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 5 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Acrescentar informações em combo sincronizadas

    Mensagem  Alexandre Neves em 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

      Data/hora atual: 23/9/2018, 00:16