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


3 participantes

    [Resolvido]Verificar datas anteriores

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 2/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 3/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 4/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Alexandre Neves 4/10/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
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 4/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 4/10/2014, 12:46

    Connekta Informatica

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


    .................................................................................
    *** Só sei que nada sei ***
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 4/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 7/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 8/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 8/10/2014, 10:53

    Tem uma mensagem privada


    .................................................................................
    *** Só sei que nada sei ***
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 8/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 8/10/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 20/11/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 20/11/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 20/11/2014, 19:17

    Konnekta Informática
    Poste o exemplo com esses dados.


    .................................................................................
    *** Só sei que nada sei ***
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 21/11/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 21/11/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
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 22/11/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 22/11/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
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Connekta Informatica 22/11/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.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Assis 22/11/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 ***

    Conteúdo patrocinado


    [Resolvido]Verificar datas anteriores Empty Re: [Resolvido]Verificar datas anteriores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 04:06