Formato de fecha y Campo Numérico
Antes que nada Gracias por el apoyo.
Básicamente es la misma pregunta para los 2 caso, ¿cómo puedo personalizar el molesto mensaje que MSAcces muestra cuando introduces un valor incorrecto en un campo de fecha o numérico?
Gracias nuevamente.
Básicamente es la misma pregunta para los 2 caso, ¿cómo puedo personalizar el molesto mensaje que MSAcces muestra cuando introduces un valor incorrecto en un campo de fecha o numérico?
Gracias nuevamente.
1 respuesta
Respuesta de sofocles
1
El método para tratar los errores de forma personalizada es muy sencillo, simplemente debes situarte en el evento al ocurrir un error del formulario, y allí incluir estas lineas de código:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2113 Then ' ***** Valor Erroneo
MsgBox "El Valor tecleado para " & Screen.ActiveControl.Name & " no es Correcto.", 48, "TituloAplicación"
Response = DATA_ERRCONTINUE
SendKeys "{ESC}"
Exit Sub
End Sub
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2113 Then ' ***** Valor Erroneo
MsgBox "El Valor tecleado para " & Screen.ActiveControl.Name & " no es Correcto.", 48, "TituloAplicación"
Response = DATA_ERRCONTINUE
SendKeys "{ESC}"
Exit Sub
End Sub
