Error de null mas claro

[mglopez]

(Este seria el codigo para mostrar la informacion de una tabla) el error seria que se cae a null si no hay datos en la tabla y yo quiero que me muestre un mensaje de no existir datos.


Call conexion(cnn1)
'Text1.Enabled = True
Label1 = cod
rs.Open "select entorno from Describir_plan_general where Código_descripción like '" & Trim(Label1) & "%'", cnn1
Text1.Text = rs.Fields(0)
rs.Close

Text1.Locked = True

[GeoAvila]

Text1.Text = IIf(IsNull(rs.Fields(0)),"Sin Valores",rs.Fields(0))

nos vemos.. espero te sirva..

[mglopez]

Muchas gracias por tu ayuda, igual me hubiera gustado un mensaje en un msgbox.

igual me sirve de esta manera. gracias

chaoo

[RootK]

igual me hubiera gustado un mensaje en un msgbox.

Pues no es cosa del otro mundo friend..

sería simplemente algo así:

If IsNull(rs("tu_campo")) Then
Msgbox("Sin informacion")
Else
Text1.Text = rs("tu_campo")
End If
....

Salu2

[mglopez]

gracias por todo.