Access - TRUCO 1. Cambiar Fecha con cursor

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.

100% aceptable, por mi mente nunca había pasado el hacer algo similar ( je je je).