MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Abrir Formulário Com Filtros

    Compartilhe

    Venloz
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Abrir Formulário Com Filtros

    Mensagem  Venloz em Ter 10 Maio - 12: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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Abrir Formulário Com Filtros

    Mensagem  FabioPaes em Qua 11 Maio - 14: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!

      Data/hora atual: Seg 5 Dez - 12:35