foco

[SuRpRiSe18]

Pabli muxas gracias x tu rapida respuesta... xo no termina de funcionar... la verdad q yo no me termine d exaplicar bien x lo q veo... si lo q kiero es que el foco vaya a otro campo... lo ace.. pero yo lo q kiero es q el foco vuelva al campo... t pongo el codigo

Private Sub campo2_exit(Cancel As Integer)
On Error GoTo error


If Me.campo2>= Me.campo1 Then
MsgBox "El importe del vehículo situado en fábrica después de descuentos debe ser inferior al precio del vehículo situado en fábrica antes de descuentos." & vbCrLf & vbCrLf & "Por favor revise los datos y corrija el error.", vbInformation + vbOKOnly, "Información"
campo2.SetFocus
Else
Exit Sub
End If

como ves lo que intento es que el foco se kede en el campo para q introduzca un valor correcto...

si lo q kiero es que el foco vaya a otro campo funciona a la perfección pero si lo que tiene que acer es kedarse en ese campo... no funciona...

m entiendes?¿ muxas gracias de todas formas
exit_FacturaNetaMBE_exit:
Exit Sub

error:
MsgBox "Ocurrió un error de grabación." & vbCrLf & vbCrLf & "Por favor vuelva a introducir el precio del vehículo situado en fábrica después de descuentos.", vbExclamation, "Aviso"
Resume exit_FacturaNetaMBE_exit