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

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:

 

 

 

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. ?

 

Hola Antoni;

-Te voy adjuntar una nueva macro y un video y me cuentas.

-Me queda la duda de porque en el "frm1" no va bien y en cambio en el "frm2" en cambio va bien entre " " claro.

Video:

https://youtu.be/WFYihbs6wOo

Un abrazo e gracias como siempre por tú atención.

MacroII.zip

Está mal el enlace, este está bien:

video