Consulta de atualizacao

Gente,
boa tarde

   Tenho alguns dados conforme abaixo...  ocorre que alguns dados, quando repetidos, não são exibidos (demonstrando que são iguais a da linha superior).

   O que precisava é fazer uma consulta para atualizar os dados que estão em branco, levando em consideração a informação do outro registro.

Segue exemplo da minha informação:

Código:

Nome        Data          Valor
Claudio      01/01/13    10,00
             05/01/13    15,00
Rafael                   15,00
                         50,00

Neste exemplo, a linha 2 o nome também seria o Claudio (já que a linha anterior é Claudio).
Na linha 3 a data seria 05/01... A 4 o nome é Rafael e a data é 05/01.

    Se não entenderem avisa que tento explicar melhor....

     Acredito que a alternativa seja uma consulta de atualização, mas se tiverem alguma sugestão eu estou aberto a idéias.


Abraços

Claudio Giroto

Algo assim, no clique de um botão, talvez:

Código:

Dim rs As Recordset, var1 As String, var2 As Date

Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

rs.MoveFirst

Do While Not rs.EOF
    var1 = rs!NomeCampo1
    var2 = rs!NomeCampo2

    rs.Edit

    If rs!NomeCampo1 = "" Then
        rs!NomeCampo1 = var1
    If rs!NomeCampo2 = "" Then
        rs!NomeCampo2 = var2
    End If

    rs.Update

    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Teste em uma cópia do bd.

criquio,
boa noite

    Eu tinha pensado em algo semelhante... mas não tinha testado ainda, tinha esperança em resolver com uma consulta mesmo...

Eu testei o código mas deu um erro:

Código:

Loop sem Do

Alguma sugestão ?

Obrigado

Claudio

Faltou fechar o primeiro bloco If:

Código:

    If rs!NomeCampo1 = "" Then
        rs!NomeCampo1 = var1
    End If

    If rs!NomeCampo2 = "" Then
        rs!NomeCampo2 = var2
    End If

criquio,
boa noite

Agradeço novamente a ajuda... mas agora apresentou outro erro:

Código:

Uso de ´Null´ inválido

Eu também testei ligar o formulário na tabela, mas apresentou o mesmo erro.

Alguma outra sugestão ?

Abraços

Claudio

Olá, Claudio Giroto.

Não entendi como os campos estão em branco, porém vê se eu consigo te ajudar.

1) Criei uma tabela teste, dei o nem de tabTeste, com os seguintes campos: idteste, nomeTeste, dataTeste e valorTeste

2) Após isso criei uma consulta com base na tabela tabTeste:conTeste

3) No modo SQL:
 
SELECT tabTeste.[idteste], tabTeste.[nomeTeste], tabTeste.[dataTeste], tabTeste.[valorTeste]
FROM tabTeste
ORDER BY tabTeste.[nomeTeste], tabTeste.[dataTeste]

4) O resultado será:

No modo Folha de Dados, ficará assim: a coluna nomes ficará ordenado em ordem crescente e na sequência a coluna de datas.


Ok. Espero ter colaborado.

Romi Duarte