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


2 participantes

    [Resolvido]DoCmd.ApplyFilter com mais de um critério

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  jamesacdc 6/6/2016, 00:03

    Olá,

    Vi esse exemplo e gostaria de inserir um AND no DoCmd.ApplyFilter com um campo da mesma combo que contenha uma data, mas eu nao estou conseguindo, oras da erro de acento e outras de tipos incompatíveis.


    Código:

    Private Sub cboConsulta_AfterUpdate()
    DoCmd.ApplyFilter , "idcliente = " & Me!cboConsulta.Column(0)
    Me!cli_Nome.SetFocus
    Me!cboConsulta = Null
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  FabioPaes 6/6/2016, 00:33

    Tente assim amigo...

    DoCmd.ApplyFilter , "idcliente = " & Me!cboConsulta.Column(0) & " AND CNPJ = " & Me.CnpjCli & " "

    Se nao der certo Veja aqui Mensagem Nº 02 e 03 https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo


    .................................................................................
    _____________________________________________________________________
    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!
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  jamesacdc 6/6/2016, 00:54

    Fabio, muito obrigado pelo retorno..
    achei algo estranho porque depurando vi que esta retornando null quando eu coloco os 2

    Código:

    DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0) & " AND dataLancamento = " & Me!cbobusca2.Column(2) & " "

    mas quando eu coloco somente 1 funciona


    Código:

    DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0)

    eu acho que a data é uma string, como faz nesse caso?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  FabioPaes 6/6/2016, 01:07

    Campos do tipo Data, quando tratadas pelo VBA devem ser add o Caracter # antes e depois da Data #, alem de formatar-mos ela pra evitar erros quanto a confusão de meses com dias.



    DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0) & " AND dataLancamento = # " & Format (Me!cbobusca2.Column(2), "mm/dd/yyyy") & " # "

    Deverá funcionar.


    .................................................................................
    _____________________________________________________________________
    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!
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  jamesacdc 6/6/2016, 02:03

    Deverá funcionar? não, funcionou hehehehe
    Obrigado..
    Vlw Fabio


    Última edição por jamesacdc em 6/6/2016, 02:06, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  FabioPaes 6/6/2016, 02:05

    Funcionou ou Nao amigo? fiquei confuso... rererererere


    .................................................................................
    _____________________________________________________________________
    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!
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  jamesacdc 6/6/2016, 02:07

    esqueci a virgula. funcionou sim.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  FabioPaes 6/6/2016, 02:08

    kkkkkkkkkkkkkkkkkkk Bacana!!!

    Ate a proxima!


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

    Conteúdo patrocinado


    [Resolvido]DoCmd.ApplyFilter com mais de um critério Empty Re: [Resolvido]DoCmd.ApplyFilter com mais de um critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:43