[Resolvido]Criar Loop em Listview

Bom dia caros amigos!

Alguem poderia me ajudar na seguinte situação:

Gostaria gerar parcelas de acordo com o valor digitado pelo usuário, o numero de parcelas e a data..
exemplo:
o usuário selecionou-  VALOR DA PARCELA: R$ 120,00   -     VENCIMENTO: 30 DIAS     -      Nº DE PARCELAS - 12 PARCELAS

apartir dai, iria aparecer na listview as 12 inserções de 120 reais, com os respectivos vencimentos e o n da parcela de cada vencimento.

estou criando um sistema, ai so falta essa parte para ficar mais rapido..
conseguindo gerar esses dados na listview o restante eu consigo manipular as informações, so nao consigo fazer esse loop.

Veja se atende

Caro amigo bom dia e muito obrigado pela sua ajuda..
na verdade eu estou usando em uma listview...
nao estou conseguindo modificar seu codigo ele da um erro na parte que esta em negrito...na vdd na estou colocano esse codigo no access, estou usando em um form em VB6.
na listview tem 4 colunas: ID, NPARCELA, VALOR E DATA

Private Sub btnGerar_Click()
Dim i As Integer
Dim d As Date
d = Me.txtPrimeira
'Call limparLista
For i = 1 To Me.txtNParcelas
Me.lista.ListItems.Add (i & ";" & d & ";" & FormatCurrency(Me.txtValorParcela, 2))
d = DateAdd("m", 1, d)
Next i
End Sub


Sub limparLista()

For i = 1 To Me.lista.ListItems.Count
Me.lista.ListItems.Remove (0)
Next
End Sub

Amigo, eu também usei uma listView.
Provavelmente o erro está ocorrendo porque a sua listview está com a propriedade Tipo de origem da linha = Tabela/consulta
Mas faça o seguinte: troque todo o código pelo código abaixo.

Código:


Private Sub btnGerar_Click()
Dim i As Integer
Dim d As Date
d = Me.txtPrimeira

'A linha abaixo foi incluída para ter a certeza de que a listview é do tipo Lista de Valores
Me.lista.RowSourceType = "Value List"

Call limparLista
For i = 1 To Me.txtNParcelas
Me.lista.AddItem i & ";" & d & ";" & FormatCurrency(Me.txtValorParcela, 2)
d = DateAdd("m", 1, d)
Next i
End Sub

Sub limparLista()
For i = 1 To Me.lista.ListCount
    If Not IsNull(Me.lista.ItemData(0)) Then
        Me.lista.RemoveItem (0)
    End If
Next
End Sub


Veja se agora resolve.

Boa tarde caro amigo..
Como lhe disse antes, eu estou criando isso em um form no visual Basic 6....aí lá eu uso o objeto listview, e nesse código que vc me mandou foi feito com o objeto direto no access.....eu n tô criando em formulário no access e sim no visual Basic..., O código está quase certo..porém é na parte de gerar na listview que da erro...por conta de algumas propriedades que são diferentes, pois estou criando no visual Basic..

Essa linha de código da certo se eu inserir um listbox...mais quando coloco em listview o código tem que mudar umas sintaxes....é isso que n tô conseguindo fazer infelizmente....seu código está 90%....só falta a parte da lançar na listview.....

Realmente eu me confundi. Mas veja se esse artigo ajuda.

macoratti.net/lstview2.htm

Infelizmente ainda nao me ajudou...mais muito obg pela disponibilidade em tentar me ajudar!