Access - TRUCO 1. Cambiar Fecha con cursor

   
Vista:

TRUCO 1. Cambiar Fecha con cursor

Publicado por Jose Luis (136 intervenciones) el 10/03/2010 17:27:16
Saludos, os muestro esto que hice el otro día y que quedo chulo, buscaba una manera rapida de cambiar la fecha en un cuadro de edicion sin tener que teclearla (esto es util cuando la fecha a introducir no es muy lejana al dia de hoy, por ejemplo 1 o 2 semanas.) no obstante tambien se puede meter como siempre. Solo necesitamos un cuadro de edicion 'Fecha' (Formateado a Fecha corta) y una etiqueta 'MiniAyuda'.

Option Compare Database
Public Tecla As Integer
--------------------------------------------------------------
Private Sub Fecha_Exit(Cancel As Integer)
If Tecla > 13 Then 'Solo acepta INTRO para salir
Cancel = True 'Anula la salida
Fecha.SetFocus
Fecha.SelStart = 0
Fecha.SelLength = 10
Else
MiniAyuda.Caption = " "
End If
Tecla = 0
End Sub
--------------------------------------------------------------
Private Sub Fecha_GotFocus()
MiniAyuda.Caption = "Pulse las teclas de dirección [^>/v<] o [+/-] para cambiar de fecha."
End Sub
--------------------------------------------------------------
Private Sub Fecha_KeyDown(KeyCode As Integer, Shift As Integer)
Tecla = KeyCode
If KeyCode = 37 Or KeyCode = 40 Or KeyCode = 109 Then 'Flecha izquierda, abajo y -
If IsNull(Fecha) Or Fecha = "" Then 'Si la cadena esta vacia la 1ª tecla pone el dia de hoy
Fecha = Date
Else
Fecha = DateAdd("d", -1, Fecha) 'Resta un dia
End If
End If

If KeyCode = 39 Or KeyCode = 38 Or KeyCode = 107 Then 'Flecha derecha, arriba y +
If IsNull(Fecha) Or Fecha = "" Then 'Si la cadena esta vacia la 1ª tecla pone el dia de hoy
Fecha = Date
Else
Fecha = DateAdd("d", 1, Fecha) 'Suma un dia
End If
End If
MiniAyuda.Caption = Format(Fecha, "Long Date") 'En la etiqueta muestra la fecha en formato largo
End Sub

Si os gusta responder.
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
Imágen de perfil de Enrique Ramírez

RE:TRUCO 1. Cambiar Fecha con cursor

Publicado por Enrique Ramírez (617 intervenciones) el 10/03/2010 18:01:30
100% aceptable, por mi mente nunca había pasado el hacer algo similar ( je je je).
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