[Resolvido]Tripla condição para gravar

Bom dia Amigos

Tenho o seguinte código que não deixa gravar duas vezes no dia o mesmo funcionário:

Private Sub HoraInicio_AfterUpdate()
'***********************************
If Nz(DCount("[DIA]", "RegistoEntradas", "[empregado] = '" & Me.Empregado & "' And [Dia] =#" & Format(Me.txtDia, "mm/dd/yyyy") & "#")) > 0 Then


MsgBox "O Funcionário " & Empregado & " Já tem Registos com Data de Hoje " & Format(Me.txtDia, "dd/mm/yyyy") & "", vbInformation, "Aviso"
Call Comando34_Click ' Este comando limpa os campos todos
Exit Sub
Else
End If


Preciso de uma condição para não deixar gravar o mesmo "Empregado" no mesmo "Dia" dentro do mesmo intervalo de "HoraInicio" e "HoraFim"

Assis,

TEnte isso:

Código:


    Dim sSQL As String
    Dim rs As DAO.Recordset
   
    sSQL = "SELECT COUNT(*) as cnt FROM RegistoEntradas"
    sSQL = sSQL & " WHERE empregado = '" & Me.Empregado & "'"
    sSQL = sSQL & " AND DIA = #" & Format(Me.txtDia, "mm/dd/yyyy") & "#"
    sSQL = sSQL & " AND HoraInicio >= '" & Format([CAMPO_HORA_INICIO_FORMULARIO], "hh:mm") & "'"
    sSQL = sSQL & " AND HoraFim <= '" & Format([CAMPO_HORA_FIM_FORMULARIO], "hh:mm") & "'"
   
    Set rs = CurrentDb.OpenRecordset(sSQL)
    If rs("cnt") > 0 Then
        'mensagem......
    End If
   
    rs.Close
    Set rst = Nothing



Boa tarde Alexandre  

Obrigado

Olá Assis,

Deu certo?

Não Alexandre
Ver mensagem anterior, a parte sublinhada a Amarelo.

Assis,

A mensagem anterior só mostra a depuração do código, que não caracteriza erro.
Faz o seguinte:
Antes de entrar na linha amarela para abrir o recordset, pressione CTRL+G para abrir a "Verificação Imediata" e digite:
?sSQL
Em seguida, copie o resultado da variável e abra uma consulta no modo SQL e cole a instrução e execute a consulta.

Veja se vai dar erro!

Eis o resultado

Nas horas, substitua as aspas simples por #

É isso
Att,
FIM

Alexandre
Melhorou mas:

Assis,

Tente desta forma:

Código:



    sSQL = "SELECT COUNT(*) as cnt FROM RegistoEntradas"
    sSQL = sSQL & " WHERE empregado = '" & Me.Empregado & "'"
    sSQL = sSQL & " AND DIA = #" & Format(Me.txtDia, "mm/dd/yyyy") & "#"
    sSQL = sSQL & " AND HoraInicio >= #" & Format(HoraInicio, "hh:mm:ss") & "#"
    sSQL = sSQL & " AND HoraFim <= #" & Format(HoraFim, "hh:mm:ss") & "#"




Att,
FIM

OLá Alexandre

Segue exemplo

Obrigado

O código do Alexandre está no acontecimento "Antes de atualizar a Hora Fim".

Bom dia / boa tarde / boa noite.

Assis, tente assim


If Nz(DCount("[DIA & Empregado]", "RegistoEntradas", "[empregado] = '" & Me.Empregado & "' And [Dia] =#" & Format(Me.txtDia, "mm/dd/yyyy") & "#")) > 0 Then

Silvio

Como o Sílvio disse já está na mensagem Nº 1

No mesmo dia o empregado pode estar, mas em horas diferentes

O problema está nas horas, ver mensagem Nº 9

Obrigado

No botão gravar

Código:

If DCount("*", "registoentradas", "dia = #" & Format(Me!txtDia, "mm/dd/yyyy") & "# and " & _
                                  "((#" & Me!HoraInicio.Value & "# between horainicio and horafim) or " & _
                                  "(#" & Me!HoraFim.Value & "# between horainicio and horafim))") > 0 Then
    Call MsgBox("Este horário não pode")
    Exit Sub
End If

Bom dia Damasceno

Mas na mesma hora exemplo 10:00 as 12:00 podem estar vários empregados.

Obrigado

Código:

If DCount("*", "registoentradas", "dia = #" & Format(Me!txtDia, "mm/dd/yyyy") & "# and " & _
                                 "Empregado = """ & me!Empregado.value & """ and " & _
                                 "((#" & Me!HoraInicio.Value & "# between horainicio and horafim) or " & _
                                 "(#" & Me!HoraFim.Value & "# between horainicio and horafim))") > 0 Then
   Call MsgBox("Este horário não pode")
   Exit Sub
End If

Obrigado Damasceno  

Perfeito

E o resolvido?

Tem razão Damasceno

O fórum agradece o retorno. Sucesso.