[VBA] fire event after change in datetimepicker

Pagina: 1
Acties:

Onderwerpen


Acties:
  • 0 Henk 'm!

  • BSeB
  • Registratie: Juni 2001
  • Laatst online: 25-05 14:06
Wellicht kan iemand me hier helpen met hoe ik een event kan maken die start op het moment dat een datetimepicker van waarde veranderd?

De datetimepicker word in de form dynamisch gemaakt:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
' Definities DateTime Picker
Dim DateTime_Start As Control
Dim DateTime_End As Control

' Snippet
' Content van "Select Time Frame"
Set DateTime_Start = Frame_Time.Object.Add("MSComCtl2.DTPicker.2", "DateTime_Start", True)
With DateTime_Start
    .Height = 20.25
    .Width = 120
    .Top = 35
    .Left = 15
    .Enabled = False
    .Visible = False
End With

Set DateTime_End = Frame_Time.Object.Add("MSComCtl2.DTPicker.2", "DateTime_End", True)
With DateTime_End
    .Height = 20.25
    .Width = 120
    .Top = 85
    .Left = 15
    .Enabled = False
    .Visible = False
End With
' Snippet


Als hierin dus de waarde wijzigd wil ik dat er een actie uitgevoerd wordt. Momenteel zouden we dit kunnen definieren als een msgbox!

Acties:
  • 0 Henk 'm!

  • Tukk
  • Registratie: Januari 2002
  • Laatst online: 08-07 13:03

Tukk

De α-man met het ẞ-brein

Heb je google al geprobeerd?

http://www.google.nl/sear...pbx=1&fp=e1b04bd5f6e84933




Als je DateTime_Start niet als Control dimensioneerd, maar als date-time_picke-object, dan zie je toch vrij vlot welke events er mogelijk zijn, of niet?

Q: How many geeks does it take to ruin a joke? A: You mean nerd, not geek. And not joke, but riddle. Proceed.


Acties:
  • 0 Henk 'm!

  • BSeB
  • Registratie: Juni 2001
  • Laatst online: 25-05 14:06
In access zou dit kloppen, maar ik gebruik de control in excel.
Hier werkt dit niet, mits je die module waarschijnlijk importeerd!

Acties:
  • 0 Henk 'm!

  • BSeB
  • Registratie: Juni 2001
  • Laatst online: 25-05 14:06
Ik heb de fout gevonden:

code:
1
2
3
' Definities DateTime Picker
Private WithEvents DateTime_Start As MSComCtl2.DTPicker
Private WithEvents DateTime_End As MSComCtl2.DTPicker


Dit werkt wel.