Notifications
Clear all

Dados com Valores 'Null'


rafaelp
Posts: 89
Registered
Topic starter
(@rafaelp)
Trusted Member
Entrou: 5 anos atrás

Boa tarde a todos.

Tenho uma tabela com vários campos onde alguns estão com os valores em branco. Até aí tudo bem porém, ao carregar alguma campo em uma ListView por exemplo, ocorre o erro abaixo:

Erro em tempo de execução '94':

Uso de 'Null' inválido.

Sei que há a possibilidade de eu validar através do 'IsNull' cada campo e tratar porém, minha tabela possui muitos campos. Há alguma outra solução menos trabalhosa para este problema sem precisar validar campo por campo? Pesquisei algumas soluções na internet porém não encontrei nada que me ajudasse.
Segue exemplo de uma parte do meu código responsável por alimentar minha ListView:

    While Not rs.EOF
        With lv.ListItems.Add(a)
        .Text = Format(rs!ID, "000000")
        .SubItems(1) = rs!razao_social
        .SubItems(2) = rs!nome_fantasia
        .SubItems(3) = rs!cnpj_cpf
        .SubItems(4) = rs!insc_estadual_rg
        .SubItems(5) = rs!bloqueado
        rs.MoveNext
        a = a + 1
        End With
    Wend
Responder
2 Respostas
Wagner Morel
Posts: 4037
Registered Registered
(@wagner-morel-vidal-nobre)
Illustrious Member
Entrou: 9 anos atrás

rafaelp,

Boa noite!

A maneira mais fácil como eu resolvi isso em uma aplicação minha foi atribuindo um valor padrão em cada campo da tabela (no meu caso no Access). Cada campo tem uma linha que se pode configurar o que se quer com valor padrão. Isso se faz ainda em tempo de design dos campos da tabela. Por exemplo: para os campos de texto ou memorandos da tabela eu usei "-" como valor padrão. Isso impede que ao se ler a BASE de Dados o VBA retorne esse erro.

Responder
rafaelp
Posts: 89
Registered
Topic starter
(@rafaelp)
Trusted Member
Entrou: 5 anos atrás

wagner,

Bom dia.

Muito obrigado pela resposta, atendeu perfeitamente!

Responder