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"
![[Resolvido]Tripla condição para gravar Sem_t265](https://i.servimg.com/u/f56/19/62/62/37/sem_t265.png)
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"
![[Resolvido]Tripla condição para gravar Sem_t265](https://i.servimg.com/u/f56/19/62/62/37/sem_t265.png)