[Resolvido]Gerar registros de acordo quantidade

Bom dia
Estou com uma dificuldade em fazer uma consulta para meu programa de controle de estoque. tenho uma consulta que gera os seguintes dados:
codigo item descrição quantidade nescessitada lote
100------------------------produto teste-----------------------3-----------------------72

e presizo tranformar a quantidade nescessitada(3) em 3 linhas com os dados do item da seguinte maneira

id(numeração automatica) codigo item descrição lote
1-------------------------100------------------------produto teste-----------------------72
2-------------------------100------------------------produto teste-----------------------72
3-------------------------100------------------------produto teste-----------------------72

e depois disso mandar pra uma tabela e tambem gerar um arquivo txt para impressão de etiquetas


desde ja agradeço

Amigo, estou alterando o título do seu tópico para um mais descritivo, ok?

Dê uma procurada no forum que você encontra tópico semelhante já resolvido.

desculpe mas não encontrei o exemplo no forum
se vc puderem me ajudar

Tem de fazer esse insert pelo formulario;

No evento VBA ao pressionar de um botão;

Private Sub SeuBotão_Click()
Dim i As Integer

For i = 1 To Me.quantidade.Value
CurrentDb.Execute "INSERT INTO SuaTabela (codigo, descrição, lote) VALUES ('" & Me.codigo.Value & "', '" & Me.descrição.Value & "', '" & Me.lote.Value & "' )"
Next i
End Sub

blz é isso mesmo

Mas agora presizo fazer umas alterção, esses dados estão em uma listbox varias linhas.
Como fazer com que o codigo faça linha por linha do listbox.

Aproveitando o exemplo do JPaulo, tente alterar assim:

Private Sub SeuBotão_Click()
Dim i As Integer, j As Integer

For j = 0 To Me.SuaList.ListCount - 1
For i = 1 To Me.SuaList.Column(1)
CurrentDb.Execute "INSERT INTO SuaTabela (codigo, descrição, lote) VALUES ('" & Me.SuaList.Column(0) & "', '" & Me.SuaList.Column(1) & "', '" & Me.SuaList.Column(2) & "' )"
Next i
Next j
End Sub

Não testei aqui, mas é por aí. A mesma lógica para percorrer a quantidade, você usa para percorrer as linhas da listbox. Tente, teste e adapte.

fiz o codigo e ficou assim
Private Sub Comando8_Click()
Dim i As Integer, j As Integer

For j = 0 To Me.Lista9.ListCount - 1
For i = 1 To Me.Lista9.Column(2)
CurrentDb.Execute "INSERT INTO douglas (codigo, descrição, lote) VALUES ('" & Me.Lista9.Column(0) & "', '" & Me.Lista9.Column(1) & "', '" & Me.Lista9.Column(2) & "' )"
Next i
Next j


End Sub
mas ta dando erro 94
uso no 'null" invalido

A quantidade está no Me.Lista9.Column(2) ou é o Lote ?

Muito provavelmente sem testar seria;

Private Sub Comando8_Click()
Dim i As Integer, j As Integer

For j = 0 To Me.Lista9.ListCount - 1
For i = 1 To j
CurrentDb.Execute "INSERT INTO douglas (codigo, descrição, lote) VALUES ('" & Me.Lista9.Column(0) & "', '" & Me.Lista9.Column(1) & "', '" & Me.Lista9.Column(2) & "' )"
Next i
Next j
End Sub

não funcionou
mantive o codigo alterior

Private Sub Comando8_Click()
Dim i As Integer, j As Integer

For j = 0 To Me.Lista9.ListCount - 2
For i = 1 To Me.Lista9.Column(2)
CurrentDb.Execute "INSERT INTO douglas (codigo, descrição, lote) VALUES ('" & Me.Lista9.Column(0) & "', '" & Me.Lista9.Column(1) & "', '" & Me.Lista9.Column(3) & "' )"
Next i
Next j
End Sub

mas ele só gera uma linha do listbox, a linha que esta o cursor
a quantidade de linhas que gera esta tudo ok
basta fazer ele pular de linha e gerar aos outras

Continuando com a pergunta.

For i = 1 To Me.Lista9.Column(2)

A vermelho não está o lote ?

O For i = 1 to xxx será a quantidade de linhas que deverá inserir.

Fazendo o teste aqui se o Lista9.Column(2) tiver a quantidade vai funcionar sim, mas tem de ter as linhas selecionadas na listbox.

E altere de -2 para -1

Private Sub Comando8_Click()
Dim i As Integer, j As Integer
For j = 0 To Me.Lista9.ListCount - 1
For i = 1 To Me.Lista9.Column(2)
CurrentDb.Execute "INSERT INTO douglas (codigo, descrição, lote) VALUES ('" & Me.Lista9.Column(0) & "', '" & Me.Lista9.Column(1) & "', '" & Me.Lista9.Column(3) & "' )"
Next i
Next j
End Sub

é realmente dá certo, mas tem que ir passando linha por linha e clicando no botão
só que são em media 500 linhas, isso levara um bom tempo.
existe uma maneira de automatizar isso?
qual é o codigo para passar pra linha seguinte no listbox?

coloque a list com seleção multipla e terá sempre de selecionar todos para funcionar

ou no codigo do grande jpaulo você fazer referencia ao sql dessa lista

coloquei na seleção multipla, mas so faz de uma linha