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]Filtro em branco

    Compartilhe

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    [Resolvido]Filtro em branco

    Mensagem  maguim em Seg 24 Jul 2017, 20:09

    amigos uma duvida, não encontrei nada no fórum

    gostaria de saber se poderia colocar um limpar filtro pra deixa em "branco o subform"

    exemplo:

    pesquisei o que queria e apertei limpar o filtro, ai ele me aparece todos os dados do filtro.


    gostaria de vez aparecer todos os dados do filtro no formulário que fica-se somente sub em branco... com se tivesse achado nada na consulta!


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro em branco

    Mensagem  FabioPaes em Seg 24 Jul 2017, 20:57

    Varias forma de fazer isso amigo... Temos que saber como aplica esses filtros...

    Pode por exemplo, aplicar um filtro Nulo no Sub.

    Ex:

    Me.NomeSubForm.Form.Filter="ID=0"
    Me.NomeSubForm.Form.Filteron=True


    Última edição por FabioPaes em Ter 25 Jul 2017, 14:43, editado 1 vez(es)


    .................................................................................
    _____________________________________________________________________
    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!

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Filtro em branco

    Mensagem  maguim em Ter 25 Jul 2017, 12:31

    nao consegui nenhum desses exemplos =/


    segue o codigo abaixo que esta no botao limpar

    Me.txt_PesquisaNome.SetFocus
    Me.txt_PesquisaNome.Text = ""


    Me.subfrmPesquisaClientes.Form.RecordSource = "SELECT BANCO_DE_DADOS_CENTRAL.*" & _
                                                 " FROM BANCO_DE_DADOS_CENTRAL ORDER BY BANCO_DE_DADOS_CENTRAL.COD_PASTA; "


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro em branco

    Mensagem  FabioPaes em Ter 25 Jul 2017, 13:32

    Então, posta aqui esse exemplo pra dar uma olhada favor!


    .................................................................................
    _____________________________________________________________________
    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!

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Filtro em branco

    Mensagem  maguim em Ter 25 Jul 2017, 14:18

    FabioPaes


    segue



    abraço
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.2 Mb) Baixado 2 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro em branco

    Mensagem  FabioPaes em Ter 25 Jul 2017, 14:41

    No Botão de Limpar coloque:

    Código:
    Private Sub cmdLimpar_Click()
    Me.txt_PesquisaNome.SetFocus
    Me.txt_PesquisaNome.Text = ""

    Me.subfrmPesquisaClientes.Form.Filter = "NOME='000'"
    Me.subfrmPesquisaClientes.Form.FilterOn = True
    End Sub

    No subformulario, na guia Dados>Item: Proteção de Registros, mude para:
    Sem Proteção!


    .................................................................................
    _____________________________________________________________________
    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!

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Filtro em branco

    Mensagem  maguim em Ter 25 Jul 2017, 14:49

    fabio

    mto obg, uma duvida pra que serve esses parametros ?

    Form.Filter

    Form.FilterOn


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro em branco

    Mensagem  FabioPaes em Ter 25 Jul 2017, 17:30

    O parâmetro .Filter (Filtro) eu informo um Filtro para ser aplicado no Formulario.
    .FilterOn (Filtrar Ao ativar/carregar) eu aplico o Filtro informado no comando anterior.

    Veja imagem a baixo:
    [Você precisa estar registrado e conectado para ver esta imagem.]
    Os parâmetros passado pelo VB são os mesmos destacados na imagem.

    No seu caso, eu passei um filtro Nulo para mostrar o formulário em branco.


    .................................................................................
    _____________________________________________________________________
    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!

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Filtro em branco

    Mensagem  maguim em Qua 26 Jul 2017, 13:02

    obg !

    sempre somando aqui no forum.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 25 Set 2017, 10:41