Foros del web, para los que viven de bits

mglopez · 12-ago-2005, 15:21

(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 · 12-ago-2005, 15:35

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

nos vemos.. espero te sirva..

mglopez · 14-ago-2005, 12:04

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

igual me sirve de esta manera. gracias

chaoo

RootK · 14-ago-2005, 19:48

Cita:

igual me hubiera gustado un mensaje en un msgbox.

Pues no es cosa del otro mundo friend..

sería simplemente algo así:

Cita:

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

Salu2

mglopez · 17-ago-2005, 20:23

gracias por todo.

12-ago-2005, 15:21	#1 (permalink)
mglopez Fecha de Ingreso: junio-2004 Mensajes: 10	Error de null mas claro (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

12-ago-2005, 15:35	#2 (permalink)
GeoAvila Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala Mensajes: 3.875	Text1.Text = IIf(IsNull(rs.Fields(0)),"Sin Valores",rs.Fields(0)) nos vemos.. espero te sirva.. __________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com

14-ago-2005, 19:48	#4 (permalink)
RootK Moderador Fecha de Ingreso: noviembre-2002 Ubicación: México D.F Mensajes: 7.552	Cita: igual me hubiera gustado un mensaje en un msgbox. Pues no es cosa del otro mundo friend.. sería simplemente algo así: Cita: If IsNull(rs("tu_campo")) Then Msgbox("Sin informacion") Else Text1.Text = rs("tu_campo") End If .... Salu2 __________________ Nadie roba nada ya que en la vida todo se paga . . .

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

14-ago-2005, 12:04	#3 (permalink)
mglopez Fecha de Ingreso: junio-2004 Mensajes: 10	Muchas gracias por tu ayuda, igual me hubiera gustado un mensaje en un msgbox. igual me sirve de esta manera. gracias chaoo

17-ago-2005, 20:23	#5 (permalink)
mglopez Fecha de Ingreso: junio-2004 Mensajes: 10	gracias por todo.