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
    avatar
    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 21/10/2018, 02:15

    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtrar formulario

    Mensagem  IvanJr. em 21/10/2018, 07:48

    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 21 vez(es)
    avatar
    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 21/10/2018, 14:21

    Ivan,muito obrigado,valeu mesmo. cheers cheers

      Data/hora atual: 18/3/2019, 22:26