Gostaria de criar em meu BD um botão que me retornasse a quantidade de registros que contém a data a vencer menor que 30 dias em três campos na mesma tabela. No caso (Vencimento1), (Vencimento2) e (Vencimento3). Ficarei muito grato com a ajuda dos amigos.
3 participantes
[Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Donizete- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 72
Registrado : 22/08/2012
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
- Mensagem nº2
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Boa tarde,
Suponho que quer que some desde que haja uma das datas que satisfaça a condição (se quiser que as tr~es datas respeitem a condição, substua or por and)
Dcount("*","Tabela","DateDiff("d", Now, Vencimento1)<30 or DateDiff("d", Now, Vencimento2)<30 or DateDiff("d", Now, Vencimento3)<30")
Suponho que quer que some desde que haja uma das datas que satisfaça a condição (se quiser que as tr~es datas respeitem a condição, substua or por and)
Dcount("*","Tabela","DateDiff("d", Now, Vencimento1)<30 or DateDiff("d", Now, Vencimento2)<30 or DateDiff("d", Now, Vencimento3)<30")
.................................................................................
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
Donizete- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 72
Registrado : 22/08/2012
- Mensagem nº3
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Muito obrigado pela resposta Alexandre. Fiz como você indicou, porém deu erro com a seguinte mensagem:
Compile error: Expected: list separator or)
Bom dia.
Compile error: Expected: list separator or)
Bom dia.
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
- Mensagem nº4
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Dcount("*","Tabela","DateDiff('d', Now, Vencimento1)<30 or DateDiff('d', Now, Vencimento2)<30 or DateDiff('d, Now, Vencimento3)<30")
.................................................................................
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
Donizete- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 72
Registrado : 22/08/2012
- Mensagem nº5
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Olá Alexandre. Continua com o mesmo erro. Agradeço muito a sua ajuda.
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
- Mensagem nº6
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Boa noite,
Publique parte da bd para trabalhar e informe detalhes
Publique parte da bd para trabalhar e informe detalhes
.................................................................................
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
Donizete- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 72
Registrado : 22/08/2012
- Mensagem nº7
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Boa noite Alexandre
Desculpe a demora para responder. Conforme você solicitou, segue parte do BD. No caso em FormMenu retornaria a mensagem que existem 4 datas com vencimento < 30 dias. Obrigado pela atenção mais uma vez.
http://www.4shared.com/rar/8bSQEHYMce/bd1.html?
Desculpe a demora para responder. Conforme você solicitou, segue parte do BD. No caso em FormMenu retornaria a mensagem que existem 4 datas com vencimento < 30 dias. Obrigado pela atenção mais uma vez.
http://www.4shared.com/rar/8bSQEHYMce/bd1.html?
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
- Mensagem nº8
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Boa noite,
Coloque em sítio livre de registo. Dropbox, p. ex.
Coloque em sítio livre de registo. Dropbox, p. ex.
.................................................................................
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
FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
- Mensagem nº9
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
No click do Botão coloque:
Dim F As String
F = DCount("*", "TblProdutos", "DateDiff('d', Now(), Vencimento1)<30 or DateDiff('d', Now(), Vencimento2)<30 or DateDiff('d', Now(), Vencimento3)<30")
MsgBox F, vbInformation
Na Mensagem do Moderador Alexandre Neves havia faltado o fechamento da ultima Aspas simples:
Dcount("*","Tabela","DateDiff('d', Now, Vencimento1)<30 or DateDiff('d', Now, Vencimento2)<30 or DateDiff('d, Now, Vencimento3)<30")
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
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!
Donizete- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 72
Registrado : 22/08/2012
- Mensagem nº10
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Deu certo. Era isso mesmo que eu precisava. Muito obrigado Alexandre pela atenção e desculpe ter tomado seu tempo com o meu problema, e muito obrigado pela força Fabio. Vocês são mestres. Resolvido com certeza.
FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
- Mensagem nº11
Re: [Resolvido]Somar datas com vencimento abaixo de 30 dias de três campos da mesma tabela
Grato pelo retorno! 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!
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!
Conteúdo patrocinado
- Mensagem nº12