[Resolvido]Filtrar por data

Tenho um BD de controle de presença (modelo este feito pelo grande colega JPaulo).

Tenho uma tabela onde é armazenado por dia os funcionarios que comparecem ao plantão, preciso de um relatório que me retorne apenas os funcionarios que compareceram em um determinado periodo pelo menos 3 vezes, sendo que tem que ser desconsiderado o final de semana.

Por exemplo no mes de dezembro do dia 09 (quinta) ate o dia 15 (quarta) - nao considerar dias 11 (sabado) e 12 (domingo) ou seja dos sete dias apenas considerar 5 sendo que apenas venham aparecer no relatorio os que nestes 5 dias copareceram pelo menos 3 vezes independente da sequencia.

Na tabela o campo que recebe esses comparecimentos e do tipo sim/nao, inclusive sendo 2 (duas) pela manha e a tarde pois a falta de um dos comparecimento e considerado como falta.

Procurei algo parecido aqui pelo forum mas nada ate o momento encontrei, agradeço que possa ajudar-me.

Abs, a todos e um feliz natal.

Mesmo você não querendo sábado e domingo, pode acontecer de ter presença registrada nesses dias?

Ola criquio, grato pela atençao, sim existem presenças nos finais de semana, pois a finalidade da presença durante a semana é a autorizaçao para ficar no plantao aos finais de semana, sendo nescessario de pelo menos 3 dias de presença (manha e tarde)de quinta a quarta da semana seguinte, comparecendo pelo 3 dias exceto sab dom garante o plantao no final de semana.

abs,

E em que dia é feita a verificação? Se tiver um dia da semana fixo para isso, fica mais fácil. Caso contrário, aumenta um pouco os procedimentos.

É assim o inicio da verificaçao começa sempre as 5ª feiras e termina na 4ºª seguinte ou seja 7 dias sendo que sab e dom nao podem entrar nesta verificaçao, ficando assim 5 dias.

ex. Em um periodo de 7 dias com inicio sempre na quinta feira, Joao compareceu quinta, sexta e terça tanto no periodo da manha como da tarde, sendo assim seu nome devera contar na lista . Ja maria so compareceu sexta e segunda (2 dias) entao o nome dela nao pode aparecer na lista.

Boa tarde,

Indique a tabela onde guarda as presenças para se meter as mãos na massa.

Boa tarde, Alexandre Neves



Encontra-se na tblExemplo

conforme exemplo que o Jpaulo me enviou:

http://www.speedyshare.com/files/25848543/terrara_Controle.mdb

Crie um relatório e coloque o código, ao abrir:

Private Sub Report_Open(Cancel As Integer)
Dim DataInicio As Date

DataInicio = InputBox("Introduzir a data de início para listagem")
DataInicio = DataInicio - Weekday(DataInicio) + 5
Me.RecordSource = "SELECT NomeFuncionario FROM tblExemplo WHERE PresencaManha=True and PresencaTarde=True and DataPresenca Between #" & DataInicio & "# and DateAdd('d',#" & DataInicio & "#,6) and WeekDay(DataPresenca)<>1 and WeekDay(DataPresenca)<>7 GROUP BY NomeFuncionario HAVING Count(NomeFuncionario)>2;"
End Sub
Cumprimentos,

Obrigado Alexandre, vou testar aqui depois posto o resultado,

Boas Festas.

abs,

Ola Alexandre, andei testando aqui o codigo que enviou e o mesmo funcionou em partes,nao entendi porque apenas os resultados filtrados entre a data do dia 01/12/10 ao dia 11/12/10, nada retorna; tentei ainda criar um formulario afim de adicionar as data para filtro ao invés de usar a InputBox por a mesma ter mascara de entrada mas o codigo nao funcionou.


segue bd:

http://www.speedyshare.com/files/25911303/terrara_Controle.mdb

Quando da criaçao do formulario houve o problema parecido (que o mestre JPaulo resolveu) o Control ActiveX do Calendario, estava a dar a data Britanica, daí ele trocar o dia pelo mês nao sei se este problema.

grato.

Sim, o problema é esse. Coloque
Me.RecordSource = "SELECT NomeFuncionario FROM tblExemplo WHERE PresencaManha=True and PresencaTarde=True and DataPresenca Between #" & DataInicio & "# and DateAdd('d',#" & Format(DataInicio,"mm-dd-yyyy") & "#,6) and WeekDay(DataPresenca)<>1 and WeekDay(DataPresenca)<>7 GROUP BY NomeFuncionario HAVING Count(NomeFuncionario)>2;"
Cumprimentos,

Ok alexandre, so mais uma coisa preciso acrescentar mais um campo no relatorio (NomeSupervisor), onde acrecentaria nesta consulta, sendo que so colocando o campo aparece imputbox solicitando o campo.

Me.RecordSource = "SELECT NomeFuncionario,NomeSupervisor FROM tblExemplo WHERE PresencaManha=True and PresencaTarde=True and DataPresenca Between #" & DataInicio & "# and DateAdd('d',#" & Format(DataInicio,"mm-dd-yyyy") & "#,6) and WeekDay(DataPresenca)<>1 and WeekDay(DataPresenca)<>7 GROUP BY NomeFuncionario HAVING Count(NomeFuncionario)>2;"

grato.

Ou o nome do campo não está certo ou pertence a outra tabela que não está referida.

Apanhando o barco do Grande Alexandre, veja as modificações que fiz metendo o bedelho:

http://dl.dropbox.com/u/771097/terrara%20Controle_OLD.rar

Mais uma vez perfeito JPaulo, agradeço muito a voce e o grande Alexandre pela força.

Feliz ano novo.

abs.

Obrigado pelo retorno o forum agradece com Feliz Ano Novo.

Caro colega JPaulo estou reabrindo este topico, pois encontrei um problema BD abaixo, o mesmo a partir deste ano nao esta a funcionar como funcionou no mes de dezembro, ele nao abre o relatorio conforme criterio de presença minima de 3 dias no periodo de de 7 dias (de 5 feira a 4 feira tendo que excluir sabado e domingo nas presenças).

Percebi para que o bd funcione e necessario preecher o mes todo com as presenças e dependendo do preenchimento das presenças ele acaba por relacionar corretor de outra semana.

abs.



http://www.speedyshare.com/files/26069791/terrara_Controle_OLD.mdb

Resolvido