Boa-tarde,

Se alguém puder me ajudar com esse formulário, já tentei algumas formas de gravar o intervalo manualmente, mais não tive êxito.

Att,

Francisco

Vou dar uma olhada a noite!

Veja se é isso que deseja:

Na rotina RegistroEntradaSaida, troque esse trecho aqui:

    If MinhaDatabase.EOF Then
        MinhaDatabase.AddNew
        MinhaDatabase("Entrada") = Me.LabelHora
        MinhaDatabase("CódigoFuncional") = Me.TextBoxNumero
        MinhaDatabase("Data") = CDate(Format(Now, "dd/mm/yyyy"))

    Else
        MinhaDatabase2.Open "SELECT * FROM [Funcionários] WHERE CódigoFuncional=" & (TextBoxNumero) & ";", MinhaConexão, adOpenKeyset, adLockOptimistic, adCmdText
        MinutosAleatórios = Int((10 * Rnd) + 1)    ' Gera um valor aleatório entre 1 e 10.
        MinutosAleatórios = CDate("00:" & Format(MinutosAleatórios, "00"))
        MinhaDatabase("InicioIntervalo") = Date & " " & MinhaDatabase2("InícioIntervalo")    '+ MinutosAleatórios 'CDate(Format(Now, "dd/mm/yyyy")) '
        MinhaDatabase("InicioIntervalo") = MinhaDatabase("InicioIntervalo") + MinutosAleatórios
        MinutosAleatórios = Int((10 * Rnd) + 1)    ' Gera um valor aleatório entre 1 e 10.
        MinutosAleatórios = CDate("00:" & Format(MinutosAleatórios, "00"))
        MinhaDatabase("FimIntervalo") = Date & " " & MinhaDatabase2("FimIntervalo")    '- MinutosAleatórios  'CDate(Format(Now, "dd/mm/yyyy")) '
        MinhaDatabase("FimIntervalo") = MinhaDatabase("FimIntervalo") - MinutosAleatórios
        MinhaDatabase("Saida") = Me.LabelHora
    End If

    MinhaDatabase.Update

Por esse:

    If MinhaDatabase.EOF Then
        MinhaDatabase.AddNew
        MinhaDatabase("Entrada") = Me.LabelHora
        MinhaDatabase("CódigoFuncional") = Me.TextBoxNumero
        MinhaDatabase("Data") = CDate(Format(Now, "dd/mm/yyyy"))

    Else
        If VBA.IsNull(MinhaDatabase("InicioIntervalo")) Then
            MinhaDatabase("InicioIntervalo") = Me.LabelHora

        ElseIf VBA.IsNull(MinhaDatabase("FimIntervalo")) Then
            MinhaDatabase("FimIntervalo") = Me.LabelHora

        ElseIf VBA.IsNull(MinhaDatabase("Saida")) Then
            MinhaDatabase("Saida") = Me.LabelHora

        End If
    End If

    MinhaDatabase.Update

Eu coloquei ali um teste para cada campo, na ordem cronológica... Se o cara quer bater cartão e não tem data de inicio de intervalo, ele vai sair pro intervalo. se ele não tem data de retorno, ele está retornando, e se não tem data de saída, está indo embora...

Bom-dia,

Obrigado aos dois, funcionou perfeitamente.

Att,

Francisco