[Resolvido]Código de Ação para Repetição

Oi bom dia

Estou a utilizar o codigo abaixo, para concatenar alguns registros em uma tabela, só que no entanto a mesma só pega como base o primeiro registro como referencia, no entanto, eu gostaria que pulasse para o proximo registro e fizesse a mesma ação.

O que acontece:

mercado     desenho       resultado

162        653954760    653954760162
162        753954770    653954760162
162        853954780    653954760162


o que deveria ser

mercado     desenho       resultado

162        653954760    653954760162
162        753954770    753954770162
162        853954780    853954780162





Dim referencia As String

referencia = [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![Desenho_estoque] & [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![mercado_estoque]

With Me![frm_nds_critica_estoque_sub].Form.RecordsetClone
         .MoveFirst
         Do Until .EOF
             .Edit
             .Fields("referencia_estoque") = referencia
             .Update
             .MoveNext
        Loop
End With




grato pela atenção

Pela logica o Loop é que obtem o proximo, então é só colocar a variavel referencia logo após o Do Until .EOF

consegui não,



ficaria assim?


Dim referencia As String

referencia = [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![Desenho_estoque] & [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![mercado_estoque]

With Me![frm_nds_critica_estoque_sub].Form.RecordsetClone
.MoveFirst
Do Until .EOF
.referencia 'Assim?
.Edit
.Fields("referencia_estoque") = referencia
.Update
.MoveNext
Loop
End With

achei este tb mas funcionou igual ao anterior, preciso que ele copie o registro atual e não somente o primeiro



Private Sub Comando121_Click()

Dim rs As Recordset

Dim referencia As String

referencia = [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![Desenho_estoque] & [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![mercado_estoque]

Set rs = Me![frm_nds_critica_estoque_sub].Form.RecordsetClone

Do While Not rs.EOF
rs.Edit
rs!referencia_estoque = referencia
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

End Sub

Rapaz................ 

Dim referencia As String
With Me![frm_nds_critica_estoque_sub].Form.RecordsetClone
        .MoveFirst
        Do Until .EOF
referencia = [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![Desenho_estoque] & [Forms]![frm_nds_critica_estoque]![frm_nds_critica_estoque_sub]![mercado_estoque]
            .Edit
            .Fields("referencia_estoque") = referencia
            .Update
            .MoveNext
       Loop
End With

 

Nobre continua repetindo apenas o primeiro registro


https://www.dropbox.com/s/i6wn8wlexp8cgka/Imagem1.png

Bom arrumei outra solução para meu problema

mas gostaria no futuro entender a causa de não pular para o proximo