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]Filtros combinados no Formulário

    Compartilhe

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 225
    Registrado : 11/01/2012

    Filtros combinados no Formulário

    Mensagem  flecha em Seg 15 Out 2012, 20:50

    Olá,

    Adaptei um filtro para meu banco de dados, mas estou tendo problemas em algumas filtragens.

    As combos de Rg, Cor da pele, Endereço, Cor dos Olhos t Tatuagem não estão funcionando e não acho o erro.

    As demais funcionam perfeitamente.

    Será que alguns dos Experts do Forum poderia analisar o Bd teste em anexo?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6772
    Registrado : 05/11/2009

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  Alexandre Neves em Seg 15 Out 2012, 21:05

    Boa noite, flecha
    Sub AplicaFiltro()
    Dim strFiltro As String
    strFiltro = ""
    If Not IsNull(Me.TxtRg) Then strFiltro = " and Rg=" & Me.TxtRg
    If Not IsNull(Me.Corpele) Then strFiltro = strFiltro & " and Corpele='" & Me.Corpele & "'"
    If Not IsNull(Me.TxtSexo) Then strFiltro = strFiltro & " and sexo='" & Me.TxtSexo & "'"
    If Not IsNull(Me.TxtsexoAp) Then strFiltro = strFiltro & " and sexoAp='" & Me.TxtsexoAp & "'"
    If Not IsNull(Me.TxtCorOlhos) Then strFiltro = strFiltro & " and OlhosCor='" & Me.TxtCorOlhos & "'"
    If Not IsNull(Me.TxtTatu) Then strFiltro = strFiltro & " and tatuPescoço=" & Me.TxtTatu
    If Not IsNull(Me.TxtEndereco) Then strFiltro = strFiltro & " and endereço='" & Me.TxtEndereco & "'"
    If Not IsNull(Me.TxtAltura) Then strFiltro = strFiltro & " and altura='" & Me.TxtAltura & "'"
    If Not IsNull(Me.TxtCabeloTipo) Then strFiltro = strFiltro & " and cabelotipo='" & Me.TxtCabeloTipo & "'"
    Me.Filter = Mid(strFiltro, 6)
    Me.FilterOn = True
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12252
    Registrado : 01/03/2011

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  HARYSOHN em Seg 15 Out 2012, 21:11

    Boas Flecha

    Critérios

    Numéricos entre Aspas Duplas " "
    Textos entra Aspas simple e duplas '" "'

    Para o RG:

    o teu está para texto: If Not IsNull(Me.TxtRg) Then strFiltro = '" and Rg=" & Me.TxtRg & "'"

    o correto: If Not IsNull(Me.TxtRg) Then strFiltro = " and Rg=" & Me.TxtRg & ""


    Veja os demais, corrija e retorne.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12252
    Registrado : 01/03/2011

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  HARYSOHN em Seg 15 Out 2012, 21:19

    Opa Mestre Alexandre, não percebi que estavas a responder....

    A linha onde referencia a combo corPele deve ser aplicada o nome da combo corretamente tambem...

    TxtCorPele...


    Abraços.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 225
    Registrado : 11/01/2012

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  flecha em Ter 16 Out 2012, 01:01

    Muito obrigado, Alexandre e Piloto,

    Funcionou a correção do Piloto a dica em vermelho foi muito boa ! Campo Numérico, OK.

    O Campo TxtCorPele, estava o dia inteiro revisando e não enxergava o erro, Valeu ! Funcionou, OK.

    Não Resolvido:

    A Combo TxtCorOlhos não funciona, quando escolho a opção e solto o click do mouse aparece uma janela pedindo para:

    Inserir o valor do parametro para (corolhos) e ? e não filtra. - Não consigo vêr o erro.

    Na Combo da Tatuagem, TxtTatu, quando escolho SIM ou NÃO não filtra e dá o seguinte erro na linha:

    Me.FilterOn = True

    Você cancelou a operação anterior. Erro em tempo de execução 2001

    Coloquei as Aspas duplas e funciona na abertura do form na segunda tentativa pede o parâmetro e se informar -1 ou 0 filtra, não entendi é um campo Sim/Não.

    Na Combo TxtEndereco, quando escolho o endereço não filtra nem dá erro, também já não acho o erro?
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12252
    Registrado : 01/03/2011

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  HARYSOHN em Ter 16 Out 2012, 03:19

    Tatoo é numérico Sim/Não é uma representação textual

    If Not IsNull(Me.TxtTatu) Then strFiltro = strFiltro & " and tatuPescoço=" & Me.TxtTatu & ""

    Cor dos Olhos..

    Na sua tabela o campo é: Olhoscor

    Você colocou CorOlhos... Inverta no código


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12252
    Registrado : 01/03/2011

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  HARYSOHN em Ter 16 Out 2012, 03:27

    If Not IsNull(Me.TxtEndereco) Then strFiltro = strFiltro & " and endereço='" & Me.TxtEndereco & "'"

    Para o Endereço.


    Evite acentos e sinais em nome de campos, procure padronizar... Sem espaços, acentos e evite palavras reservadas ao Access como

    Valor, Data, Tempo, etc.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 225
    Registrado : 11/01/2012

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  flecha em Ter 16 Out 2012, 13:55

    Piloto,

    Obrigado pela ajuda, eu fiquei o dia todo verificando e como não tenho prática fiquei passando pelo erro e não o via, quando os mais experientes olham já conseguem ver o erro.

    Acertei todos erros e funcionou certinho, só estava dando problemas no campo Tatuagem por ser Sim/Não ou Ativado/Desativado ou Verdadeiro /Falso na tabela eu deixei sem Formato e agora não dá erro.

    Mais uma vez muito obrigado, dependo demais de voc~es do Forum, pois só assim consigo montar meus programinhas para usá-los em meu Serviço para facilitar a nossa vida no dia-a-dia.

    Tenho muitas dúvidas ainda e assim que chegar nelas postarei aqui, pois esse Bd é uma parte de outro.

    Resolvido.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12252
    Registrado : 01/03/2011

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  HARYSOHN em Ter 16 Out 2012, 14:08

    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    mariogbm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 19/12/2013

    Re: [Resolvido]Filtros combinados no Formulário

    Mensagem  mariogbm em Ter 05 Jun 2018, 21:56

    olá senhores...

    é possível disponibilizar o arquivo exemplo dessa questão para ajudar em meu projeto?

    Grato

      Data/hora atual: Qua 20 Jun 2018, 12:39