Activex value kopieren naar een txtveld value

[Verwijderd]

Ik heb een activex component van een soort tijdbalk, Daarin kun je een datum selecteren. Nou wil ik dat ie bij Lost_focus de value (staat als general date) gekopieerd wordt naar een tekstbox.

Dit wil me maar niet lukken ik heb iets geprobeerd met:

code:

Private Sub Datum1_LostFocus()
Me.txtTijd.Value = Now
End Sub

Private Sub Datum1_LostFocus()
Me.txtTijd.Value = me.datum1.value
End Sub

Verder ben ik een leek op dit gebied

[Verwijderd]

Heb je je procedure wel als Event gezet?
(Loop die zeker weten die code door?)

[Verwijderd]

Ja..dat wel

bij de 2e optie zegt ie:

run time error '2101'
The setting you entered isn't valid for this property.

debug of end

[Verwijderd]

Weet je zeker dat dat componentje als value een string terug geeft ?

[Verwijderd]

Nee, maar bij properties staat er bij value wel gewoon een general date... Het is overigens geen standaard MS activex component... Maar een time control van Aspentech.
Ik heb nu de calender activexcontrol gebruikt en die werkt wel stom.. maar wie is wat onhandig.

[Verwijderd]

Heet het component datum1? Wat is de waarde als je zegt msgbox datum1.value?
En heeft die nog wel een waarde na het verliezen van de focus? Anders is het misschien van belang deze voor het verliezen van de focus in een variabelen op te slaan.

[Verwijderd]

het is trouwens met access97
En nee ik krijg dezelfde melding als ik msgbox gebruik... in properties (van de activex) staat er wel value met: 6-2-03 12:35:56

[Verwijderd]

probeer eens txttijd.text = datum1.value in plaatst van txttijd.value= datum1.value