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]Consultar pelo botão de Opcão

    Compartilhe

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 20/04/2017

    [Resolvido]Consultar pelo botão de Opcão

    Mensagem  daygdson em 20/6/2017, 03:08

    Fala galera, mais uma vez preciso da ajuda de vocês, provavelmente é muito simples a solução mas passei o dia inteiro quebrando cabeça e não consegui aplicar.

    Tenho um formulário que estou fazendo de contas a receber, nele tenho várias opções de consulta, alguns filtros  consegui fazer com ajuda aqui do fórum, então tenho pesquisas por datas de inicio e fim, nome,  recebidas, a receber e elas todas estão funcionando, a única que não consigo fazer é de atrasadas. Sei que deve ser algo simples, preciso fazer duas comparações, Campo data menor que a data atual e campo pago do tipo verdadeiro = 1 e falso = 0

    Enrosquei nesse aqui

    Private Sub OpAtrasados_GotFocus()

    If Me.DTVCTO < Date And Me.PAGO = 0 Then

    Me.Form.FilterOn = True

    End If

    End Sub


    Este código está em "Ao receber foco" nas propriedades do botão de Opção. As consultas de Recebidas e A Receber utilizo através da consulta que referencia com o critério "Como [Formulários]![FORM_CONTASaRECEBER]![txtConsulta] & "*" onde eu chamo através de código o valor de opção em comparação a uma caixa não acoplada. Se alguém tiver uma idéia de como montar esta consulta agradeço e muito
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  FabioPaes em 20/6/2017, 15:11

    Talvez seja mais facil se postar as partes envolvidas! Assim entenderíamos melhor a sua situação e estrutura!


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

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 20/04/2017

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  daygdson em 20/6/2017, 15:44

    Fabio, bom dia...obrigado pelo retorno. Segue o banco de exemplo, consegui fazer na opção atrasados com outra consulta por nome de Consulta_CR_FiltroData ai retorna o valor que quero mais por outro lado não marca o botão de opção igual os outros porque estou fazendo duas consultas no mesmo quadro de opções.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  FabioPaes em 20/6/2017, 20:43

    Opa amigo, seguindo o seu raciocínio, resolveremos com apenas uma consulta e um Seimed...

    Vejamos:
    Se o campo Baixado=-1 (sim) então o Campo PAGO=1
    Se o campo Baixado=0 (nao) e a data Vencimento< que data atual, então o Campo PAGO=2
    Se nao, o campo PAGO=0

    Desa forma teremos na consulta no campo PAGO terá: 1 para Pago, 2 para Atrasado e 0 a receber. Então basta aplicar o filtro nesse campo de acordo com o que precisa!

    Apague a consulta extra;
    Na consulta CONSULTA_CR, no campo PAGO mude para:
    PAGO: SeImed([BAIXADO]=-1;1;SeImed([DTVCTO] '<=== Nada mais é do que a explicação anterior

    Agora no formulario, na opção Atrasado, no evento apos atualizar mude o comando:
    de:
    txtConsulta = 2
    DoCmd.ApplyFilter "Consulta_CR_FiltroData"


    Para:
    txtConsulta = 2


    Pronto!


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

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 20/04/2017

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  daygdson em 21/6/2017, 15:31

    Caro Fábio, testei sua sugestão mas apresenta a seguinte mensagem de erro quando tento executar a consulta

    msg: Função "Selmed" indefinida na expressão

    Poderia  me explicar onde estou errando na expressão: PAGO: Selmed([BAIXADO]=-1;1;SeImed([DTVCTO] ' o que coloco após esta 2° função

    Estou tentando da seguinte forma, me corrija se estiver errado : PAGO: Selmed([BAIXADO]=-1;1;SeImed([DTVCTO]< Data()))
    outra coisa, não entendi como irá inserir o valor 2 se a data for menor que a data atual, visto que existe somente o 'verdadeiro (-1)'ou 'falso (1)' nesta consulta

    E no evento que você pediu para colocar "Após atualizar" txtConsulta = 2 eu coloquei na opção "Ao receber Foco"

    Enquanto isso vou tentando por aqui resolver em cima do que você me passou.
    Obrigado pela sua atenção.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  FabioPaes em 21/6/2017, 21:25

    Meu amigo acho que na hora que eu colei foi com erro.
    O Correto é:
    Código:

    PAGO: SeImed([BAIXADO]=-1;1;SeImed([DTVCTO]<Data() E [BAIXADO]=0;2;0))

    dropbox.com/s/yaw442zu9ju5zf0/ClientesExemplo.zip


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

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 20/04/2017

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  daygdson em 21/6/2017, 22:09

    Grande Fabio, não conseguia aplicar de jeito nenhum a sintaxe do comando, pesquisei e não entrava na cabeça...kkk agora com a sua resposta ficou simples, obrigado pela atenção e ajuda, ficou TOP do jeito que eu queria, muito obrigado. Caso Resolvido !
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Consultar pelo botão de Opcão

    Mensagem  FabioPaes em 21/6/2017, 22:23

    Grato pelo retorno amigo, até a próxima se Deus Quiser!


    .................................................................................
    _____________________________________________________________________
    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: 16/11/2018, 12:22