Buscar en este blog

martes, 30 de agosto de 2011

Cronómetro y etiquetas intermitentes


Un pequeño ejemplo de cómo crear un cronómetro en un formulario y que al llegar a "0" realice algo, cerrar el formulario, la aplicación....
También he añadido como manejar una etiqueta intermitente o que cambie de color.  ¿Las utilidades?, las que cada uno considere, pero son muchas... sobre todo lo del cronómetro.

sábado, 20 de agosto de 2011

Al entrar en un control situar el cursor en el lugar que queramos

     Cuando entramos en un control, a veces, queremos que el cursor se sitúe en un determinada posición: al principio, al final, en el 3º o 5º carácter o que seleccione todo el campo.
        Access en el menú opciones, nos da la oportunidad de decirle cómo queremos que se comporte (al inicio, al final o seleccionar todo el campo). Pero eso es para toda la aplicación y podemos querer cambiarlo para un determinado control.
         En el evento "al entrar" del control en cuestión, pondremos:

Para ponerse al inicio:                   SetOption "Behavior Entering Field", 1
Para ponerse al inicio:                   SetOption "Behavior Entering Field", 2
Para seleccionar todo el campo:  SetOption "Behavior Entering Field", 0

        Esto sirve para cuándo tabulamos, no cuándo hacemos click con el ratón en el campo.
Para eso tenemos:
Me.nombrecontrol.SelStart = 0

        A partir de aquí, podemos ir cambiando el 0 por el número de carácteres que queremos que se situe el cursor.  Si en vez de 0 ponemos 3 el cursor quedara así:

 kep|asada

         Y esto lo hará tanto al tabular como al hacer click con el ratón.
Si lo que queremos es que seleccione todo el control (ya que no tenemos que saber su longitud) añadiriamos otra línea a la anterior:


Me.nombrecontrol.SelStart = 0
Me.nombrecontrol.SelLength = Len (Me.nombrecontrol)