Access - Finalizar una sentencia if

   
Vista:
Imágen de perfil de Salvador

Finalizar una sentencia if

Publicado por Salvador (65 intervenciones) el 22/04/2015 18:10:49
He colocado un control al perder enfoque de un control:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Lista232_LostFocus()
Me.Imagen306.Visible = False
If IsNull(Me.id_tiponota) Then
Me.ImagenVerde.Visible = False
Me.ImagenRojo.Visible = True
MsgBox "Debe seleccionar el Tipo de trabajo", vbOKOnly, "Dato requerido"
Else
Me.ImagenVerde.Visible = True
Me.ImagenRojo.Visible = False
End If
End Sub
Todo funciona pero despues del MsgBox al aceptar cambia al siguiente campo, y querría que se detuviera
y permaneciera en foco en el mismo control hasta que se cumplimente.

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

Finalizar una sentencia if

Publicado por jose (741 intervenciones) el 23/04/2015 11:56:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Lista232_LostFocus()
 
Me.Imagen306.Visible = False
 
If IsNull(Me.id_tiponota) Then
 
Me.ImagenVerde.Visible = False
 
Me.ImagenRojo.Visible = True
 
MsgBox "Debe seleccionar el Tipo de trabajo", vbOKOnly, "Dato requerido"
Lista232.setfocus
 
 
Else
 
Me.ImagenVerde.Visible = True
 
Me.ImagenRojo.Visible = False
 
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