Carregar Listview vba com tabela Access

Processos de importação e exportação de dados, interação entre o Excel e demais softwares, interface com Banco de dados, SQL.

Carregar Listview vba com tabela Access

Mensagempor ACG » Dom Nov 24, 2019 5: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"

Código: Selecionar todos

      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.
Avatar do usuário
ACG
Membro
Membro
 
Mensagens: 10
Registrado em: Sex Nov 10, 2017 3:49 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: Carregar Listview vba com tabela Access

Mensagempor rlm » Seg Nov 25, 2019 12:04 pm

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
Garça - SP / SCS - SP
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 443
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 31 times
Have thanks: 196 times


Voltar para Integração Excel & Access

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante