A musí to byť nutne MSComCtl2.DTPicker ? Ten totiž niekedy robí "psie kusy".
Dá sa to totiž i cez knižnicu
MSCAL.OCX - Microsoft Calendar Control.
Príklad bude fungovať, ak je Office nainštalovaný i s Accessom, dá sa však stiahnuť aj z netu (pozor rôzny pre rôzne verzie Office).
Ako použiť:
ALT+F11 - kód v
UserForm1 a Module1.
Userform:
Code:
Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Module1
Code:
Sub ShowIt()
UserForm1.Show
End Sub
Palo