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

    Alterar objeto de origem do subformulário ao mudar caixa de combinação

    avatar
    fabioerickson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 30/12/2013

    Alterar objeto de origem do subformulário ao mudar caixa de combinação Empty Alterar objeto de origem do subformulário ao mudar caixa de combinação

    Mensagem  fabioerickson 27/2/2014, 17:37

    Olá pessoal, o fórum já me ajudou bastante, mas estou com uma nova dúvida,
    vou tentar explicar:

    Tenho um formulário(recebimento) que contem um subformulário(Filho11) em modo de folha de dados que, mostra todos os dados de uma tabela(janeiro, fevereiro, março ...) assim que alterar uma caixa de combinação(combomes) para o respectivo
    valor(janeiro, fevereiro, março ...).

    (entre parenteses o nome do controle)

    o subformulário irá alterar o objeto de origem para a tabela(mês) correspondente ao mês que está na caixa de combinação.

    o problema é que não sei como fazer isto!

    Desde já agradeço a atenção e caso haja alguma dúvida favor perguntar..
    Obrigado
    Abraços  cheers
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Alterar objeto de origem do subformulário ao mudar caixa de combinação Empty Re: Alterar objeto de origem do subformulário ao mudar caixa de combinação

    Mensagem  Dilson 15/3/2014, 12:39

    Olá,

    Experimente no evento Ao alterar da sua combobox:

    Dim criterioSQL As String
    Dim valorDaCombo As String
    valorDaCombo = Me.SuaComboBox
    criterioSQL = " WHERE SeuCampo_VindoDaCombo LIKE '*" & valorDaCombo & "*'"
    Me.NomeDoSubForm.Form.RecordSource = " SELECT * FROM NomeDaTabelaDoSubForm " & criterioSQL
    Me.NomeDoSubForm.Requery

      Data/hora atual: 7/11/2024, 15:44