Erro no VB ao ler campo vazio do access

[Junior Ari]

tow tendo um erro ao retornar um campo em uma TextBox no vb...

o codigo:

txtIdade = rsRegistro("endereco")

só que que o campo tiver vazio ele dá o erro: <Invalid use of Null>

porém, o campo não é obrigatorio, então ele pode ficar vazio....

no desespero eu já tentei:

If (rsRegistro("endereco")) = Null Then
    Texto = ""
Else
    Texto = (rsRegistro("endereco"))
End If
txtEndereco = Texto

só que toda vez ele passa pra depois do Else, mesmo o campo sendo vazio...

uma solucao radical que tow pensando em usar é quando o usuario não digitar nada no campo,

gravar na tabela, no campo a palavra "Vazio" ou então " "..... mas aí é pra acabar.....

galera conto com voces, valeu...

Editado Março 15, 2008 por kuroi
Adicionar Tag CODE

[kuroi]

uma solucao radical que tow pensando em usar é quando o usuario não digitar nada no campo,

gravar na tabela, no campo a palavra "Vazio" ou então " "..... mas aí é pra acabar.....

se você gravar simplesmente aspas vazias, ele não deve dar esse erro. exemplo:

Insert Into Tabela(Campo1, Campo2) Values('valor', '')

no exemplo, o segundo campo esta sendo gravado em branco. mas pra testar se o campo é nulo, você pode fazer assim:

If IsNull(rsRegistro("endereco")) Then
    Texto = ""
Else
    Texto = (rsRegistro("endereco"))
End If
txtEndereco = Texto[/code]


ou, mais facil ainda, ele não vai dar erro mesmo q esteja nulo se você fizer simplesmente assim:
[code]txtEndereco = rsRegistro("endereco") & ""

[Junior Ari]

uma solucao radical que tow pensando em usar é quando o usuario não digitar nada no campo,

gravar na tabela, no campo a palavra "Vazio" ou então " "..... mas aí é pra acabar.....

se você gravar simplesmente aspas vazias, ele não deve dar esse erro. exemplo:

Insert Into Tabela(Campo1, Campo2) Values('valor', '')

no exemplo, o segundo campo esta sendo gravado em branco. mas pra testar se o campo é nulo, você pode fazer assim:

If IsNull(rsRegistro("endereco")) Then
    Texto = ""
Else
    Texto = (rsRegistro("endereco"))
End If
txtEndereco = Texto

ou, mais facil ainda, ele não vai dar erro mesmo q esteja nulo se você fizer simplesmente assim:

txtEndereco = rsRegistro("endereco") & ""

valeu Kuroi... funcionou!!!! :P :D

Que coisa não.. uma besteirinha tão simples mas que dá um trabalhao... é por isso que gosto de VB.. :lol:

[viictorsam]

salvou a pátria Uhummm

Meu Código

txtEndereco = rsRegistro("endereco")

resolvido assim simples 

txtEndereco = rsRegistro("endereco") & ""

 

valeu Galera ufaa

Editado Agosto 30, 2015 por viictorsam
agradecimentoss