DTPicker eigenschappen

[Sabphi]

Hallo, ik heb een DTPicker in mijn userform geplaatst maar hij opent altijd met de datum van creatie. Onderaan kan ik klikken op vandaag en verkrijg ik deze ook.

Als ik bij eigenschappen kijk vind ik onder Value 27/10/2012. Kan ik hier de datum van de dag verkrijgen via een omweg of?

De code die ik gebruik zie je hierna:

Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
'Datumpicker
Me.DTPicker1.Value = Date
End Sub

Thanks,

 

[HSV]

Zonder bestandje wordt het gissen waar wat staat.
Maar waarschijnlijk bij "Userform Initialize()" of "Userform Activate"
Calender1.value = date

 

[Sabphi]

Weet dat ik een hobbyman ben en ik niet veel ken van VBA. Alleen nog wat van in de tijd met Commodore 128 en eigenwijsheid.

Bekijk bijlage 168769

 

[Sabphi]

Pogingen

Hierbij poog ik een bestandje te koppelen maar dit blijkt niet te lukken.

Bekijk bijlage Huishoudboekhouding.xlsm

 

[HSV]

In Userform "Frmgegevens"

Private Sub UserForm_Initialize()
 DTPicker1.Value = Date
End Sub

 

[Sabphi]

Bedankt, het werkt nu op de dag zelf.