MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    combobox filtrando outro combobox

    Mandy715
    Mandy715
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    combobox filtrando outro combobox Empty combobox filtrando outro combobox

    Mensagem  Mandy715 em 27/2/2020, 12:15

    Olá, tenho um formulário Pessoal e nele preciso colocar o código do contrato e escolher qual função irei cadastrar, entretanto, as funções são adicionadas através de um código do SITE, ou seja, eu preciso selecionar primeiro o site e depois no Código do Sindicato eu preciso que apareça apenas a lista das funções cadastradas naquele site. 

    ex: eu escolhi o site 3 e no Código do Sindicato deve aparecer apenas as funções que possuem o 3 na frente.

    Segue anexo do banco.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 953
    Registrado : 13/12/2016

    combobox filtrando outro combobox Empty Re: combobox filtrando outro combobox

    Mensagem  Alexandre Fim em 27/2/2020, 12:55

    Olá Amanda,

    Baixei seu exemplo e vou ver analisar.

    Att,

    Alexandre


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 953
    Registrado : 13/12/2016

    combobox filtrando outro combobox Empty Re: combobox filtrando outro combobox

    Mensagem  Alexandre Fim em 27/2/2020, 13:29

    Amanda,

    No evento "Após Atualizar" do combo Site, incluir o seguinte código:

    Código:


    '-------------------------------------------------------------------------
    ' Carrega o combo de Sindicato conforme código do Site selecionado
    '-- Alexandre Fim - 27/02/2020--------------------------------------------

    Private Sub Site_AfterUpdate()
    Dim sSQL As String 'Declarando variavel que receberá a instrução SELECT

        '---- Instrução SELECT do próprio combo com a condição (WHERE) do combo site --------------'
        sSQL = "SELECT Sindicato.Cod_Sindicato, Sindicato.Site, Sindicato.Funcao"
        sSQL = sSQL & " FROM Sindicato"
        sSQL = sSQL & " WHERE Sindicato.Site = " & Me.Site.Column(0) & ""
        sSQL = sSQL & " ORDER BY Sindicato.[Site], Sindicato.[Cod_Sindicato], Sindicato.[Funcao];"
        '-------------------------------------------------------------------------------------------'
        
        
        Me.Combinação88.RowSource = sSQL '--- Redefine a fonte de dados (sSQL) -----------
        Me.Combinação88.Requery          '--- Atualiza o combo ---------------------------

    End Sub



    OBS.: Sempre que possível, procure renomear seus controles, como é o caso da "Combinação88", porque fica mais legível e também mais fácil na hora de fazer manutenção no sistema.
    Também procure se familiarizar com a linguagem VBA, pois eventos mais complexos são feitos no código.

    Segue anexo seu projeto.

    Espero ter ajudado.

    Boa sorte.
    Anexos
    combobox filtrando outro combobox AttachmentcomboboxFILTRO_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 9 vez(es)


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Mandy715
    Mandy715
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    combobox filtrando outro combobox Empty Re: combobox filtrando outro combobox

    Mensagem  Mandy715 em 27/2/2020, 13:45

    combobox filtrando outro combobox Pessoa10
    está acontecendo o seguinte erro..
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 953
    Registrado : 13/12/2016

    combobox filtrando outro combobox Empty Re: combobox filtrando outro combobox

    Mensagem  Alexandre Fim em 27/2/2020, 14:52

    Amanda,

    Você inseriu a instrução no seu formulário ou copiou o que eu te mandei?


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Mandy715
    Mandy715
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    combobox filtrando outro combobox Empty Re: combobox filtrando outro combobox

    Mensagem  Mandy715 em 2/3/2020, 11:41

    eu copiei e colei lá, pq tava exatamente do jeito q eu precisava... mas no modelo que vc passou deu o mesmo erro

      Data/hora atual: 16/7/2020, 04:27