Datum, automatisch

[eiswiese]

Hallo,
ich habe in einem Formular ein Feld für das Datum. Da ich in aller Regel das aktuelle Datum benötige, hätte ich gerne, dass dieses automatisch angezeigt wird und, dass der Cursor beim Formularöffnen direkt dorthin springt, für den Fall, dass ich es doch mal ändern möchte.
Weiss jemand, wie ich das hinbekomme?
Gruß eiswiese

[gogo]

geht nicht mehr seit 1-2 Jahren, Du kannst aber folgendes Makro mit dem Ereignis "Dokument Öffnen" verbinden:

Code: Alles auswählen

Sub Startup_form(oEvent)
   oEvent.Source.DrawPage.Forms.getbyname("NameDesFormulars").getbyname("NameDesDatumsKEs").date = format(date()-360,"yyyymmdd")
end sub

... setzt das Datum auf heute vor 360 Tagen ...

[eiswiese]

Das hat schon mal super geklappt. Nachdem ich die -360 rausgenommmen habe, sogar mit dem heutigen Datum...
Vielleicht weisst du ja auch noch, wie ich den Cursor beim Start ins Feld bekomme...
So oder so: Danke!
eiswiese

[eiswiese]

Mmmh, so richtig funkioniert das leider doch nicht.
Wenn ich versuche, den Datensatz mit dem Datum zu speichern, meckert Base, dass für das Feld "Datum" eine Eingabe erforderlich ist. (Obwohl das heutige Datum in dem Feld angezeigt wird)
Die Meckerei hört erst auf, wenn ich das Datum manuell nochmal "drüberschreibe"...

[gogo]

mit dem selben oEvent vom Makro oben

Code: Alles auswählen

...
	oCtrl = oEvent.Source.DrawPage.Forms.getbyname("NameDesFormulars").getbyname("NameDesKEs")
	oEvent.Source.CurrentController.getControl(oCtrl).setfocus
...

und das Datum ... da "fehlt" das Commit:

Code: Alles auswählen

oEvent.Source.DrawPage.Forms.getbyname("NameDesFormulars").getbyname("NameDesDatumsKEs").commit

zum "nur Reinschreiben" des Datums in ein ungeundenes Feld reicht meist das Setzen des Date-Werts, beim Speichern braucht's in der Regel ein Commit.

[eiswiese]

Jetzt läuft es rund!

Eines ist allerdings etwas eigenartig:
Beim Starten des Formulars steht im Datumsfeld nur ganz kurz "13.04.12" (-360???),
dann erscheint das heutige Datum.
Damit kann ich wohl leben, aber neugierig in ich trotzdem.

Vielen Dank für deine Hilfe!

[F3K Total]

Hallo,
ich hätte da noch eine "nicht-Makro" Version, die das aktuelle Datum beim ersten Abspeichern eines Datensatzes setzt, das Datum kann man natürlich auch nachträglich wieder ändern.
Angenommen die zugrundeliegende Tabelle heißt Tabelle und die Spalte mit dem Datum heißt Datum.
Dann gibst Du einmal unter Extras/SQL... folgenden Befehl ein und führst ihn aus:

Code: Alles auswählen

ALTER table "Tabelle" alter column "Datum" set DEFAULT CURRENT_DATE

Gruß R

[gogo]

heute ist der 8.4.2013 ... minus 360d wäre der 13.04.12 - hast Du dieses Datum zufällig im Feld "Standardwert" stehen?

... und: Wenn Du bei jedem neuen Datensatz das heutige Datum brauchst ist die Lösung von FK3Total viel besser, denn per Makro wird das Datum ja nur 1x nach dem Öffnen des Formulars gesetzt.

[eiswiese]

So langsam wird meine Verwirrung total...
In der Tat ist das mit dem Makro nicht so toll, da ja tatsächlich immer nur beim Start des Formulars das Datum gesetzt wird. (@gogo: das Feld Standardwert war leer!)
Also: Makro entfernt und SQL-Methode. Ich bekam auch die Bestätigung, dass der Befehl ordnungsgemäß ausgeführt wurde.
Das Formular geöffnet, das aktuelle Datum erschien kurz und dann blieb nur ein leeres Feld.
Fällt jemandem dazu etwas ein?

[F3K Total]

Hallo Eiswiese,
hast Du den Datensatz mal gespeichert (Diskettensymbol)?

... die das aktuelle Datum beim ersten Abspeichern eines Datensatzes setzt ...

Oder hast Du die Datumsspalte in der Tabelle vielleicht nicht als TYP Datum definiert?
Du kannst auch kurz eine Beispieldatei hochladen, ggf. verfremdet, dann kann man mal nachsehen wo der Hase im Pfeffer liegt.
Gruß R
EDIT: hier eine kurze Beispieldatei.

• Klicke "Neuer Datensatz"
• Gib einen Betrag ein
• Wähle einen Namen
• Speichere den Datensatz mit dem Diskettensymbol