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]Filtrar por ano

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Filtrar por ano Empty [Resolvido]Filtrar por ano

    Mensagem  Kaynan 23/1/2022, 13:43

    Bom dia gente,me deu um branco na cabeça e não consigo filtrar por ano esse form.
    Vejam.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar por ano Empty Re: [Resolvido]Filtrar por ano

    Mensagem  Alexandre Fim 23/1/2022, 14:36

    Olá Kaynan,


    Substitua Apos Atualizar do combo do ano pelo código abaixo:

    Código:


    Private Sub CboAno_AfterUpdate()
    'Dim cxPesquisar As String
    'cxPesquisar = txtAno.Value

        '-- Se o ano for nulo, carrega tudo
        If IsNull(CboAno) Then
            With Me.FormServiço
                .Form.Filter = "[Ano] >= 1900"
                .Form.FilterOn = True
                .Form.Requery
            End With
            Exit Sub
        End If


        '-- Filtra os dados ao informar o ano
        With Me.FormServiço
            .Form.Filter = "[Ano] = " & CboAno.Value & ""
            .Form.FilterOn = True
            .Form.Requery
        End With
       


    'If cxPesquisar <> "" Then
    'Me.FormServiço.Form.Filter = "Ano Like '*" & cxPesquisar & "*'"
    'Me.FormServiço.Form.FilterOn = True
    'Else
    'Me.FormServiço.Form.FilterOn = False
    'End If

    End Sub


    É isso

    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar por ano Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Filtrar por ano Empty Re: [Resolvido]Filtrar por ano

    Mensagem  Kaynan 23/1/2022, 15:20

    Grande Alexandre,vc é o cara,muito obrigado mais uma vez.
    Abraços.

    Conteúdo patrocinado


    [Resolvido]Filtrar por ano Empty Re: [Resolvido]Filtrar por ano

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/10/2024, 22:42