[Resolvido]Como faço para indivializar registros de uma tabela atraves de uma consulta

ola tenho uma tabela já gerada por outro sistema que é
ref qtde
000001 3
gostaria de criar uma consulta que atualize a tabela conforme abaixo
ref
000001
000001
000001
obrigado

Boa tarde, Leo, e bem-vindo ao fórum
Quer actualiza a própria tabela onde já existem registos (acrescentar quantos indicados em qtde -1)?

Obrigado !! Pelo contato.

Na verdade gostaria de manter a tabela atual e criando outra

Leo,
Crie NovaTabela com o campo ref e execute este código
Sub CriaTabela()
'criada por Alexandre Neves
'em 2012-07-26
'para Leo lobo
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer

Set Rst1 = CurrentDb.OpenRecordset("SELECT ref, qtde FROM TabelaExistente ORDER BY ref;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT ref FROM NovaTabela;")

Do While Not Rst1.EOF
For I = 1 To Rst1(1)
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing
Set Rst2 = Nothing
End Sub

desculpe voltar a questao é que estou com duvidas por ser mediano no access.
O nome do banco de dados é flickt.mdb
O nome da tabela original é LEO TXT que tem os campos REF e QTDE
Criei uma nova tabela chamada de TXT somente com o campo REF
Devo rodar este comando atraves de um formulario no ao clicar ou é possível roda-lo sem formulario ?
Preenchi e deu erro . Se puder mandar já preenchido só para facilitar agradeço

Leo

Deu erro de compilação
o tipo definido pelo usuario não foi definido

Grato
Leo

As ajudas só devem ser pedidas para o estritamente necessário.
Disponibilize a bd

Disponibilizei o BD no 4shared.com
Segue o Link - http://www.4shared.com/office/BqjC14c1/Flickt.html
Obrigado

Leo,
Active a referência Microsoft DAO 3.6
Cole num módulo e guarde

Sub CriaTabela()
'criada por Alexandre Neves
'em 2012-07-26
'para Leo lobo
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Integer

Set Rst1 = CurrentDb.OpenRecordset("SELECT ref, qtde FROM txt1 ORDER BY ref;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT ref FROM txt;")

Do While Not Rst1.EOF
For I = 1 To Rst1(1)
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing
Set Rst2 = Nothing
End Sub

Execute o código (F5)

ok resolvido obrigado e espero poder colaborar com pessoas menos experientes que eu.
Gostaria de saber se as dúvidas que eu tiver eu posso colocar no forum ?
Este tópico está resolvido !

Claro que pode. O fórum é para quem não sabe pedir ajuda a quem sabe. Quem sabe uma coisa hoje, pode não saber outra amanhã e, por isso, os membros devem visitar o fórum para tentar ajudar outros e, se precisarem, pedir ajuda.
Quando a dúvida estiver resolvida, pressione Resolvido assim

Desta vez, marco eu

Alexandre bom dia !!

Gostaria de aproveitar esta solucao e melhorar pois fazer o F5 pode criar esquecimento.
Como posso colocar este codigo dentro da opcao ao abrir formulario nas propriedades para que o modulo rode automaticamente

Grato
Leo

Boa tarde, Leo
Coloque
Call CriaTabela

Alexandre estou com um assunto pendente teria como me ajudar

Boa tarde, Leo
Coloque a dúvida para quem puder ajudar.