MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Criar Loop em Listview

    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Criar Loop em Listview Empty [Resolvido]Criar Loop em Listview

    Mensagem  danielmarcos17 em 29/6/2019, 06:03

    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.
    Anexos
    [Resolvido]Criar Loop em Listview AttachmentCapturar.JPG
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 5 vez(es)


    Última edição por danielmarcos17 em 5/7/2019, 21:31, editado 1 vez(es)
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 12/01/2015

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  renpv em 29/6/2019, 11:48

    Veja se atende
    Anexos
    [Resolvido]Criar Loop em Listview AttachmentloopListView.zip
    Gerador de parcelas
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 6 vez(es)
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Criar Loop em Listview Empty LISTVIEW

    Mensagem  danielmarcos17 em 29/6/2019, 15:16

    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
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 12/01/2015

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  renpv em 29/6/2019, 18:09

    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.
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  danielmarcos17 em 29/6/2019, 18:33

    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..
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  danielmarcos17 em 29/6/2019, 18:36

    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.....
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 12/01/2015

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  renpv em 30/6/2019, 01:12

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

    macoratti.net/lstview2.htm
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Criar Loop em Listview Empty Ainda nao

    Mensagem  danielmarcos17 em 30/6/2019, 04:18

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

    Conteúdo patrocinado

    [Resolvido]Criar Loop em Listview Empty Re: [Resolvido]Criar Loop em Listview

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 16:57