Access - Error Código Formulario Access

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

Error Código Formulario Access

Publicado por Manuel (1 intervención) el 18/10/2018 23:50:22
Hola tengo el siguiente Código en un formulario de Access:

1
2
3
4
5
6
7
8
9
Private Sub Asunto_LostFocus()
 If Len(Me.Asunto) < 5 Or IsNull(Me.Asunto) Then
        MsgBox "Por favor...Verifique los datos ingresados en el Asunto!!!", vbCritical, "ATENCIÓN"
         Me.Asunto.SetFocus
        Else:
 
            Me.Anotacion.SetFocus
     End If
End Sub

El caso es que me enseña en msgbox pero nunca el foco queda en el campo Asunto, siempre se pasa al campo [Anotacion

Que puede estar mal?

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
Imágen de perfil de Juan
Val: 414
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error Código Formulario Access

Publicado por Juan (150 intervenciones) el 20/10/2018 11:03:32
Hola Manuel,

Simplemente envia el SetFocus a otro cuadro o botón:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Asunto_LostFocus()
 
 If Len(Me.Asunto) < 5 Or IsNull(Me.Asunto) Then
 
        MsgBox "Por favor...Verifique los datos ingresados en el Asunto!!!", vbCritical, "ATENCIÓN"
        Me.Id.SetFocus
        Me.Asunto.SetFocus
 
        Else:
 
        Me.Anotacion.SetFocus
 
     End If
 
 
End Sub

Saludos,
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
Imágen de perfil de Pancho
Val: 467
Plata
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Error Código Formulario Access

Publicado por Pancho (212 intervenciones) el 27/10/2018 02:18:53
Otra alternativa

1
2
3
4
5
6
Private Sub Asunto_BeforeUpdate(Cancel As Integer)
    If Len(Me.Asunto) < 5 Or IsNull(Me.Asunto) Then
        MsgBox "Por favor...Verifique los datos ingresados en el Asunto!!!", vbCritical, "ATENCIÓN"
        Cancel = True
    End If
End Sub

Saludos
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