To Change an entered date, click the box to change, then use the DatePicker
This part goes at the top of the Form Code, before all subs
Dim FromSelected As Boolean
Dim ToSelected As Boolean
Private Sub TextBox1_Enter()
'As From TextBox
FromSelected = True
ToSelected = False
End Sub
Private Sub TextBox2_Enter()
'As To TextBox
FromSelected = False
ToSelected = True
End Sub
Sub Goes_In_Your_DatePicker_Code()
If TextBox1 = "" Then
TextBox1 = SelectedDateIn
ElseIf TextBox2 = "" Then
TextBox2 = SelectedDateIn
ElseIf FromSelected Then
TextBox1 = SelectedDateIn
ElseIf ToSelected Then
TextBox2 = SelectedDateIn
Else: MsgBox "Both Dates filled in. First select the Date you want to change... Etc."
End If
FromSelected = False
ToSelected = False
End Sub