MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    Filtrar 2 criterios

    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty filtrar 2 criterios

    Mensagem  buschgil 16/6/2012, 14:43

    Bem galera eu tou com um formulário que fiz um filtro que esta funcionando perfeitamente, que fiz atravez de uma video aula (créditos Avelino)http://www.usandoaccess.com.br/tutoriais/tuto35.asp, só que agroa queria filtrar pelo nome e pelo apelido do cliente ao mesmo tempo. tem jeito? pois ja dei uma pesquisada, inclusive aqui mas não achei nada claro quanto ao assunto.
    minha consulta do filtro esta assim:

    Private Sub cbofiltro_AfterUpdate()
    DoCmd.ApplyFilter , "idcliente = " & Me!cbofiltro.Column(0)
    Me!NomeCliente.SetFocus
    Me!cbofiltro = Null
    End Sub


    Private Sub cbofiltro_GotFocus()
    Dim strsql As String
    strsql = "SELECT idcliente,nomecliente,apelido FROM tabcliente ORDER BY nomecliente;"
    Me!cbofiltro.RowSource = strsql

    End Sub


    obrigado.
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 18/6/2012, 12:57

    Opa!

    Basta vc usar:
    Código:

    DoCmd.ApplyFilter , "idcliente = " & Me!cbofiltro.Column(0)& " AND SeuCampo = '" & Me!SeuCampo & "'"

    Até,


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 18/6/2012, 23:17

    oi mano le_lo28
    fiz conferme você falou, continua fazendo o filtro só pelo nome do cliente, se coloco o apelido da a seguinte mensagem
    "o texto que você informou não é um item da lista.
    acho que o código esta certo, conforme abaixo.

    Código:

    Private Sub cbofiltro_AfterUpdate()
    DoCmd.ApplyFilter , "idcliente = " & Me!cbofiltro.Column(0)& " AND apelido = '" & Me!cbofiltro.Column(2) & "'"
    Me!NomeCliente.SetFocus
    Me!Apelido.SetFocus
    Me!Cbofiltro=Null
    End Sub

    pode me ajudar quanto a este erro? uma vez que o campo apelido é parte da tabela clientes e continua fazendo o filtro só pelo nome do cliente.
    desde já agradeço.
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 19/6/2012, 22:32

    alguém por favor...
    algúem respoda.
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 20/6/2012, 13:24

    Vc tem certeza que a coluna apelido é realmente a 2 ?

    Lembrando que as colunas começam com "0"

    Falow,


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 20/6/2012, 16:11

    são tres colunas na consuta, a Idcliente (numero automatico-inteiro e longo) NomeCliente (texto) e Apelido(texto), na consulta são só essas três, ou a ordem é de acordo com a tabela?
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 20/6/2012, 17:38

    Bem, tenta postar num site o banco só com esse formulário, a tbl e consulta envolvida que eu dou uma olhada.

    Falow,


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 20/6/2012, 20:50

    ta em anexo para download. ta bem simples de entender pois ainda estou no início do projeto
    Anexos
    Filtrar 2 criterios AttachmentinfoComercio1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 15 vez(es)
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 20/6/2012, 22:20

    Faça o seguinte:

    Altere aqui:
    DoCmd.ApplyFilter , "idcliente = " & Me!cbofiltro.Column(0)& " OR apelido = '" & Me!cbofiltro.Column(2) & "'"

    Eu que comi bola, assim ele filtra uma condição ou outra, por isso q com and não funcionou Embarassed

    Falow,


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 20/6/2012, 23:04

    obrigado pela disponibilidade Le_lo, mas continua a dar o mesmo erro, já troquei AND por [b]OR[b/] e continua a dar a mesma mensagem.

    você tem mais ulguma sugestão?
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 21/6/2012, 13:20

    Bem, testei aqui e funcionou!

    Veja vc mesmo: Baixe aqui

    Não apresentou erro algum.

    Falow,


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 22/6/2012, 22:36

    baixei o arquivo,mas ta corrompido, tem como postar por aqui mesmo?
    abraço
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 25/6/2012, 17:45

    Ok.
    Veja se consegue agora!
    Anexos
    Filtrar 2 criterios AttachmentinfoComercio1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 50 vez(es)


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 26/6/2012, 12:41

    ta dando o mesmo erro, eu estou usando o access 2007, você esta usando uma versão diferente? tanto o que você postou quanto o que eu tenho da no mesmo problema.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  Silvio 26/6/2012, 14:48

    Com a permissão de todos...e desejando um bom dia...

    Veja se o exemplo pode lhe atender.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  le_lo28 26/6/2012, 15:38

    Não baixei o exemplo do amigo Silvio, mas pela mensagem de erro que vc descreveu: "o texto que você informou não é um item da lista, você deve estar digitando alguma coisa na caixa de combinação e quer aplicar o filtro é isso? Se for isso e normal o erro por causa da propriedade da lista de não aceitar um item q NÃO estiver nela.

    Vc executou o filtro selecionando um item da lista? Deu erro? Filtrou?

    Meu access tb é 2007.

    Att


    .................................................................................
    Filtrar 2 criterios Assinaturacross
    M@rcelo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  Silvio 26/6/2012, 15:44

    Bom dia Le_lo.

    Me exemplo é simples: são duas caixas de texto, uma para o nome e outra para o apelido. Pensei dessa forma, otimizar mais a procura na tabela cliente que ele tem.

    Na caixa de texto busca foi digitado o seguinte comando:

    Private Sub busca_AfterUpdate()
    Me.Filter = "[nomecliente]Like '*" & Me.busca & "' & '*'"
    Me.busca = Null
    End Sub


    Abraços.

    Silvio


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  JPaulo 26/6/2012, 15:49

    Testei o exemplo que o Marcelo lhe passou e está a funfar.

    O problema é quando ele digita e não faz parte da lista mesmo.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Filtrar 2 criterios Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Filtrar 2 criterios Folder_announce_new 102 Códigos VBA Gratuitos...
    Filtrar 2 criterios Folder_announce_new Instruções SQL como utilizar...
    buschgil
    buschgil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 26/04/2012

    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  buschgil 26/6/2012, 17:57

    desculpe minha ignorância, como no exemplo em anexo, tenho este filtro que faz a busca pelo nome do cliente, que faz parte da tabela cliente, até ai tudo funfa legal, nesta mesma tabela tenho um campo chamado apelido que gostaria que no mesmo filtro eu buscasse pelo nome(que esta funcionando), e buscasse pelo apleido, o nosso amigo Silvio fez dois filtros separados, só que eu gostaria que ficasse os dois em um só campo de busca tanto nome como apelido, já fiz o comando que o le_lo passou mas da o erro descrito acima.

    Conteúdo patrocinado


    Filtrar 2 criterios Empty Re: Filtrar 2 criterios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 15:57