[Resolvido]aprendendo a trabalhar com a função loop

oi..
tenho uma tabela com a descrição tabref com os seguintes campos..

data ref codigo qtd
08/01/2015 1250 ml350 3
08/01/2015 1450 xl840 1
08/01/2015 1230 tt240 2

tenho uma tabela temporaria para gerar etiquetas....
como montar uma função em loop´para gerar a tebela temporaria nesta maneira...

data ref codigo qtd
08/01/2015 1250 ml350 1
08/01/2015 1250 ml350 1
08/01/2015 1250 ml350 1
08/01/2015 1450 xl840 1
08/01/2015 1230 tt240 1
08/01/2015 1230 tt240 1

agradeço desde já a colaboração de todos...

Olá, para ser mais fácil para ajudar, será melhor postar uma base de dados com as duas tabelas e com os dados exemplificados da tabela para decompor.
Abraço

mas a tabela denominada tabref é que comtem as especificações ... como data ref codigo qtd.. com seus registro
de quantidade somados, a outra tabela é temporaria é vazia... ela é preenchida quando fizer a função loop porem com os dados unitarios,
para poder gerar as etiquetas em formulario continuo..att.

Os dados na tabela tabref estão assim:

data ref codigo qtd
08/01/2015 1250 ml350 3
08/01/2015 1450 xl840 1
08/01/2015 1230 tt240 2

a tabela tem estes dados.. com as qtd somadas.. na temporaria teria q aparecer elas unitarias..entendeu..


data                   ref            codigo              qtd

08/01/2015        1250            ml350               3
08/01/2015        1450            xl840                1
08/01/2015        1230            tt240                2

Olá, experimente o código abaixo.

Código:

Dim db As Database, RS As Recordset
Dim strSQL As String, X As Integer
   
Set db = CurrentDb
strSQL = "SELECT * From tabref"
Set RS = db.OpenRecordset(strSQL)

      DoCmd.RunSQL "Delete * from tabtmp"  ' Limpar

      With RS
          Do While Not .EOF
            For X = 1 To RS.Fields(3) 'campo quantidade
                DoCmd.RunSQL "INSERT INTO tabtmp (data, ref, codigo, qtd) SELECT #" & RS.Fields(0) & "#, " & RS.Fields(1) & ", '" & RS.Fields(2) & "', 1"
            Next
            .MoveNext
          Loop
      End With
   
RS.Close
db.Close


Não se esqueça de ter a tabela tabtmp já criada com os mesmos campos.
Neste caso faz uma leitura à tabela tabref, em que vai correr todos os registos, verifica a quantidade e usei o FOR com uma consulta adicionar.
Bons estudos
Abraço

oi deu este erro...
esta na imagem em anexo

att

blz.. consegui achar o erro...
deu certo.

muito obrigado..


att