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

    Filtrar e carregar subformulario após selecionar um valor na combox

    avatar
    naiconmartins
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/02/2018

    Filtrar e carregar subformulario após selecionar um valor na combox Empty Filtrar e carregar subformulario após selecionar um valor na combox

    Mensagem  naiconmartins 26/2/2018, 04:54

    Pessoal, eu criei um botão que deverá executar um filtro no subformulário com base em um valor selecionado na combobox. Como faço isso?
    Eu preciso que:

    1) O valor selecionado na combobox (por exemplo "Augusto") seja usado como base de filtro
    2) que esse valor seja filtrado no campo Inquilino no subformulário
    3) que o subformulario exiba todos os registros desse Inquilino "Augusto".

    Estou usando o código abaixo, mas o filtro não exibe nenhum dado no subformulário.

    Dim filtro As String
    If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
    Me.FiltroParcela.Form.Filter = ""
    Me.FiltroParcela.Form.FilterOn = False
    Exit Sub
    End If
    filtro = "[Inquilino] like '*" & Me.txtNome.Value & "*'"
    Me.FiltroParcela.Form.Filter = filtro
    Me.FiltroParcela.Form.FilterOn = True
    Me.FiltroParcela.Visible = True


    Eu tambem tentei usar na As String filtro o código abaixo, mas quando executo abre uma caixa pedindo para informar o Me.txtNome.Valor. Eu quero que ele pegue esse valor na combobox.

    Dim filtro As String
    If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
    Me.FiltroParcela.Form.Filter = ""
    Me.FiltroParcela.Form.FilterOn = False
    Exit Sub
    End If
    filtro = "[Inquilino] like Me.txtNome.Value "
    Me.FiltroParcela.Form.Filter = filtro
    Me.FiltroParcela.Form.FilterOn = True
    Me.FiltroParcela.Visible = True
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Filtrar e carregar subformulario após selecionar um valor na combox Empty Re: Filtrar e carregar subformulario após selecionar um valor na combox

    Mensagem  FabioPaes 26/2/2018, 13:48

    Olá, sempre que surgir uma dúvida, realize uma pesquisa no Fórum, existem inúmeros Tópicos sobre sua dúvida!

    Veja por exemplo:
    https://www.maximoaccess.com/t29591-aplicar-filtro-em-formulario-de-acordo-com-campo-selecionado-pelo-cliente-todos-os-campos-da-tabela
    https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo


    .................................................................................
    _____________________________________________________________________
    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!

      Data/hora atual: 8/5/2024, 01:27