Saltar al contenido

Consulta no respeta campos vacíos.


Recommended Posts

publicado

Buenos días a todos;

-Llevo un buen rato a vueltas con un error y no consigo saber donde me estoy equivocando.

Me explico un poco:

Tengo un formulario creado con una serie de textbox y unos botones de desplazamiento para mostrar los registros.

Para mostrar los registros hago una consulta a una BD de Access y por medio de la consulta me los devuelve a los textbox.

¿Lo que no sé es porque no me respeta los campos vacíos?.

Adjunto macro de ejemplo.

Saludos gracias anticipadas .

Consulta.zip

publicado

El problema de usarOn Error Resume Next es que no te enteras del error, ya que simplemente se lo salta.

Este es el error real:

 

image.png.1008ffda462cd24ba27bb0aa59981259.png

 

 

En la medida de lo posible, debes evitar que queden a Null los datos de la base de datos.

Para arreglar el tema debes hacer 2 cosas, borrar los textbox antes de llenarlos y condicionar todos los datos que pueden tener el valor Null.

Al inicio del procedimiento NewDoc:

Dim x As Long
For x = 0 To 12: Controls("TextBox" & x) = "": Next

 

y luego por cada dato susceptible de contener Null, proceder así:

If Not IsNull(rs.Fields("tHasta")) Then TextBox7.Text = rs.Fields("tHasta")


Y por último, solo comentar que los datos de la hoja del archivo Excel no se corresponden con los de la base de datos. ?

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.