Access - Error valor Null en campo Required

 
Vista:
sin imagen de perfil
Val: 10
Ha disminuido su posición en 5 puestos en Access (en relación al último mes)
Gráfica de Access

Error valor Null en campo Required

Publicado por Cesar (12 intervenciones) el 25/08/2020 17:41:04
Hola, tengo el siguiente problema y se los ejemplifico en forma sencilla.

Tengo una tabla en donde uno de sus campos tiene la opción de Requerido = Sí.

Al momento de ingresar mediante un formulario un nuevo registro, si el valor es Null en dicho campo me aparece un cartel de alerta que no es muy amigable ya que habla de campos y valores Null.

Desearia generar cartel mas "amigable" para el usuario y me direccione a dicho campo para ingresar el dato faltante.

Me podrian orientar como es posible realizar esto ya que intente varias formas y sigo sin poder resolverlo.

Y desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error valor Null en campo Required

Publicado por Anonimo (3316 intervenciones) el 25/08/2020 22:43:31
Si hubiera pistas de que métodos se han aplicado, se evitaría que alguien recomendase uno cualquiera de los que fueron descartados.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 10
Ha disminuido su posición en 5 puestos en Access (en relación al último mes)
Gráfica de Access

Error valor Null en campo Required

Publicado por Cesar (12 intervenciones) el 26/08/2020 00:10:38
Si, ya te los paso:

Primer intento:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub NombreCliente_AfterUpdate()
 
 
If NombreCliente = Null Then
   MsgBox "Ingrese un Nombre de Cliente"
   NombreCliente.SetFocus
   Else
   Form![Prueba POS12].SetFocus
   DoCmd.GoToControl ("Texto6")
   End If
 
End Sub

Segundo intento:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub NombreCliente_AfterUpdate()
 
 
If IsNull(NombreCliente) Then
   MsgBox "Ingrese un Nombre de Cliente"
   NombreCliente.SetFocus
   Else
   Form![Prueba POS12].SetFocus
   DoCmd.GoToControl ("Texto6")
   End If
 
End Sub

Tercer intento:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub NombreCliente_AfterUpdate()
 
 
If NombreCliente = "" Then
   MsgBox "Ingrese un Nombre de Cliente"
   NombreCliente.SetFocus
   Else
   Form![Prueba POS12].SetFocus
   DoCmd.GoToControl ("Texto6")
   End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar