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

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Filtrar formulario Empty [Resolvido]Filtrar formulario

    Mensagem  Kaynan em 20/10/2018, 22: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 : 585
    Registrado : 21/11/2016

    [Resolvido]Filtrar formulario Empty Re: [Resolvido]Filtrar formulario

    Mensagem  IvanJr. em 21/10/2018, 04: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
    [Resolvido]Filtrar formulario AttachmentSistemaPDV_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (196 Kb) Baixado 22 vez(es)
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Filtrar formulario Empty Re: [Resolvido]Filtrar formulario

    Mensagem  Kaynan em 21/10/2018, 11:21

    Ivan,muito obrigado,valeu mesmo. cheers cheers

    Conteúdo patrocinado

    [Resolvido]Filtrar formulario Empty Re: [Resolvido]Filtrar formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2019, 12:13