Apontamente Data e Hora

Olá grandes mestres !
Primeiro contato com todos do Forum, parabéns pelo trabalho !
Formulário Nome OF
Sub Formulário nome  OF_ subformulário
OF_ subformulário com os seguintes campos:
DataInicial
HoraInicial
DataFinal
HoraFinal
1º Preciso que quando abrir o form OF preencha  a DataInicial e HoraInicial automático em OF_ subformulário.
2º Quando abro pela segunda vez se DataInicial e HoraInicial estiver preenchido partir para preencher DataFinal e HoraFinal.
3º Quando abro pela terceira vez se DataInicial,  HoraInicial, DataInicial e HoraInicial estiver preenchido começa tudo novamente.
Ou seja sempre quando DataInicial e HoraInicial estiver preenchido preencher automaticamente DataFinal e HoraFinal e assim sucessivamente.

É só colocar no evento Ao Carregar do subformulário:

Código:

'1ª vez
If DataInicial.Value = "" Then
    DataInicial.Value = Date
    HoraInicial.Value = Time
'2ª vez
ElseIf DataFinal.Value = "" Then
    DataFinal.Value = Date
    HoraFinal.Value = Time
'3ª vez e depois 5ª, 7ª...
ElseIf DataFinal.Value <> "" And HoraFinal.Value > HoraInicial.Value Then
    DataInicial.Value = Date
    HoraInicial.Value = Time
'4ª vez e depois 6ª, 8ª...
Else
    DataFinal.Value = Date
    HoraFinal.Value = Time
End If

Só está preenchendo os dois últimos campos.
Quando abro o Formulário Nome OF Carrega certinho OF_ subformulário, mais só preenche a primeira linha DataFinal e HoraFinal,
A DataInicial e HoraInicial fica em branco.
Ou seja DataInicial e HoraIncial tem que ser os primeiros a serem preenchidos e depois quando abrir novamente parte para preencher DataFinal e HoraFinal
e assim sucessivamente.

Me expressei mal a primeira vez, segue um exemplo melhor;

1º Quando abrir ele visualiza se DataIncial e HoraInicial está preenchido se não estiver preenche.
2º Quando abro novamente visualiza se DataInicial e HoraInicial está preenchido, se estiver preenche DataFinal e HoraFinal
3º Quando abro visualiza se DataIncial , HoraInicial , DataFinal e HoraFinal está preenchido se estiver abre nova linha no subform e começa tudo novamente.

E vai criando novas linhas de registro somente com essa informação?
Explique melhor qual a utilização disso?
Realmente esse código que passei não atende a sua necessidade.

Aqui na empresa onde trabalho cada peça que é feita temos que apontar:
DataInicial
HoraInicial
DataFinal
HoraFinal
Cada peça demora até 4 dias para ficar pronta, ou seja tem que aponta abertura quando inicial aponta parada para almoço aponta abertura após almoço e aponta final expediente.
DataInicial HoraInicio DataFim HoraFim
17/12/2013 07:15 17/12/2013 12:00
17/12/2013 13:00 17/12/2013 17:00

18/12/2013 07:15 18/12/2013 12:00
18/12/2013 13:00 18/12/2013 17:00

Bem parecido com cartão de ponto de funcionário.

Ou seja nem sempre os horários serão esses, tem peça que demora 4 horas outras 12 dias para serem feitas.
Tudo isso é para saber quanto tempo demora para fazer a peça.
Ai eu montei um formulário de apontamento e dentro do mesmo esse subform.
Quando abre o forme principal vai preenchendo o subform

Amigo Marco Messa pedindo sua licença, tenho um cliente com semelhança no pedido de ajuda do Spi, veja se é isso mesmo que precisa.

No evento atual do formulário principal:
If Not IsNull(Me.IdFormulárioPrincipal) And IsNull(Me.OF_ subformulário!DataInicial) And IsNull(Me.OF_ subformulário!HoraInicio) Then
Me.OF_ subformulário!DataInicial = Date
Me.OF_ subformulário!HoraInicio = Time
ElseIf Not IsNull(Me.IdFormulárioPrincipal) And Not IsNull(Me.OF_ subformulário!DataInicial) And Not IsNull(Me.OF_ subformulário!HoraInicio) _
And IsNull(Me.OF_ subformulário!DataFim) And IsNull(Me.OF_ subformulário!HoraFim) Then
Me.OF_ subformulário!DataFim = Date
Me.OF_ subformulário!HoraFim = Time
End If

No evento após atualizar de um campo que receberá a digitação de um novo registro:
If IsNull(Me.OF_ subformulário!DataInicial) And IsNull(Me.OF_ subformulário!HoraInicio) Then
Me.OF_ subformulário!DataInicial = Date
Me.OF_ subformulário!HoraInicio = Time
End If

Tamo quase chegando lá.
Usei esse código indicado pelo colega com algumas modificações.
Ao carregar do formulário OF ( Principal)

If Not IsNull(Me.OF) And IsNull(Me.OF_subformulário!DataInicio) And IsNull(Me.OF_subformulário!HoraInicio) Then
Me.OF_subformulário!DataInicio = Date
Me.OF_subformulário!HoraInicio = Time
ElseIf Not IsNull(Me.OF) And Not IsNull(Me.OF_subformulário!DataInicio) And Not IsNull(Me.OF_subformulário!HoraInicio) _
And IsNull(Me.OF_subformulário!DataFinal) And IsNull(Me.OF_subformulário!HoraFinal) Then
Me.OF_subformulário!DataFinal = Date
Me.OF_subformulário!HoraFinal = Time
Else
DoCmd.GoToControl "OF_subformulário"
DoCmd.GoToRecord , , acNewRec
If Not IsNull(Me.OF) And IsNull(Me.OF_subformulário!DataInicio) And IsNull(Me.OF_subformulário!HoraInicio) Then
Me.OF_subformulário!DataInicio = Date
Me.OF_subformulário!HoraInicio = Time
End If

Abro a primeira vez preenche correto dataInicial e HoraInicial
Abro a segunda vez preenche correto Datafinal e HoraFinal
Abro a terceira vez preenche correto DataInicial e HoraInicial
Abro a quarta vez e no lugar de preencher DataFinal e HoraFinal preenche DataInicial e HoraInicial novamente.

é por causa do DoCmd.GoToRecord , , acNewRec, do jeito que te passei funciona 100 problemas por que o usuário tem um botão para adicionar um registro novo, tenta fazer o teste no evento atual (Current) do formulário pra ver se funciona.

Não funcionou dessa maneira.
Estou tentando com o código enviado.
Caso alguém tenha uma luz !!!

Amigo, agora que vi o  comentário do colega Marco em relação a ir criando novas linhas no subformulário, infelizmente acho que vc vai ter que repensar uma outra maneira de se fazer o que vc pretende, até porque data e hora são mutantes, ou seja, cada vez que vc abre o formulário tem um novo horário e quando vira o dia também não é mais a mesma data, tenho um cliente onde funciona essa função, mas ele é somente 1 linha e o evento ocorre ao digitar a data inicial e ao chegar na data do retorno do cliente é preenchdo os outros campos. Se puderes anexar a parte envolvida em sua necessidade para vermos se encontramos uma outra solução.

Você poderia postar sua aplicação só com esses forms e as tabelas e consultas que eles usam pra gente dar uma olhada?
Quem sabe assim não consigo entender melhor o que você precisa.

Vou mandar sim estou com problemas para colocar disponível.
Pode mandar seu e-mail para martinhocps@yahoo.com.br ai encaminho a vcs.
Ou se preferir pode liberar seu e-mail aqui q envio a vcs.
Obrigado !

pode mandar para: betogivoni@bol.com.br que disponibilizo aqui.

Amigo Marco Messa, aqui está o projeto do colega spi, se vc tiver condições de olhar para tentar encontrar uma solução para o mesmo, é que estou de saída para atender um cliente e provavelmente só terei disponibilidade de ver o projeto dele a noite.

spi, encontrei uma solução para sua necessidade que foi a seguinte, criei na tabela origem do subformulário 2 campos chamados "início" e "fim", quando vc marcar o campo início serão preenchidos os campos datainicio e horainicio e quando marcar fim serão preenchidos datafinal e horafinal, do jeito que vc queria ao carregar o formulário não seria possível, como citei anteriormente data e hora são mutáveis, cada vez que vc abre o formulário os 2 não serão mais os mesmos das aberturas anteriores.

Ficou funcional mais teria que ser quando o form fosse aberto mesmo por que esse form vem da consulta e o mesmo será aberto filtrado com leitor de código de barras, ou seja, será filtrado pelo nº da Of e pelo código da operação.
Assim lendo os dois códigos de barras ele abre o form e assim começa os preenchimentos.
Cara não sei como agradecer a atenção de vcs, fiquei surpreso com a disposição de vcs.
Vou tentando por aqui e de repente aparece uma luz.

amigo, como disse nas mensagens anteriores ao abrir do formulário não é possível, pois, se a instrução diz que ele tem que executar o código ao abrir o formulário, cada vez que vc abre o formulário o código é disparado, então ele vai colocar sempre as datas e horas atuais do sistema.

Já algum tempo estou tentando resolver esse meu problema.
Não consigo postar o exemplo no fórum.
Falta muito pouco para conseguir fazer os apontamentos como escrevi a cima eu acho que está faltando algum código.
Caso tenha alguém que poça me ajudar eu envio para o e-mail.
Por favor caso tenha alguém que poça me ajudar eu envio para o e-mail.
Obrigado !