[Resolvido]Rotina ao percorrer todos os registos

Boa Tarde

Esta rotina junta no campo "Ordenar" o campo "Data_Valor" + time.
Assim
10-02-2011 14:28:00
10-02-2011 14:28:00
10-02-2011 14:28:00

Eu queria que nos registos seguinte desse:
Assim
10-02-2011 14:28:00
10-02-2011 14:28:01
11-02-2011 14:28:02
11-02-2011 14:28:03

Isto é no time punha mais um segundo.


Private Sub Comando14_Click()
Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
Me.Ordenar = Me.Data_Valor + Time
.MoveNext
End With
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"
End Sub

Talvez funcione assim:

Right(Me.Ordenar, 2) = Right(Me.Data_Valor, 2) + 1

Assim não fica
A data_valor 01-01-1900

Boa noite, Assis

Veja se dá certo:
Private Sub Comando14_Click()
Dim rst As Recordset
Dim Tempo, Cont as integer
Set rst = Me.Recordset
tempo=Time: cont=0
rst.MoveFirst
Do While Not rst.EOF
rst("Ordenar") = Me.Data_Valor + format(tempo,"hh:nn:") & format(format(tempo,"s")+cont,"00")
cont=cont+1
.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"
End Sub

Cumprimentos,

Para aqui
Private Sub Comando14_Click()
Dim rst As Recordset
Dim Tempo, Cont as integer
Set rst = Me.Recordset
tempo=Time: cont=0
rst.MoveFirst
Do While Not rst.EOF
rst("Ordenar") = Me.Data_Valor + format(tempo,"hh:nn:") & format(format(tempo,"s")+cont,"00")
cont=cont+1
.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"
End Sub

Obrigado, Assis

Fica assim:
Private Sub Comando14_Click()
Dim rst As Recordset
Dim Tempo, Cont as integer
Set rst = Me.Recordset
tempo=Time: cont=0
rst.MoveFirst
Do While Not rst.EOF
rst("Ordenar") = Me.Data_Valor + format(tempo,"hh:nn:") & format(format(tempo,"s")+cont,"00")
cont=cont+1
rst.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"
End Sub

Run time error 13
Type mismatch


Private Sub Comando14_Click()
Dim rst As Recordset
Dim Tempo, Cont as integer
Set rst = Me.Recordset
tempo=Time: cont=0
rst.MoveFirst
Do While Not rst.EOF
rst("Ordenar") = Me.Data_Valor + format(tempo,"hh:nn:") & format(format(tempo,"s")+cont,"00")
cont=cont+1
rst.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"

Assis Convinha dizer-nos se o campo "Ordenar" é texto ou data na tabela.

Alexandre, não falta aí um rst.Edit e um rst.Update ?

O campo ordenar é Data/Hora "31-12-2001 13:03:47"

Obrigado, boa lembrança, Ricardo

Isto de fazer de memória, a correr e sem testar

teste;

Dim rst As Recordset
Dim Tempo, Cont As Integer

Set rst = CurrentDb.OpenRecordset("select * from tblExemplo Order By ID ASC")

Tempo = Time()
Cont = 0

If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
rst.Edit
rst.Fields("Ordenar").Value = Me.Data_Valor & " " & Format(Tempo, "hh:nn") & ":" & Format(Format(Tempo, "s") + Val(Cont), "00")
Cont = Cont + 1
rst.Update
rst.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Rotina"

Olá JPaulo

Continua a não dar, mas por aquilo que deu para perbeber é que para quando chega ao segundo "59"

http://dl.dropbox.com/u/8169944/Rotina%20Assis.mdb

Obrigado

Após testar a 100%


Dim rst As Recordset
Dim Tempo, Cont As Integer
Set rst = Me.Recordset

Tempo = Time()
Cont = 0

If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
rst.Edit
rst.Fields("Ordenar").Value = Me.Data_Valor & " " & Format(Tempo, "hh:nn") & ":" & Format(Format(Tempo, "s") + Val(Cont), "00")
Cont = Cont + 1
rst.Update

'Se o Ordenar terminar em 59, acrescenta 1 minuto e inicia os segundos a zero

If Right(Me.Ordenar, 2) = 59 Then
Tempo = Format(DateAdd("n", 1, Me.Ordenar), "hh:nn") & ":" & "00"
Cont = 0
End If
rst.MoveNext
Loop

Set rst = Nothing
MsgBox "Acerto dos Movimentos Terminado", vbQuestion, "Aviso"
Me.Recalc
'DoCmd.Close acForm, "Rotina"


Observação:

O amigo Assis continua a colocar nos nomes dos campos, com palavras reservadas do Access, como por exemplo DATA, um dia terá muitas dores de cabeça e jamais irá descobrir a origem.

Olá JPaulo

Observação: Tem razão quanto ao campo "Data" mas esta BD foi a minha primeira experiência em Access, e agora tenho receio de alterar pois tem já muitos dados.

Obrigado pela rotina, a anterior chegava ao segundo 59 e ficava fora da hora.
Esta perfeita.
Obrigado

Obrigado pelo retorno Assis.

A chuva faz com que fiquemos em casa num Domingo, sorte para uns e azar para outros...