MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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!

    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?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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!

    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)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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!

    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.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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: Sab 03 Dez 2016, 02:21