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]Verificar datas anteriores

    Compartilhe

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qui 02 Out 2014, 23:48

    Boa Noite

    Tenho um controle de Parcelas onde tenho o campo DataVencimento, quando eu clicar no botão Baixar eleverifique se há data anteriores não baixada.

    Se houver data anterior da que eu quero baixar, ele não permita baixar. E se por outro lado, não tiver datas anteriores ele permita baixar.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sex 03 Out 2014, 12:16

    Alguém tem alguma ideia?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sab 04 Out 2014, 10:53

    Surprised


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Alexandre Neves em Sab 04 Out 2014, 11:13

    Bom dia,
    Leia e respeite as regras dos fórum.
    Proibido palavras "urgente, ..."
    Adeqúe o título


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sab 04 Out 2014, 11:24

    Shocked


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Sab 04 Out 2014, 12:46

    Connekta Informatica

    Quer postar o seu exemplo ou só a parte envolvida para analisar ?


    .................................................................................
    *** Só sei que nada sei ***

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sab 04 Out 2014, 13:12

    Bom dia

    Como pode ver no exemplo, vamos ter o frm_Receitas, onde tenho a ListBox com os cliente listados, nela você clicar no cliente e aparece o debito do cliente na listbox e acima dela tenho o botão cmdBaixar (Baixar). Ao selecionar o debito do cliente e clicando no botão Baixar abre o formulário frm_Baixa.

    O que eu quero, quando selecionar um Debito do cliente e clicar no botão Baixar ele verifique se há vencimentos anteriores do selecionado, se houver apareça a mensagem:

    "O Debito selecionado não pode ser baixado. Pois há vencimentos anteriores."

    Como exemplo pode pegar o Cliente Alcenadir da Costa Nobre, que tem varios vencimento.

    Por exemplo, ele tem a data de vencimento 01/11/2013, 01/12/2013, 01/01/2014, etc.. Se eu tentar baixar o Movimento 01/01/2014 o sistema não dever permitir baixar pois há as datas  01/11/2013 e 01/12/2013 anterior a 01/01/2014.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Ter 07 Out 2014, 16:57

    Boa Tarde

    Alguma novidade?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qua 08 Out 2014, 02:09

    Boa Noite

    Estou tentando fazer com a função Dlookup, mais esta com um erro, alguem pode me ajudar?

    Veja o código:

    Dim dtData As Date
    dtData = lstReceitas.Column(0, lstReceitas.ListIndex)
    If IsNull(DLookup("DataVencimento", "tbl_Receitas", "DataVencimento> #" & dtData & "#") or DLookup("Situacao", "tbl_Receitas", "[Situacao] = "A Receber")) Then
    DoCmd.OpenForm "frm_Baixa"
    Else
    MsgBox "ATENÇÃO: Existe pendencia anterior da selecionada."
    End If


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Qua 08 Out 2014, 10:53

    Tem uma mensagem privada


    .................................................................................
    *** Só sei que nada sei ***

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qua 08 Out 2014, 16:37

    Boa Tarde Assis, é justamente isso que eu quero.

    Só mais um coisa, como você pode ver no frm_Receitas, tenho a lista de clientes e um capo acima para pesquisa, o campo de pesquisa só aparece os dados ao clicar do enter, será teria como você me ajudar ? O que eu quero que conforme eu vou digitando o nome do cliente ele fosse aparecendo.



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qua 08 Out 2014, 19:42

    Muito Obrigado Assis, a tempo venho pesquisando e não conseguia encontrar.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qui 20 Nov 2014, 18:49

    Boa Tarde

    Reabrir o topico, pois a função parou de funcionar.

    Bom o problema é o seguinte: Seleciono um cliente na LstClientes, e depois seleciono a lstReceitas. Mais só aparece a mensagem "Atenção ... Tem Parcelas mais antigas ".

    Exemplo: seleciono um cliente "Codigo: 127 Nome do cliente: Aleildes Teles de Castro".
    Sendo que o (a) cliente Aleildes Teles de Castro tem 12 parcelas.

    Data de Vencimento: 01/01/2015
    Descrição da Receita: Configuração de Micro e Computadores
    ...
    Data de Vencimento: 01/02/2015
    Descrição da Receita: Configuração de Micro e Computadores
    ...
    Data de Vencimento: 01/03/2015
    Descrição da Receita: Configuração de Micro e Computadores
    ...

    Posso selecionar qualquer uma das parcelas que emite a mensagem( citada acima).

    O código do botão que esta sendo usado é esse:

    Código:


    On Error Resume Next

    If IsNull(Me.lstReceitas) Then
    MsgBox " Nada está selecionado!", vbCritical, "Aviso"
    Exit Sub
    End If

    If Me.lstReceitas.Column(12) = "A Receber" Then

    If Me.lstClientes.Column(0) = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
    MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frm_BaixaReceita"
    End If

    Else
    If Me.lstReceitas.Column(12) = "Recebido" Then
    MsgBox "Está parcela já foi baixada.", vbInformation, "Baixa de Parcela"
    End If
    End If


    Alguém pode me ajudar?

    Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Qui 20 Nov 2014, 19:03

    Very Happy


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Qui 20 Nov 2014, 19:17

    Konnekta Informática
    Poste o exemplo com esses dados.


    .................................................................................
    *** Só sei que nada sei ***

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sex 21 Nov 2014, 11:50

    Banco de dados

    Vá no formulário frmReceitas e Selecione um cliente e depois selecione um parcela e clique no botão Baixar.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Sex 21 Nov 2014, 18:03

    Qual a senha do BackEnd

    Isto foi alterado

    'Verifique se há datas anterior da selecionada
    If Me.lstClientes.Column(0) = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
    MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frm_BaixaReceita"
    End If

    Daqui para baixo foi o que eu fiz da outra vez.
    Está diferente.

    If Me.txtCoCliente = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
    MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frm_Baixa"
    End If


    .................................................................................
    *** Só sei que nada sei ***

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sab 22 Nov 2014, 15:35

    Bom dia Assis

    No banco de dados que você me envio na mensagem privada funciona perfeitamente, ele parou de funcionar quando eu transferi para meu banco de dados na versão 2007-2010 (sendo o que eu enviei no começo eu tinha convertido para versão 2002-2003).



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Sab 22 Nov 2014, 16:20

    Boa tarde

    Konnekta Informática

    Leu a Msg. Nº 17

    O formulario "frm_Receitas" foi alterado, no que eu enviei tinha dois campos ocultos por baixo da "lstReceitas".

    O que está agora

    If Me.lstClientes.Column(0) = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
    MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frm_BaixaReceita"
    End If

    Daqui para baixo foi o que eu fiz da outra vez.


    If Me.txtCoCliente = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
    MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frm_Baixa"
    End If

    Veja as diferenças a vermelho.

    O meu office é o 2007
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***

    Connekta Informatica
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 973
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica em Sab 22 Nov 2014, 16:40

    Perdão Assis, cometi uma burrada grande. O problema era apenas que eu esqueci de colocar a consulta tbl_ReceitasC em meu banco de dados.

    Mais uma vez me desculpe-me.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    [Você precisa estar registrado e conectado para ver este link.]


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis em Sab 22 Nov 2014, 16:47

    Konnekta Informática
    Não tem nada que pedir perdão, qualquer um erra..

    Já agora a sua BD agora tem FrontEnd e BackEnd , mas dá um erro ao fazer "Debug" no VBA.


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Dom 04 Dez 2016, 06:04