Campos Nulos Na Base De Dados

[Duduh_Capixaba]

Olá pessoal, seguinte...

Estou começando em VB e já me deparei com um problema: campos nulos. Estou trabalhando com uma base de dados GDB gerenciada pelo Firebird. Tenho um programa simples que lê o código do cliente e mostra seu nome e telefone. O problema acontece quando tento listar um cliente que tem o campo telefone (ou qualquer outro que eu venha a acrescer depois) nulo. O VB me retorna a seguinte mensagem: "Run-time error '94': Invalid use of Null".

Pois bem, eu consegui contornar a situação da seguinte forma:

If IsNull(TbCli!FONE1) Then

txtNome.Text = TbCli!NOME

txtTelefone.Text = ""

Else

txtNome.Text = TbCli!NOME

txtTelefone.Text = TbCli!FONE1

End If

A minha preocupação é se eu tiver um Form exibindo VÁRIOS campos nulos. Eu vou ter que fazer condições IF para cada TextBox??? Acho que deve ter uma outra forma, tipo, construindo uma FUNCTION ou algo assim.

[JoséCarlos_Plima]

Coloque em cada assinalamento de variável um & " "

Por exemplo: txtNome.Text = TbCli!NOME & " "

OK, eu sei que isto acrescenta um espaço em branco ao final de um campo que não contenha null.

Se isto for um problema para você troque o código para: txtNome.Text = mid(TbCli!NOME & " ", 1, Tamanho)

Espero ter ajudado. :D

[kuroi]

não precisa de espaco, pode por aspas em branco. tipo assim:

txtNome.Text = TbCli!NOME & ""

[Duduh_Capixaba]

Great!!! :) Cara, é por isso que eu amo este forum, hehe... Funcionou galera, brigadão a todos!

ah sim, e obrigado a você também Graymalkin (resposta logo abaixo). esse código também funcionou!

Editado Setembro 24, 2007 por Duduh_Capixaba

[Graymalkin]

Você também pode fazer assim:

txtNome.Text = Iif(IsNull(TbCli!NOME), "", TbCli!NOME)

Ou seja, se for nulo, retorna "", caso contrário retorna o valor do campo.

Abraços,

Graymalkin