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]DoCmd.ApplyFilter com mais de um critério

    Compartilhe
    avatar
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Seg 06 Jun 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Seg 06 Jun 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 [Você precisa estar registrado e conectado para ver este link.]


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

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Seg 06 Jun 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?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Seg 06 Jun 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!
    avatar
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Seg 06 Jun 2016, 02:03

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


    Última edição por jamesacdc em Seg 06 Jun 2016, 02:06, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Seg 06 Jun 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!
    avatar
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Seg 06 Jun 2016, 02:07

    esqueci a virgula. funcionou sim.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Seg 06 Jun 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!

      Data/hora atual: Ter 26 Set 2017, 06:42