[Resolvido]Preencher Campo com conteúdo do campo anterior

Boa tarde

Alguem tem alguma dica de como posso fazer o seguinte:
Na tabela original, tenho o campo dtData e abaixo deste campo, demais lançamentos....... até que se encontre a próxima data preenchida.

O que estou tendo dificuldade em fazer é com que, conforme exemplos abaixo, os próximos registros obtenham o mesmo valor do registro anterior (campo dtData) até que se encontre a próxima data preenchida...


-Tabela Original

Id_Reg Registro CentroCustos Conta Natureza SaldoInicial Devedora Credora Abertura dtData 6765 I150 31012013 01012013 S 01012013 6766 I155 11010102001 D 568,90 12 S 6767 I155 11010208001 D 1,79 26 S 6768 I155 11010201001 D 52,66 18 S 6769 I155 11010204001 D 55,33 20 S 6771 I155 11010209001 D 50,30 28 S 6772 I155 11010201001 D 120,86 18 S 6773 I155 11010209001 D 219,07 28 S 6774 I155 22020101006 C 1162371,25 541 S 6775 I155 22020101012 C 81756,48 546 S 6776 I155 21040301002 C 41407,36 483 S 7124 I150 28022013 01022013 S 01022013 7125 I155 11010102001 D 455,86 12 S 7126 I155 11010208001 D 1,79 26 S 7127 I155 11010201001 D 0,92 18 S 7129 I155 11010207001 D 1639,46 23 S 7130 I155 11010209001 D 9,70 28 S 7131 I155 11010201001 D 87,80 18 S 7132 I155 11010209001 D 219,07 28 S 7133 I155 22020101006 C 1119087,97 541 S 7134 I155 22020101012 C 81756,48 546 S 7135 I155 21040301002 C 22325,38 483 S

- Tabela Ajustada

Id_Reg Registro CentroCustos Conta Natureza SaldoInicial Devedora Credora Abertura dtData 6765 I150 31012013 01012013 S 01012013 6766 I155 11010102001 D 568,90 12 S 01012013 6767 I155 11010208001 D 1,79 26 S 01012013 6768 I155 11010201001 D 52,66 18 S 01012013 6769 I155 11010204001 D 55,33 20 S 01012013 6771 I155 11010209001 D 50,30 28 S 01012013 6772 I155 11010201001 D 120,86 18 S 01012013 6773 I155 11010209001 D 219,07 28 S 01012013 6774 I155 22020101006 C 1162371,25 541 S 01012013 6775 I155 22020101012 C 81756,48 546 S 01012013 6776 I155 21040301002 C 41407,36 483 S 01012013 7124 I150 28022013 01022013 S 01022013 7125 I155 11010102001 D 455,86 12 S 01022013 7126 I155 11010208001 D 1,79 26 S 01022013 7127 I155 11010201001 D 0,92 18 S 01022013 7129 I155 11010207001 D 1639,46 23 S 01022013 7130 I155 11010209001 D 9,70 28 S 01022013 7131 I155 11010201001 D 87,80 18 S 01022013 7132 I155 11010209001 D 219,07 28 S 01022013 7133 I155 22020101006 C 1119087,97 541 S 01022013 7134 I155 22020101012 C 81756,48 546 S 01022013 7135 I155 21040301002 C 22325,38 483 S 01022013

Saudações
Vinicius

Boa noite,
Pela disposição dos dados, não consigo entender.
Disponibilize em tabela access

Boa tarde Alexandre

O que estou tentando fazer é com que o campo dtData receba o valor do registro anterior até que encontre a próxima data informada.

Exemplo:
Tabela Original
Registro dtData
1 01012013
2
3
4
5
6 01022013
7
8
9

Registro dtData
Tabela Ajustada
1 01012013
2 01012013
3 01012013
4 01012013
5 01012013
6 01022013
7 01022013
8 01022013
9 01022013

Att. Vinicius

Sub PreencheVazios()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' o código pode ser utilizado livremente, desde que mencionado este cabeçalho e acrescentado o utilizador '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'em 2013-11-11 para vinicius.anna
Dim Rst As DAO.Recordset, UltimoValor As String
Set Rst = CurrentDb.OpenRecordset("reg_I155")
Do While Not Rst.EOF
If Rst("dtData") = "" Then
Rst.Edit
Rst("dtData") = UltimoValor
Rst.Update
Else
UltimoValor = Rst("dtData")
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Alexandre,

Bom dia,

Muito obrigado, problema resolvido, apenas fiz um ajuste na linha


If IsNull(Rst("dtData")) Then

Para que não retorne o erro 94.

Saudações,
Vinicius