How To Make An Access Form Time Picker

Here is a relatively easy way to select times for your time entry text boxes.

It’s a reusable form that allows you to pick a time from an Access form.

There are probably different ways to do this but here is the way I would do it.

On the form that has the time fields, use the click event of the textbox to open a form time picker as a dialog box. Here is a screen shot:

Here is the code:

Private Sub StartTime_Click()
    DoCmd.OpenForm "frmTimeSelector", acNormal, , , , acDialog, "Start Time"
End Sub

Private Sub EndTime_Click()
    DoCmd.OpenForm "frmTimeSelector", acNormal, , , , acDialog, "End Time"
End Sub

Here is the code for the Access Form Time Picker form (frmTimeSelector)

Option Compare Database

Dim m_WhichTime As String

Private Sub btnCancel_Click()
    DoCmd.Close
End Sub

Private Sub btnOK_Click()
    Dim strHour As String, strMinute As String, strTime As String
    Dim dteTime As Date
    
    strTime = Me.cboHour & ":" & Me.cboMinute & " " & Me.cboTimeOfDay
    dteTime = strTime
    
    Select Case m_WhichTime
        Case "StartTime"
            Forms("frmCases").Controls("StartTime") = dteTime
        Case "EndTime"
            Forms("frmCases").Controls("EndTime") = dteTime
    End Select
       
    Me.Dirty = False
    
    
    Me.Visible = False
    
    DoCmd.Close acForm, Me.Name
    
    
End Sub


Private Sub Form_Open(Cancel As Integer)
    If Len(Me.OpenArgs) Then
        
        'set the caption for the form based on how to form was opened
        Me.Caption = "Select the " & Me.OpenArgs & " for this case"
        
        
        'set the modular variable based on how to form was opened
        Select Case Me.OpenArgs
            Case "Start Time"
                m_WhichTime = "StartTime"
            Case "End Time"
                m_WhichTime = "EndTime"
        End Select
        
    End If
End Sub

I am setting a modular variable called “m_WhichTime” so I know what was clicked when the form opened until it’s closed and time to update the underlying form StartDate or EndDate.

This is the result:

(Video coming soon)

By the way, if you got or are getting value from the VBA information, please click the "Donate" button to give me a small token of your appreciation, thanks!