[Resolvido]critica entre datas

tenho um sistema de controle de férias, onde o funcionario entra no sistema e solicita férias, e o que preciso é o seguinte;

quando o usuário entrar no sistema e preencher a data de inicio e termino de suas férias, seja verificado na tabela se existe outra pessoa do mesmo departamento que tenha solicitado férias nesse mesmo período e seja criticado com uma mensagem.

Obrigado

Olá boa tarde!

poderia disponibilizar o projeto para melhor ajuda-lo ?

Danilo

infelizmente não tenho permissão para disponibiliza-lo. é de autoria de um orgão publico. fica complicado pra mim.

Não teria algo simples?
faça uma projeto pequeno,com as ideias que precisa, ai vejo como posso ajudar a chegar no resultado

não consigo mandar pelo forum, me passa seu email que te envio

daniloreiis@hotmail.com

Já passei

Qual a tabela que me informa o setor do funcionário ?

na tabela de cadastro do usuário tblusers, e o controle das férias é feita pela tabela tblFerias. são relarionadas

Alguma solução?

Olá Ifahidalgo, bom dia.

Amigão, há poucos dias estive enrolado com algo bem parecido com o seu.
Veja esse link pois acredito que você terá boas idéias para solucionar seu problema.

Como evitar sobreposição de horários

Abraços, WSenna

senhores

para essa critica utilizei o seguinte codigo, no evento ao sair de um campo, com a seguinte intenção;
verificar no banco de dados se entre as datas iniciais e final, com o mesmo mes e ano de referencia e setor, seja retornado a mensagem do msnbox.
Se eu utilizo somente o select com o between, funciona normal. mas preciso saber as autras informações também e acaba dando o seguinte erro. "erro em tempo de execução '3061': parâmetros insuficientes. eram esperados 1.
na linha em vermelho

Private Sub txtdatatermino_Exit(Cancel As Integer)
Dim strSql As String, rstTemp As DAO.Recordset

If (txtdatatermino <> "") Then

strSql = "SELECT * FROM tblFerias WHERE datainicial Between #" & txtdatainicio & "# AND #" & txtdatatermino & "# and mes = '" & cmbmesref & "' and lotacao = '" & txtlotacao & "' and anoreferencia = int(val('" & txtanoref & "'));"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If Not rstTemp.EOF Then
MsgBox "Existem funcionário(s) no seu setor com Férias para esse período.", vbExclamation + vbOKOnly, "Atenção!"
rstTemp.Close
Set rstTemp = Nothing
txtdatainicio = ""
txtdatatermino = ""
txtdatainicio.SetFocus
DoCmd.CancelEvent
Else
cmdsalvar.SetFocus
End If
End If
End Sub

resolvido