[Resolvido]Verificar datas anteriores

Connekta Informatica 2/10/2014, 23:48

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº1

[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 3/10/2014, 12:16

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº2

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 4/10/2014, 10:53

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº3

Re: [Resolvido]Verificar datas anteriores

Mensagem Connekta Informatica 4/10/2014, 10:53

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

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** 4/10/2014, 11:13

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº4

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 4/10/2014, 11:24

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº5

Re: [Resolvido]Verificar datas anteriores

Mensagem Connekta Informatica 4/10/2014, 11:24

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

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 4/10/2014, 12:46

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº6

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 4/10/2014, 13:12

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº7

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 7/10/2014, 16:57

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº8

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 8/10/2014, 02:09

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº9

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 8/10/2014, 10:53

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº10

Re: [Resolvido]Verificar datas anteriores

Mensagem Assis 8/10/2014, 10:53

Tem uma mensagem privada

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

Connekta Informatica 8/10/2014, 16:37

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº11

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 8/10/2014, 19:42

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº12

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 20/11/2014, 18:49

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº13

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 20/11/2014, 19:03

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº14

Re: [Resolvido]Verificar datas anteriores

Mensagem Connekta Informatica 20/11/2014, 19:03

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

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 20/11/2014, 19:17

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº15

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 21/11/2014, 11:50

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº16

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 21/11/2014, 18:03

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº17

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 22/11/2014, 15:35

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº18

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 22/11/2014, 16:20

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº19

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 22/11/2014, 16:40

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº20

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 22/11/2014, 16:47

Assis

Assis: Maximo VIP; Respeito às regras :

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

Mensagem nº21

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

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº22

Re: [Resolvido]Verificar datas anteriores

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Verificar datas anteriores

[Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Re: [Resolvido]Verificar datas anteriores

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada