Error '-2147217887 (80040e21)'.

[edrec]

Hola a todos.
Estoy utilizando ADO con Access y me surge un problema con este tipo de error.
Cuando abro una nueva ficha, me sale este error si dejo algún dato en blanco.
Cómo puedo hacer para que me salga p.e. un MsgBox indicándome que el campo no puede tener longitud cero y no me salga este mensaje de error?
un saludo y gracias.
Edrec

[csdk_8346]

capturando el error checa el control de errores en vb

[Insomnia]

Hola

No se exactamente cuando se te genera el error, pero por ejemplo, si antes de guardar, tienes que poner en ese botón un if para ver si la caja de texto está rellenada. P.e. en el evento click del botón guardar

Código:

if text1.text = "" then
   Msgbox "Tienes que introducir el dato"
else
   Realizas la inserción de datos
end if

Este es un ejemplo muy sencillo, pero puedes comprobar todas las cajas de texto que desees.

Espero que esto sea lo que buscabas.

--Saludos--

[Taribo007]

Si trabajs con access (VBA), es mejor uasr el evento before update del cuadro de texto, te permite cancelar la salida del control si no se cumplen las consiciones deseadas.

Private Sub NombreControl_BeforeUpdate(Cancel As Integer)
If Nz(Me.NombreControl.Value, "") = "" Then
Cancel = True
End If
End Sub

En lugar de la propiedad text, en VBA es mejor uasr la funcion value, ya que esta no te solicita que el control tenga el foco (aunque en este caso lo tendra, te servira para otros casos). La funcion nz te permite controlar los campos nulos y los vacios a la vez.

Un saludo