Office: Kalender oder DateAndTimePicker

Hi all,

mal ne Frage, ich hab im Formular einen Kalender eingefügt und dieser zeigt mir immer aals Vorauswahl den Tag der erstellung an. Ich hätte aber gerne das beim Aufrufen der aktuelle Tag der Systemzeit voreingestellt ist.

Kann mir jemand helfen?

Gruß
Stuppel

 

Hallo,

es gibt möglicherweise eine Reihe von Kalendersteuerelementen, zu denen ich nichts sagen kann, da sie mir unbekannt sind.

Falls Du aber das Kalendersteuerobjekt MSCAL von Microsoft meinst, ist die Sache relativ einfach:
Falls Du dem Control im Formular den Namen "Kalender" gegeben hast, kann durch Zuweisen eines Wertes an die "Value"-Eigenschaft das Datum eingestellt werden, zB:
Me!Kalender.Value=Date()
stellt das heutige Datum ein, das dann auch angezeigt wird - die Eigenschaft "Steuerelementinhalt" (engl.: ControlSource) musst Du dann aber leer lassen, sonst erhältst Du bei vorgenannter Zuweisung eine Fehlermeldung. Die Vorbesetzung des Controls kannst Du zB. im Open-Event des Formulars vornehmen:

Code:

Private Sub Form_Open(Cancel As Integer)
  '....
  Me!Kalender.Value=Date()
  '....
End Sub

 

Leider hab ich den "DTPicker" oder den "Calendar Contoll 11.0"

 

Hallo,

der DTPicker von Microsoft funktioniert fast so wie der MSCAL, nur dass er offenbar für EXCEL optimiert ist (siehe Eigenschaft "LinkedCell"), während MSCAL mit Access ausgeliefert wird.

Der MSCAL befindet sich für Office2003 vermutlich in:
C:\Programme\Microsoft Office\Office11\Mscal.ocx
(oder eventuell auch in:
C:\Windows\System32\Mscal.ocx)
Sieht man im Menü des VBA-Editors unter Extras > Verweise... nach, findet man in der Liste der verfügbaren Verweise den Eintrag:
Microsoft Calendar Control 11.0
Wenn Du also diesen Eintrag vorfindest, dann hast Du genau diesen MSCAL aktiviert.

Das Datum beider Calendar-Controls (DTPicker bzw. MSCAL) ist mit der Value-Eigenschaft einstellbar (bzw. abrufbar), so wie von mir im letzten Posting beschrieben (nur dass der DTPicker offenbar keine ControlSource-Eigenschaft kennt, dafür aber die LinkedCell-Eigenschaft).