Palabras clave: fecha, desplegar, datapicker, selector
Autor: Missinglinq
Extraído de: Access Forums (https://www.accessforums.net/showthread.php?t=74723%5B/url)
Pregunta
¿Cómo puedo desplegar automáticamente el selector de fecha al entrar en un cuadro de texto?
Respuesta
En el evento al recibir enfoque (GotFocus) desplegamos el selector. En el evento Al cambiar, mandamos el foco a otro control
Private Sub DateField_GotFocus()
DoCmd.RunCommand acCmdShowDatePicker
End Sub
Private Sub DateField_Change()
Me.AnotherControl.SetFocus
End Sub
Private Sub DateField_AfterUpdate()
'AfterUpdate code goes here
End Sub
Si el cuadro de texto fuera el primer control del formulario podríamos simular el proceso con el evento Timer
Private Sub Form_Load()
Me.TimerInterval = 1
End Sub
Private Sub Form_Timer()
Me.TimerInterval = 0
Me.DateField.SetFocus
DoCmd.RunCommand acCmdShowDatePicker
End Sub