[Access] Datum per VBA teilen

[Pittiplatsch]

Hi,

Ich hab in Access ein Formular, bei dem Daten einzutragen sind, die danach per VBA in die entsprechenden Tabellen übertragen werden sollen.

In diesem Formular befinden sich unter anderem 3 Felder für eine Datumsangabe (Feld1 = Tag, Feld2 = Monat, Feld3 = Jahr).

Diese 3 Felder sind über ihre Eigenschaften bereits so formatiert, daß beim Öffnen des Formulars das aktuelle Datum in diese 3 Felder entsprechend aufgeteilt wird. Diese Datumsangaben sind allerdings noch veränderbar, um eventuelle nachträgliche Eintragungen zu ermöglichen.

Im Formular befindet sich neben dem Speichern - Button auch ein Reset-Button, um alle eingaben zu löschen.

Nun ist mein Problem folgendes:

Wenn ich eben diesen Reset-Button betätige, werden alle Daten im Formular gelöscht. Ich möchte aber, daß in diesen Datumsfeldern die Daten des aktuellen Datums drinn stehen.

Wie kann ich jetzt mittels VBA das aktuelle Datum so formatieren, daß in den Feldern 1 - 3 jeweils Tag, Monat, Jahr des aktuellen Tages drinnstehen.

[firewalker...]

Du sagst doch, dass das aktuelle Datum da schon auseinandergefrimelt bein öffnen des Formulars drinnsteht. Da müsste dann doch schon so eine Funktion vorhanden sein die das macht, oder?

[Pittiplatsch]

Leider nur in sofern, daß die Eigenschaften der Formularfelder im Access als Standartwert vorbelegt sind.

Beim Resetten, werden sie jedoch trotzdem gelehrt und nicht auf den Standartwert zurückgesetzt.

Wenn das mit dem Datum nicht klappen sollte, kann man da eventuell per VBA den Standartwert ermitteln und diesen Feldern wieder zuweisen ???

[firewalker...]

Hallo.

Im Moment sitze ich gerade an einem office-freien Rechner. D.h., hab auch kein VBA und muss das mal aus dem Kopf machen:

Soweit ich weiß gibt es eine methode die "RECALC" heißt. Damit könntest du evtl. wieder den Standardwert da rein bekommen. Also:

Objekt.recalc

oder vielleicht wars auch "REFRESH".

Objekt.refresh

Probiers einfach aus. Wenn es nicht funktioniert schreib einfach noch mal.

[Manfred.Becker]

Hi Pittiplatsch,

das aktuelle Datum (Date) kann ganz einfach in Teilstrings (Mid()) auf die jeweiligen Textfelder verteilt werden:

txtTag.Value = Mid(Date, 1, 2)

txtMonat.Value = Mid(Date, 4, 2)

txtJahr.Value = Mid(Date, 7, 4)

[/PHP]

[Pittiplatsch]

Hi,

Dank an Manfred.Becker

Dein Tipp war genau das was ich gebrauct hab, funktioniert ausgezeichnet.

:uli :uli

Dank auch an Firewalker...

Hab zwar nichts in der Form gefunden (recalc oder refresh), aber trotzdem danke für den Hilfeversuch