Notifications
Clear all

Carregar Listview vba com tabela Access  

  RSS

ACG
 ACG
(@acg)
Active Member
Entrou: 3 anos atrás
Posts: 6
24/11/2019 3:09 pm  

Boa tarde! A todos.

Estou com um problema no código no listview vba, e este é novo para mim.
Alguém poderia me ajudar? Pois está gerando o erro "Erro de execução 6 Estouro"

 
      Dim i As Integer
        For i = 0 To banco.RecordCount - 1
            If Not IsNull(banco(0)) Then
                .ListItems.Add 1, , banco(0)
                .ListItems(1).ListSubItems.Add 1, , banco(1)
                .ListItems(1).ListSubItems.Add 2, , banco(2)
                [color=#FF0000].ListItems(1).ListSubItems.Add 3, , banco(3)[/color]
                .ListItems(1).ListSubItems.Add 4, , banco(4)
                .ListItems(1).ListSubItems.Add 5, , banco(5)
                .ListItems(1).ListSubItems.Add 6, , banco(6)
                .ListItems(1).ListSubItems.Add 7, , banco(7)
                .ListItems(1).ListSubItems.Add 8, , banco(8)
                .ListItems(1).ListSubItems.Add 9, , banco(9)
                .ListItems(1).ListSubItems.Add 10, , banco(10)
                .ListItems(1).ListSubItems.Add 11, , banco(11)
                .ListItems(1).ListSubItems.Add 12, , banco(12)
                .ListItems(1).ListSubItems.Add 13, , banco(13)
                .ListItems(1).ListSubItems.Add 14, , banco(14)
                .ListItems(1).ListSubItems.Add 15, , banco(15)
                .ListItems(1).ListSubItems.Add 16, , banco(16)
                .ListItems(1).ListSubItems.Add 17, , banco(17)
                .ListItems(1).ListSubItems.Add 18, , banco(18)
                .ListItems(1).ListSubItems.Add 19, , banco(19)
                .ListItems(1).ListSubItems.Add 20, , banco(20)
                .ListItems(1).ListSubItems.Add 21, , banco(21)
                .ListItems(1).ListSubItems.Add 22, , banco(22)
                .ListItems(1).ListSubItems.Add 23, , banco(23)
                .ListItems(1).ListSubItems.Add 24, , banco(24)
                .ListItems(1).ListSubItems.Add 25, , banco(25)
                .ListItems(1).ListSubItems.Add 26, , banco(26)
                .ListItems(1).ListSubItems.Add 27, , banco(27)
                .ListItems(1).ListSubItems.Add 28, , banco(28)
                .ListItems(1).ListSubItems.Add 29, , banco(29)
                .ListItems(1).ListSubItems.Add 30, , banco(30)
                .ListItems(1).ListSubItems.Add 31, , banco(31)
                .ListItems(1).ListSubItems.Add 32, , banco(32)
                .ListItems(1).ListSubItems.Add 33, , banco(33)
                .ListItems(1).ListSubItems.Add 34, , banco(34)
                .ListItems(1).ListSubItems.Add 35, , banco(35)
                
            End If
            banco.MoveNext
        Next i
        Set banco = Nothing
        cx.Desconectar
    End With

Desde já agradeço e fiquem com Deus.

Grato.


ResponderCitar (Quote)
Reinaldo
(@rlm)
Estimable Member
Entrou: 6 anos atrás
Posts: 247
25/11/2019 10:04 am  

Uma variavel definida como Integer tem um limite de pouco mais 32700, se seu RecordCount exceder esse valor gerará um estouro.
Experimente alterar i de integer para Long

Reinaldo


ResponderCitar (Quote)
Compartilhar: