MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Filtrar formulario

    Compartilhe

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Filtrar formulario

    Mensagem  Kaynan em Dom Out 21, 2018 2:15 am

    Boa noite pessoal,quero filtrar esse exemplo poe cliente,tipo de servico e descriçã,mas acho que perdi meus neuronios,não to conseguindo,alguem podeia dar uma olhadinha.
    Abç.



    https://www.dropbox.com/s/s2hc7phzxzfxmyz/SistemaPDV.accdb?dl=0
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Filtrar formulario

    Mensagem  IvanJr. em Dom Out 21, 2018 7:48 am

    Dica: sempre antes de disponibilizar seu arquivo, utilize a ferramenta compactar e reparar do MS Access. Seu banco caiu de 139mb para 2mb.

    Estude o que foi feito. Sucesso.

    Código:
    Dim strFiltro As String
       
        If Nz(Me!txt_PesquisaCliente) <> "" Then strFiltro = "Cliente like ""*" & Me!txt_PesquisaCliente & "*"""
        If Nz(Me!cboTiposServico) <> "" Then strFiltro = IIf(strFiltro <> "", strFiltro & " And ", "") & "TipoServico = """ & Me!cboTiposServico & """"
        If Nz(Me!txt_PesquisaDescricao) <> "" Then strFiltro = IIf(strFiltro <> "", strFiltro & " And ", "") & "Descricao like ""*" & Me!txt_PesquisaDescricao & "*"""

        If strFiltro = "" Then
            Me!FormLancamentos.Form.Filter = ""
            Me!FormLancamentos.Form.FilterOn = False
        Else
            Me!FormLancamentos.Form.Filter = strFiltro
            Me!FormLancamentos.Form.FilterOn = True
        End If
    Anexos
    SistemaPDV_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (196 Kb) Baixado 18 vez(es)

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtrar formulario

    Mensagem  Kaynan em Dom Out 21, 2018 2:21 pm

    Ivan,muito obrigado,valeu mesmo. cheers cheers

      Data/hora atual: Sex Jan 18, 2019 12:20 pm