online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon spaceman vom 29.01.2020, 10:05 Options

"Microsoft Date and Time Picker Control"

Hallo an alle,

habe das "Microsoft Date and Time Picker Control" in ein Formular einebaut. (Access 2000)
ABER am nächsten Tag zeigt es beim Öffnen des Formulars immer noch das Datum vom Vortag!
Habe nun im Code "Beim Öffnen" versucht mit:

Me!Datum = Now()

dem Feld das aktuelle Datum zuzuweisen.

Funktioniert aber nicht, löst eine Fehlermeldung aus.
Wie bekomme ich nun das aktuelle Datum in das Feld???

Vielen Dank !!


Antwort schreiben

Antwort 1 von son_quatsch vom 29.01.2020, 11:21 Options

Du musst nach der WinAPI-Funktion "getSystemTime()" googlen und die entsprechend einbinden, denn mit dem internen VBA-Datumsdatentyp kommt das Steuerelement selbstverständlich nicht klar.

Antwort 2 von Coolpix vom 29.01.2020, 12:22 Options

hallo spaceman,

versuch's mal mit


me!Datum.value=Vba.Date


Greetings ;-))

Antwort 3 von spaceman vom 29.01.2020, 13:04 Options

Danke erst mal.

Habe mal die Version von Coolpix versucht aber da kriege ich die gleiche Fehlermeldung:

"Laufzeitfehler 2763

DTPicker hat den folgenden Fehler gemeldet: Fehler beim Aufrufen des Steuerelements zur Datums- und Zeitauswahl von Microsoft"

Mit dem Tipp von son quatsch komm ich nicht so richtig klar.
Wie und Wo einbinden?

Antwort 4 von son_quatsch vom 29.01.2020, 13:42 Options

So, einmal kurz nachgeguckt; das Steuerelement verfügt direkt über die Eigenschaften .Day, .Month, .Year usw. Die müssten nun nur alle einzeln bedient werden:

  DTPicker1.Month = 1
  DTPicker1.Day = 4
  DTPicker1.Year = 2008

Antwort 5 von spaceman vom 29.01.2020, 19:11 Options

Vielen Dank erst mal.

Hab es anders hingekriegt.

Hatte ja die Zuweisung:

Me!Datum = Now()

bei "Private Sub Form_Current()" eingebaut und bei "Private Sub Form_Open()" dann eine SetFokus - Anweisung. Nach späteren Einbau der SetFocus - Anweisung bei "Private Sub Form_Current()" und Löschen dieser bei "Private Sub Form_Open()" funktioniert nun alles ohne Fehlermeldung.

Wird schon seinen Grund haben, warum es vorher nicht funktionierte?!

Ähnliche Themen

kann mir jemand sagen wo das ist?
toni121  06.02.2007 - 75 Hits - 3 Antworten

Hilfe: Download von "AcitveX/Template Media Control" ok???
rainer_z  17.02.2007 - 83 Hits - 1 Antwort

IF..Then Bedingung in Makro perfomanter machen
Markus76  06.03.2007 - 111 Hits - 7 Antworten

Mit SUPER ins Flv. Format umwandeln?
Mikkel  05.11.2007 - 95 Hits - 3 Antworten

Date
Mr.A  03.04.2008 - 50 Hits - 5 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026