Combobox in formulier

[harolda1980]

Via een combo box selecteer ik de tijd die ik nodig heb. Maar dan laat hij daarna in de combobox geen tijd zien.

Hoe krijg ik als ik 06:00 selecteer geen 0,25 maar 06;00 in de combobox als value

 

[snb]

Private Sub Combobox1_change()
  Combobox1.value=format(Combobox1.value,"hh:mm")
End Sub

 

[harolda1980]

bedankt die is helemaal duidelijk en het werkt

Nu heb ik een combobox1 waar ik de tijd 06:00 selecteer.
In combobox 2 zou dan het advies moeten komen van 07:00 automatisch met de mogelijkheid om via de keuze lijst als nog anders te selecteren.

Combobox2 = Combobox1 + 1uur

Hoe maak ik die optelling?

 

[Hoornvan]

Zou dit wat zijn?

Combobox2 = Combobox1.Value + 1

 

[harolda1980]

l1bv.Value = l1av.Value + "1"

deze geeft dus een fout melding.. maar ook wanneer ik er geen haakjes omheen zet!

 

[snb]

Private Sub Combobox1_change()
  Combobox1.value=format(dateadd("h",1,Combobox1.value),"hh:mm")
End Sub