Ola Pessoal Estou com um probleminha ao acessar um banco
" form1.text1.text = tabela("coluna") "
" form1.text2.text = tabela("coluna2")
até ai tudo bem ele retorna o valor, mas quando o registro esta em branco (nullo) ele retorna esse erro "Run timer Error '94' Invalid use of null ", mas eu gostaria que aparece a caixa com valor nulo
Podem me ajudar ?
Valeu !!!
Copyright © 2024 QUIZLS.COM - All rights reserved.
Answers & Comments
Verified answer
Bom, tá muito vago, mas partindo-se do pressuposto que a linguagem que você está utilizando é o VB 6:
'Função que converte valores nulos para uma String definida pelo usuário
Private Function AceitaNulo(ByVal text as String, optional NullValueString as String = "NULO") as String
AceitaNulo = Iif(isNull(text),NullValueString, CString(text))
End Function
....
With form1
'primeiro utilizando o parâmetro opcional, se o campo for nulo, aparecerá "NULO", na textbox.
.text1.text = AceitaNulo(tabela("coluna"))
'Agora, redefinindo o parâmetro opcional para qualquer valor desejado:
.text2.text = AceitaNulo(tabela("coluna2"), "O que está digitado entre estas aspas será o que irá aparecer quando o campo for nulo!")
End With
Ou simplesmente (em VB6):
If IsNull(Form1.Text1.Text) Then
Form1.Text1.Text = "Nulo"
Else
Form1.Text1.Text = Tabela("Coluna1")
End If
if tabela("coluna") = null
form1.text1.text = "NULL"
else
form1.text1.text = tabela("coluna") "