Estoy realizando una BD, que ya he comentado en otro hilo, en la cual quiero que exista la validación de los datos que se introduce en un formulario de determinados registros. Antes he visto las BD ejemplo que hay en este foro pero en ninguna he encontrado mas o menos lo que busco.
En las propiedades del campo he indicado el formato que debe tener y el valor por defecto, en mi caso son todos numéricos. Pues bien si meto alguna letra en el campo, lo que ocurre es que simplemente se guarda el valor por defecto. Lo que busco, es que al ocurrir eso se genere un cuadro de error indicando que no son correctos y que vuelva a introducir los datos.
He hecho una macro pero no se si es correcta o faltaría algo por incluir, estaría asignada al evento modificar del campo, imagino que es el adecuado pues se modificaría el valor por defecto asignado. El campo del ejemplo se llama "Precio" siendo su tipo entero pequeño.
La macro es la siguiente:
Código: Seleccionar todo
'********** FUNCION PARA VALIDAR DATOS **********
Sub ValidarDatos (Evento)
Dim iPrecio As Integer
Dim oForm As Object
oForm=Evento.Source.Model.Parent
'Obtenemos el valor del cuadro de texto
iPrecio = oForm.GetByName( "Precio" )
'Validamos que si es un número
If iPrecio= IsNumeric( iPrecio ) Then
MsgBox "El campo PRECIO debe ser numérico", 16, "ERROR EN CAMPO"
'Vaciamos el contenido del control
oForm.setText( "" )
'Enviamos el cursor al control
oForm.setFocus( Precio )
End If
Exit Sub