ComboBox Time Value/Command button click update

**mehmetcik** · 04-30-2015, 12:38 PM

Ok try this:


Public TN As Date, T1 As Date, TS As Date, changeflag As Boolean

Private Sub ComboBox1_Change()
If changeflag = True Then Exit Sub

ComboBox1.Value = Format(ComboBox1.Value, "hh:mm:ss")
T1 = CDate(ComboBox1.Value)
TN = CDate(Now)
Label3.Caption = TN + T1
Label3 = Format(Label3, "hh:mm:ss")

End Sub
Private Sub ComboBox2_Change()
If changeflag = True Then Exit Sub

ComboBox2.Value = Format(ComboBox2.Value, "hh:mm:ss")
T1 = CDate(ComboBox2.Value)
TN = CDate(Now)
Label4.Caption = TN + T1
Label4 = Format(Label4, "hh:mm:ss")

End Sub
Private Sub ComboBox3_Change()
If changeflag = True Then Exit Sub

ComboBox3.Value = Format(ComboBox3.Value, "hh:mm:ss")

T1 = CDate(ComboBox3.Value)
TN = CDate(Now)
Label5.Caption = TN + T1
Label5 = Format(Label5, "hh:mm:ss")

End Sub
Private Sub CommandButton1_Click()
changeflag = True

ComboBox3.Value = ComboBox2.Value
ComboBox2.Value = ComboBox1.Value
ComboBox1.Value = Format(Now, "hh:mm:ss")
changeflag = False
End Sub

**hwtcrl** · 04-30-2015, 02:40 PM

Originally Posted by mehmetcik

Ok try this:

Let me restate the purpose of each entity.

The command button should display time now() next to it (where it says <--Time Now) whenever the user clicks the button.

Each combobox should display the user selected time in minutes, if they choose 5 in the first, 7 in the second, 10 in the third it should stay 5,7,10 and not change.

The Time1-3 to the right of each combobox should display the computed time (time now value + combobox minute selection value) based upon the user combobox selections.

No matter when the user clicks the command button the time now updates, as well as the computed times to the right of each combobox.

The combobox values should never change unless the user changes them.