Inicio > Visual Basic > charli2002 > HOLA , SERIAS TAN AMABLE

HOLA , SERIAS TAN AMABLE

Experto:
Usuario:
Fecha: 22/11/2009
Valoración: (3,00 sobre 5) Categoría: Visual Basic
22/11/2009
rokot, usuario preguntando en Visual Basic
Usuario

CUANDO EL CAMPO ESTA VACIO ME DA UN ERROR EN TIEMPO DE EJECUCION EN ESTE METODO:
Dim VarBD As Database
Set VarBD = DBEngine.Workspaces(0).OpenDatabase("c:\windows\escritorio\db2.mdb")
Dim RsetTabla As Recordset
Set RsetTabla = VarBD.OpenRecordset("MiTabla", dbOpenDynaset)
With RsetTabla
TextBox1.TEXT = .Fields("DNI")
END WITH

ME PODRIAS DECIR EL CODIGO PARA EL TRATAMIENTO DE ESTE ERROR ?

SIN MAS GRACIAS.
22/11/2009
rokot, experto respondiendo en Visual Basic
Experto
Te cuento sin haberlo probado por codigo, pero me decanto por lo siguiente:

El campo de la base de datos debe tener un valor Null, por eso el error. Si esto es asi, deberia funcionar de la siguiente manera (estoy suponiendo que si el campo tiene valor, quieres mostrarlo, y si no mostrar el campo en blanco):

If isNull(rsettabla.fields(“DNI”).value) then
Textbox1.text=””
Elseif not isNull(rsettabla.fields(“DNI”).value) then
Textbox1.text= rsettabla.fields(“DNI”).value
End if

Siempre que supongas que el campo puede estar en blanco te sugiero esta comprobación.

Espero te funcione, un saludo.
22/11/2009
rokot, usuario preguntando en Visual Basic
Usuario
Bien. Una respuesta aceptable.
Enlaces patrocinados