[Resolvido]Form continuo foco direcionado para campo nulo!

Companheiros boa noite á todos, que Deus ilumine á cada um de vocês!

Eu aqui outra vez aprendendo com os senhores!
Tenho um form continuo, com um campo "maquina" nesse form
são usados 25 linhas, para 25 registros é óbvio! Então esse
form é aberto varias vezes ao dia, pois são adicionadas
leituras de hora em hora no mesmo, preciso que quando abrir
o form o foco vá para o campo "maquina" onde ele ainda estiver
nulo, e acontece que o usuário abre o form, o foco vai para o
campo "maquina" mas aonde já foi digitado, preciso que ele vá
para o campo "maquina" nulo. Tem um problema criamos uma função
que quando eu abro o form ele cria as 25 linhas e inseri os horários
das 00:00 até as 24:00 horas. Isso que está me impedindo de
levar o foco para o campo determinado e nulo como citei acima.

alguém pode me ajudar, agradeço á todos.

código do J.Paulo............cria as 25 linhas ao abrir o form novo!

Private Sub Form_Load()
Dim X As Integer
Dim Rs As DAO.Recordset
X = 0
For X = 1 To 25

Set Rs = CurrentDb.OpenRecordset("TabFontePrincipal", dbOpenDynaset)
Rs.AddNew
Rs.Update
Rs.Close
Next X
Me.Requery
Set Rs = Nothing

End Sub


Código do cliquio

Adiciona os 25 horários:...............das 00:00 as 24:00 horas

Private Sub Codigo_Enter()
Dim Rs As Recordset, Hora As Integer
Set Rs = CurrentDb.OpenRecordset("TabFontePrincipal")

Do While Not Rs.EOF
Rs.Edit
Rs!Hora = Format(Hora, "000") & 0 ' ou Format(Hora, "00") & ":" & 0000
Rs.Update
Rs.MoveNext
Hora = Hora + 10
Loop

Rs.Close
Set Rs = Nothing

End Sub

Aguardo ajuda!

Acho que meus amigos não entenderam!

O formulário abre com 25 linhas e são preenchidas as horas, automaticamente.

Exemplo:
Hora .... Amperagem
00:00 .... 100
01:00 .... 110
02:00 .... 105
03:00
04:00
05:00
06:00
07:00
08:00
09:00
10:00
11:00
12:00
13:00
14:00
15:00
16:00
17:00
18:00
19:00
20:00
21:00
22:00
23:00
24:00

As leituras são feitas de hora em hora, exemplo eu abri o form agora,
preciso que o foco vai para amperagem das 03:00 horas onde vou inserir a leitura.

Ai digito os dados no campo "amperagem" das 03:00 horas e fecho o form!
Quando o form for aberto novamente, o foco tem que estar na amperagem das 04:00
assim sucessivamente!


Entenderam?

Talvez algo assim no evento "Ao carregar" desse formulário:

DoCmd.GoToRecord , , acLast - (24 - Format(Now, "h"))

Pode ser necessário ajustar para checar se a hora a ser preenchida já passou do horário ou se ainda não chegou o horário. Por exemplo: O próximo horário seria 21:00. Se abrir o formulário às 20:59, será considerado a hora 20. Então pode ser necessário chegar a última hora preenchida para usar como parâmetro.

Veja um exemplo mais aprimorado:

Dim uHora As Integer
uHora = Format(DMax("Hora", "Tabela"), "h")
DoCmd.GoToRecord , , acLast - (24 - uHora)

Manipule o 24 para se adequar, caso necessário.

Cliquio se puder de uma olhada.
Estou desde manhã para resolver este problema e não
estou conseguindo!
Segue o bd!


http://speedy.sh/SbPej/FOCO-2003.zip

Me reverenciei ao cliquio, porque está me ajudando
porem todos podem, me ajudar se quiser!

Grato.

Tente assim:

Me.CorrenteA.SetFocus
Dim uHora As Integer
uHora = DMax("Hora", "TblAmazenamento", "CorrenteA<>""""") / 100
If uHora = 0 Then
uHora = 1
Else
uHora = uHora + 2
End If
DoCmd.GoToRecord , , acGoTo, uHora

Cliquio, bom dia!

E agradeço por estar me ajudando!

Está dando erro nesta linha.
DoCmd.GoToRecord , , acGoTo, uHora

Erro de tempo de execução ‘2105’:
Você não pode ir para o registro especificado.

Bom dia companheiros!

Ainda não consegui resolver o problema, se alguem puder me ajudar eu agradeço!

Eu fiz o que passei acima no seu banco aqui e funcionou.
Veja no exemplo abaixo. Aqui está funcionando:

Um abraço cliquio, você é fera!
Funcionou aqui.

O fórum agradece pelo retorno.