[Resolvido]Ao entrar no campo inserir dados automáticos alternando valores!

Boa noite á todos!
Tenho um formulário continuo, com um campo chamado hora formato “Texto” com a mascara de entrada “00:00”. Cada formulário gerado será possível inserir somente 25 registros, que são as horas do dia ex: (das 00:00 as 24:00 horas) já tenho esse código que o Norberto criou, eu quero que ao entrar no campo "hora" seja inserido automaticamente a hora de cada registro exemplo:
Primeiro registro – ao entrar no campo "hora" seja inserido : 00:00
Segundo registro – ao entrar no campo "hora" seja inserido : 01:00
Terceiro registro – ao entrar no campo "hora" seja inserido : 02:00
Quarto registro – ao entrar no campo "hora" seja inserido : 03:00
Assim sucessivamente até o 25º registro, que no caso iria inserir 24:00,
Aos experts do MS Access, há como fazer isso?
Fico grato pela colaboração de todos!
Um abraço á todos.
Bd anexado!
Lupércio Porfírio Azarias,


http://speedy.sh/PnUen/DADOS-AUTOMATICOS.zip

Uma vez que essas linhas são criadas na tabela, não seria melhor já colocar os dados no momento da criação das linhas?

Boa noite cliquio, tudo bem?

Sim com os dados na tabela dará certo, acontece que este bd ja está criado,
e eu não queria mexer na extrutura das tabelas, ai pensei, talvez há como
fazer essa mudança, através de um código, mas se não conseguir por aqui
irei seguir sua dica! Obrigado pela sua atenção!

Não precisaria mexer nas tabelas. A ideia seria a seguinte: você tem uma função que cria essas 25 linhas, certo? Nessa própria função poderia incluir as horas. Poste ela para vermos como está.

Na verdade a função só limita os 25 registros, não deixa que o usuário insira registros a mais,
vou postar.

A função correta está na ultima mensagem! Desculpe!

Cliquio
Há como criar uma função, para criar um form com as 25 linhas?

Cliquio desculpe enviei a função com erro.
A correta é essa:

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo Trato
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.MoveLast
If rs.RecordCount >= 25 Then
Cancel = True
MsgBox "Você atingiu o limite máximo de registros!."
End If
rs.Close
Set rs = Nothing
Exit Sub
Trato:
If Err.Number = 3021 Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

Tente, em um botão:

Dim rs As Recordset, Hora As Integer
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
rs.Edit
rs!CampoHora = Format(Hora, "00") & 00 ' ou Format(Hora, "00") & ":" & 00
rs.Update
rs.MoveNext
Hora = Hora + 1
Loop

rs.Close
Set rs = Nothing

Cliquio
Ta dando certo só um probleminha que não estou conseguindo resolver!
ta me retornando a hora nesse formato: "10:0" está faltando um zero!

Resolvido caro amigo: Cliquio

Ficou assim:
Private Sub Hora_Enter()
Dim rs As Recordset, Hora As Integer
Set rs = CurrentDb.OpenRecordset("TbTeste")

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

Acrescentei mais um zero no formato hora:
Hora = Hora acrescentei + 10 ao invés de 1.

Obrigado, grande cliquio, um abraço!

Eu estava aqui pensando, Tenho que tirar o chapéu para você, obrigado amigo!