[Resolvido]Presença Minima

Boa noite,

Tenho o codigo abaixo o qual me retorna em um relatorio os funcionarios que tiveram presenças no minimo 3 vezes durante um determinado periodo.

Acontece que tenho dois periodos PresençaManha e PresençaTarde eu preciso que se houver pelo menos 3 presenças independetemente se for 2 duas no mesmo dia (manha e tarde) e 1 uma em outro dia daria as 3 presenças minimas necessarias.

O problema que o codigo abaixo considera a PresençaManha e PresençaTarde apenas 1 uma unica presença no mesmo dia, preciso que seja considerada 2 duas presenças.

Obs. no formulario de origem PresençaManha e PresençaTarde estao em uma caixa de seleçao.



Private Sub Report_Open(Cancel As Integer)


Me.RecordSource = "SELECT NomeFuncionario,NomeSupervisor" _
& " FROM tblExemplo" _
& " WHERE DataPresenca BETWEEN Forms!frmData!txtDataInicio and Forms!frmData!DataFim" _
& " and PresencaManha=True or PresencaTarde=True" _
& " and WeekDay(DataPresenca)<>1 and WeekDay(DataPresenca)<>7" _
& " GROUP BY NomeFuncionario,NomeSupervisor HAVING Count(NomeFuncionario)>2;"

End Sub

...