ayuda para que el SetFocus cambie de color.

Hola V.M.G.,

imaginemos que tienes un control de cuadro de texto, le llamaremos txtPrueba
y con su etiqueta asociada, lblPrueba.

Precisamente tienes un evento que se llama "Al recibir el enfoque", pues en
este evento pones,

me.lblPrueba.forecolor%5 'Color rojo

y en el evento "Al perder el enfoque", pues

me.lblPrueba.forecolor = 0 'Color negro.

Otra idea más sencilla para un control de cuadro de texto,
al control txtPrueba le pones un color de fondo, por ejemplo blanco, luego
se lo cambias a transparente, observaras que al entrar en dicho control el
fondo se pone blanco y al salir vuelve a tener el color del fondo del
formulario.

Una más que utilice un color común para los controles,

Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, False)
End Sub

Private Sub txtPrueba00_LostFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, True)
End Sub

Private Sub txtPrueba01_GotFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, False)
End Sub

Private Sub txtPrueba01_LostFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, True)
End Sub

Private Sub cbfCambiarColor(ByVal strNombreControl As String, Optional ByVal
blnRestaurar As Boolean = True)
Me("lbl" & Mid(strNombreControl, 4, Len(strNombreControl))).ForeColor IIf(blnRestaurar, 0, 255)
End Sub


Suerte.




Filosofía compartida: "regalamos conocimientos, no tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MS MVP - Access]

www.mcpegasus.com

"V.M.G." escribió en el mensaje
news:048f01c3963a$61bcf970$
Hola de nuevo, necesito ayuda para que un campo o control
cualquiera de mi formulario, campos, cuadro combinado,
etc, en el evento al recibir el enfoque que cambien de
color o bien que parpadeé para conseguir fijar mas la
atencion donde se encuetre el Setfocus en cada momento.

muchas gracias. un saludo

Hola VMG,
para hacer eso te tienes que poner en el campo que tu quieres del formulario
y te vas a herramientas-formato condicional, alli eliges, "al coger el
foco", le das el color de fondo y fuente, e voila, ya lo tienes resuelto.
Claro que esto lo tienes que hacer en todos los campos del documento, no se
si seleccionandolos todos y yendo a donde te he dicho funcionaria, de todas
formas, eso que te he dicho funciona porque lo he hecho en una BD.
Espero haberte ayudado,
Un saludo desde Palma,
Luis

"V.M.G." escribió en el mensaje
news:048f01c3963a$61bcf970$
Hola de nuevo, necesito ayuda para que un campo o control
cualquiera de mi formulario, campos, cuadro combinado,
etc, en el evento al recibir el enfoque que cambien de
color o bien que parpadeé para conseguir fijar mas la
atencion donde se encuetre el Setfocus en cada momento.

muchas gracias. un saludo

Hola V.M.G.,

imaginemos que tienes un control de cuadro de texto, le

llamaremos txtPrueba

y con su etiqueta asociada, lblPrueba.

Precisamente tienes un evento que se llama "Al recibir

el enfoque", pues en

este evento pones,

me.lblPrueba.forecolor%5 'Color rojo

y en el evento "Al perder el enfoque", pues

me.lblPrueba.forecolor = 0 'Color negro.

Otra idea más sencilla para un control de cuadro de

texto,

al control txtPrueba le pones un color de fondo, por

ejemplo blanco, luego

se lo cambias a transparente, observaras que al entrar

en dicho control el

fondo se pone blanco y al salir vuelve a tener el color

del fondo del

formulario.

Una más que utilice un color común para los controles,

Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, False)

End Sub

Private Sub txtPrueba00_LostFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, True)

End Sub

Private Sub txtPrueba01_GotFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, False)

End Sub

Private Sub txtPrueba01_LostFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, True)

End Sub

Private Sub cbfCambiarColor(ByVal strNombreControl As

String, Optional ByVal

blnRestaurar As Boolean = True)
Me("lbl" & Mid(strNombreControl, 4, Len

(strNombreControl))).ForeColor >IIf(blnRestaurar, 0, 255)

End Sub


Suerte.




Filosofía compartida: "regalamos conocimientos, no

tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MS MVP - Access]

www.mcpegasus.com

"V.M.G." escribió en el mensaje
news:048f01c3963a$61bcf970$
Hola de nuevo, necesito ayuda para que un campo o control
cualquiera de mi formulario, campos, cuadro combinado,
etc, en el evento al recibir el enfoque que cambien de
color o bien que parpadeé para conseguir fijar mas la
atencion donde se encuetre el Setfocus en cada momento.

muchas gracias. un saludo


.
Gracias por tu respuesta, esto me funciona muy bien

me.lblPrueba.forecolor%5 'Color rojo
y esto
me.lblPrueba.forecolor = 0 'Color negro

pero el otro codigo que me recomiendas lo he probado y no
me funciona.
Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor
(Screen.ActiveControl.EventProcPrefix, False)
End Sub

me dice que error de compilacion no se ha definido Sub o
Fuction. Acepta o Cancelar

:-|

¿¿Me imagino que está función la tendrás también???

Private Sub cbfCambiarColor(ByVal strNombreControl As String, Optional ByVal
blnRestaurar As Boolean = True)
Me("lbl" & Mid(strNombreControl, 4, Len(strNombreControl))).ForeColor
=IIf(blnRestaurar, 0, 255)
End Sub





Filosofía compartida: "regalamos conocimientos, no tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MS MVP - Access]

www.mcpegasus.com

escribió en el mensaje
news:04cb01c39671$cfbf56c0$

Hola V.M.G.,

imaginemos que tienes un control de cuadro de texto, le

llamaremos txtPrueba

y con su etiqueta asociada, lblPrueba.

Precisamente tienes un evento que se llama "Al recibir

el enfoque", pues en

este evento pones,

me.lblPrueba.forecolor%5 'Color rojo

y en el evento "Al perder el enfoque", pues

me.lblPrueba.forecolor = 0 'Color negro.

Otra idea más sencilla para un control de cuadro de

texto,

al control txtPrueba le pones un color de fondo, por

ejemplo blanco, luego

se lo cambias a transparente, observaras que al entrar

en dicho control el

fondo se pone blanco y al salir vuelve a tener el color

del fondo del

formulario.

Una más que utilice un color común para los controles,

Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, False)

End Sub

Private Sub txtPrueba00_LostFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, True)

End Sub

Private Sub txtPrueba01_GotFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, False)

End Sub

Private Sub txtPrueba01_LostFocus()
Call cbfCambiarColor

(Screen.ActiveControl.EventProcPrefix, True)

End Sub

Private Sub cbfCambiarColor(ByVal strNombreControl As

String, Optional ByVal

blnRestaurar As Boolean = True)
Me("lbl" & Mid(strNombreControl, 4, Len

(strNombreControl))).ForeColor >IIf(blnRestaurar, 0, 255)

End Sub


Suerte.




Filosofía compartida: "regalamos conocimientos, no

tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MS MVP - Access]

www.mcpegasus.com

"V.M.G." escribió en el mensaje
news:048f01c3963a$61bcf970$
Hola de nuevo, necesito ayuda para que un campo o control
cualquiera de mi formulario, campos, cuadro combinado,
etc, en el evento al recibir el enfoque que cambien de
color o bien que parpadeé para conseguir fijar mas la
atencion donde se encuetre el Setfocus en cada momento.

muchas gracias. un saludo


.
Gracias por tu respuesta, esto me funciona muy bien

me.lblPrueba.forecolor%5 'Color rojo
y esto
me.lblPrueba.forecolor = 0 'Color negro

pero el otro codigo que me recomiendas lo he probado y no
me funciona.
Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor
(Screen.ActiveControl.EventProcPrefix, False)
End Sub

me dice que error de compilacion no se ha definido Sub o
Fuction. Acepta o Cancelar