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]Abrir Formulário Com Filtros

    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Abrir Formulário Com Filtros Empty [Resolvido]Abrir Formulário Com Filtros

    Mensagem  Venloz 10/5/2016, 17:54

    Pessoal, Boa Tarde!

    Tenho um formulário que ira abrir outro formulário, porém eu quero usar critérios de filtro para o próximo formulário, como uso mais de um critério?

    Atualmente uso o seguinte código

    Dim IDfiltro as string


    IDfiltro = "[Campo na Tabela]=" & "'" & [Nome do formulário].[Campo no Formulário] & "'"

    (esse código serve para um critério), Como eu adapto mais critério de filtro nesse código? queria algo assim



    IDfiltro = "[Campo na Tabela]=" & "'" & [Nome do formulário].[Campo no Formulário] & "'" and [Proximo Campo na Tabela] = [Nome do formulário].[Proximo Campo no Formulário]

    DoCmd.OpenForm "Nome do formulário", , , IDfiltro

    Porém não estou conseguindo adaptar, alguém pode me ajudar? pode ser outro código desde que eu consiga usar mais de um critério de filtro.

    Desde já Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir Formulário Com Filtros Empty Re: [Resolvido]Abrir Formulário Com Filtros

    Mensagem  FabioPaes 11/5/2016, 19:34

    Tente assim:

    Dim IDfiltro As String
    IDfiltro = "[ID]=" & [Forms]![frmAlterar].[txtID] & " and [Valor] = " & [Forms]![frmAlterar].[Valor] & ""
    'So pra mostrar como esta sendo aplicado o Filtro.
    MsgBox IDfiltro


    Se atente para a Aspa " No inicio do filtro e o fechamento apenas no Final " ( " [ID]=" & [Forms]![frmAlterar].[txtID] & " and [Valor] = " & [Forms]![frmAlterar].[Valor] & " " pois acontece de o VBA add uma ou ate duas "" a mais no final...

    Obs: Nesse exemplo usei "" aspas simples entre os campos pois se trata de Números, caso filtre por Texto vai ficar entre ' " ... " '.


    .................................................................................
    _____________________________________________________________________
    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!
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Abrir Formulário Com Filtros Empty Re: [Resolvido]Abrir Formulário Com Filtros

    Mensagem  Venloz 30/10/2018, 00:40

    Apenas para colocar status de resolvido

    Conteúdo patrocinado


    [Resolvido]Abrir Formulário Com Filtros Empty Re: [Resolvido]Abrir Formulário Com Filtros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:36