[Resolvido]Identificar se há registro em cada um dos últimos 6 meses

Estava tentando imaginar como criar uma consulta - ou mesmo um procedimento VBA - para identificar se para cada um dos últimos 6 meses há um registro correspondente.

Tenho um formulário com o campo competência(data) do pagamento de um empregado.

Então, preciso descobrir - por exemplo - se para os meses abaixo há um registro de pagamento.
mai/2012
abr/2012
mar/2012
fev/2012
jan/2012
dez/2011

Sem seguida, precisaria de um procedimento que retornasse verdadeiro ou falso.

Boas Rgondim...

Function Verifica() As Boolean
If DCount("*", "tblExemplo", "DataPagamento <=#" & Date & "# And DataPagamento >=#" & DateAdd("m", -6, Date) & "#") >= 1 Then
Verifica = True
Else
Verifica = False
End If
End Function

e para chamar a função Algo assim

Private Sub Comando6_Click()
If Verifica = False Then
MsgBox "Falso"
Else
MsgBox "Verdadeiro"
End If
End Sub


Cumprimentos.

Harysohn,

adaptei e fiz o seguinte teste:

1º opção)
DCount("*", "qryResci_6UltSal", "Competencia < #" & Me.Competencia & "# And Competencia >#" & DateSerial(Year(Competencia), Month(Competencia) - 6, 1) & "#")

2º opção)
DCount("*", "qryResci_6UltSal", "Competencia < #" & Me.Competencia & "# And Competencia >#" & DateAdd("m", -6, Me.Competencia) & "#")

OBS: Competencia é um campo data.

A função sempre conta o total de registros da tabela. Os critérios não funcionaram.

E claro que vai dar errado... voce não quer contar um intervalo de data?

Pois bem, qual é este intervalo?

1 - Critério (Data atual) hoje
2 - Segundo critério (Data a 6 meses atras)

Veja:

If DCount("*", "tblExemplo", "DataPagamento <=#" & Date & "# And DataPagamento >=#" & DateAdd("m", -6, Date) & "#") >= 1 Then

Veja que eu comparo as data do Sistema (Data atual e Data atual -6 meses)



Voce está usando como critério o próprio campo.. e não a data do sistema!!!!


DCount("*", "qryResci_6UltSal", "Competencia < #" & Me.Competencia & "# And Competencia >#" & DateAdd("m", -6, Me.Competencia) & "#")



Cumprimentos.

DCount("*", "qryResci_6UltSal", "Competencia <= #" & Date & "# And Competencia >=#" & DateAdd("m", -6, Date) & "#")

Cumprimentos.

Eu fiz a adaptação para comparar o campo Competencia presente no formulário e na consulta.

Então:
O primeiro critério é a data do campo Competencia no formulário.
O segundo critério é Competencia a 6 meses atrás.

Pensei que se trata-se de uma questão de formatação da data (formato americano, mm/dd/yyyy). Testei com formatação e não deu certo.

Amigao..

DCount("*", "qryResci_6UltSal", "Competencia <= #" & Date & "# And Competencia >=#" & DateAdd("m", -6, Date) & "#")

O Campo competencia contem datas... Ele tem que ser do tipo Data

Entao ele vai buscar os registros entre a data atual do sistema (Date) e a data do sistema - 6 meses ( DateAdd("m", -6, Date))


é isso ai.... aqui da certíssimo...

https://dl.dropbox.com/u/26441349/rGondim_01_06.rar

Cumprimentos.

Fiz teste com seu exemplo e de fato, tudo funcionando.

Vou refazer os testes e vê se descubro o problema.

Dou um retorno em breve.

Beleza...

Veja o tipo do campo que estas utilizando e tal..

Aguardaremos.

Cumprimentos.

Harysohn, fiz vários teste e o problema continuou. Levei algumas tabelas e consultas para outro BD, criei novos formulários e nada.

Então testei o campo Fechamento (campo data). Funcionou.
Mudei a origem do controle do campo Fechamento e não funcionou.

Então o problema está no recordset Competencia.
Na tabela, ele é um campo no formato dd/yyyy (correção: mm/yyyy).

dd/yyyy ..... Dia/Ano...

O dia 01 existe 12 vezes no ano.... Ai nao tem como determinar amigão....

Como vais saber qual o mês? lembrando que semestres são determinado pelos meses e não pelos dias.

A dúvida proposta na origem do tópico foi solucionada com o exemplo que te enviei.


Recordset Fechamento??? de onde veio isso??? neste código nao estamos trabalhando com recordset, e sim com tabela.

Enfim... envie um exemplo conciso do seu bd para que eu possa ver.

Cumprimentos.

agora se for mm/yyyy podes tentar assim:


If DCount("*", "tblExemplo", "DataPagamento <=#" & Format(Date,"mm/yyyy") & "# And DataPagamento >=#" & DateAdd("m", -6, Format(Date,"mm/yyyy")) & "#") >= 1 Then



Cumprimentos.

Perdão, é mm/yyyy.

Leia a mensagem de n° 13

Cumprimentos.

Harysohn, perdão,
minha postagem anterior complicou seu entendimento do problema.
De fato, a solução para o problema já foi apresentada e peço-lhe desculpar por importunar novamente. Sua ajuda foi correta e completa. O problema está no meu Banco de Dados.

O campo Competencia tem origem na tabela tblCompetencia. Seu formato é mm/yyyy e, então, todos os registros são inseridos neste formato: 01/mês/ano. Na mesma tabela, também há o campo Fechamento (formato dd/mm/yyyy).

No formulário onde está o procedimento VBA que você criou, inclui o campo Fechamento e substitui Competencia por Fechamento na função. E aí funcionou!

Fiz outro teste: em cada registro na tabela tblCompetencia, copiei o valor do campo Competencia para Fechamento. Aí não funcionou.

Deixo um exemplo do meu banco de dados.

PS: ao usei Recordset eu na verdade quis me referir a origem do controle na tabela. Erro de principiante...rs.

Amigao... Compacte o teu bd e o disponibilize no DropBox... não consegui baixá-lo pelo google docs...

Ou me envie compactado no e-mail, que posto aqui.

Harysohn@hotmail.com

Cumpreimentos.

Enviado.

Amigao, creio o que o teu bd é 2010, se for converta-o em 2007 ou 2003 e reenvie.

Cumprimentos.

Como não houve resposta o tópico pass a resolvido, caso necessite reabra-o.

Moderação.