Finalizar una sentencia if
Publicado por Salvador (94 intervenciones) el 22/04/2015 18:10:49
He colocado un control al perder enfoque de un control:
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
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
y permaneciera en foco en el mismo control hasta que se cumplimente.
Gracias
Valora esta pregunta
0