10
CreationTS im Access erstellen
Morgen Leute
Ich will ein Erstellungsdatum und ein Änderungsdatum in meiner Datenbank hinzufügen.
Soweit hät ich es im Code so eingetragen:
Jetzt mein Problem:
das Änderungsdatum tragt er in der Tabelle problemlos ein, allerdings das Erstellungsdatum nicht.
Könnt ihr mir helfen?
mfg Fabi
Soweit hät ich es im Code so eingetragen:
Private Sub Form_AfterUpdate()
On Error GoTo err_AfterUpdate
DoCmd.SetWarnings False
If Me.NewRecord = True Then
DoCmd.RunSQL "UPDATE tbl_Picture SET createTS = '" & Now() & "', createUser = '" & CurUSR & "' WHERE ID = " & Me.txtID.Value
Else
DoCmd.RunSQL "UPDATE tbl_Picture SET changeTS = '" & Now() & "', changeUser = '" & CurUSR & "' WHERE ID = " & Me.txtID.Value
DoCmd.SetWarnings True
End If
err_AfterUpdate:
Exit Sub
End SubJetzt mein Problem:
das Änderungsdatum tragt er in der Tabelle problemlos ein, allerdings das Erstellungsdatum nicht.
Könnt ihr mir helfen?
mfg Fabi
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 171750
Url: https://administrator.de/contentid/171750
Printed on: April 19, 2024 at 01:04 o'clock
10 Comments
Latest comment
Moin Fabi,
pack die Abfrage auf Me.NewRecord stattdessen in die Sub Form_Dirty
Henning
pack die Abfrage auf Me.NewRecord stattdessen in die Sub Form_Dirty
Henning
Danke für die Antwort, wenn ich die Abfrage in Sub Form_Dirty reinschmeiss kommt folgender Fehler:
Sie habe als Einstellung der Ereigniseigenschaft den Asudruck bei Laden eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Deklaration der Prozedur entspricht nicht der BEschreibung eines Ereignisses oder einer Prozedur mit demselben Namen.
Kann es sein das ein Datenformat nicht übereinstimmt?
mfg Fabi
Sie habe als Einstellung der Ereigniseigenschaft den Asudruck bei Laden eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Deklaration der Prozedur entspricht nicht der BEschreibung eines Ereignisses oder einer Prozedur mit demselben Namen.
Kann es sein das ein Datenformat nicht übereinstimmt?
mfg Fabi
Die Declaration der Funktion heißt vollständig:
Private Sub Form_Dirty(Cancel As Integer)
oder Doppelklick auf "Bei Änderung" in den Formulareigenschaften
Henning
Private Sub Form_Dirty(Cancel As Integer)
oder Doppelklick auf "Bei Änderung" in den Formulareigenschaften
Henning
Die Declaration passt jetzt, allerdings aktualisiert er meine Datenbank immer noch nicht.
mfg Fabi
mfg Fabi
Hast Du getestet ob das Programm bis zu Deinem DoCmd.RunSQL kommt?
Wenn in der funktionierenden Routine das Änderungsdatum geschrieben wird muss Dein SQL-String ja korrekt sein. Wenn dann die DB-Felder für Create auch sinngemäß genauso aussehen wie für Änderungen müsste das für die Neuanlage ja übertragbar sein.
ZumTesten vielleicht auch mal "DoCmd.SetWarnings False " weglassen oder auf True setzen.
Und/oder nochmal die Routine posten.
Henning
Wenn in der funktionierenden Routine das Änderungsdatum geschrieben wird muss Dein SQL-String ja korrekt sein. Wenn dann die DB-Felder für Create auch sinngemäß genauso aussehen wie für Änderungen müsste das für die Neuanlage ja übertragbar sein.
ZumTesten vielleicht auch mal "DoCmd.SetWarnings False " weglassen oder auf True setzen.
Und/oder nochmal die Routine posten.
Henning
wenn ich den String ändere
greift er auf die Datenbank zu und ändert etwas, allerdings ändert er alle Datensätze.
mfg
DoCmd.RunSQL "UPDATE tbl_Picture SET createTS = '" & Now() & "'" greift er auf die Datenbank zu und ändert etwas, allerdings ändert er alle Datensätze.
mfg
Dann kannst Du jetzt ja noch die WHERE - Clause ergänzen, die Du am Anfang schon hattest.
Aber mal ehrlich, eigentlich weißt Du nicht, was Du da tust, oder? Ich hoffe Du arbeitest mit einer Kopie und nicht an Produktivdaten.
Henning
Aber mal ehrlich, eigentlich weißt Du nicht, was Du da tust, oder? Ich hoffe Du arbeitest mit einer Kopie und nicht an Produktivdaten.
Henning
ich stückel mir alles grade zusammen...selber programmiere ich normal nicht...aber is zum glück nicht mein eigentliches gebiet ;)
das mit der where - clause war mir scho klar nur da bin ich wieder beim anfang...er fügt wieder nichts ein...
Ich werds einfach bei der ChangeTS belassen.
mfg
das mit der where - clause war mir scho klar nur da bin ich wieder beim anfang...er fügt wieder nichts ein...
Ich werds einfach bei der ChangeTS belassen.
mfg
Du kannst jetzt natürlich aufgeben, aber scheinbar wärst Du ja fast am Ziel.
Wenn er mit der WHERE-Clause nichts macht, aber ohne WHERE alle Sätze updated muss die WHERE-Clause der Fehler sein. Dann muss eigentlich "Me.txtID.Value" anders sein als Du es erwartest, wahrscheinlich noch ohne Wert.
Aber wenn ich mir das ganze so überlege, gehts wahrscheinlich gar nicht so, weil der Datensatz zu dem Zeitpunkt noch gar nicht in der Datenbank steht und damit das Update ins Leere läuft.
Mach es doch einfach ohne SQL, also
Me.createTS = now
Me.createUser = CurrentUser
Wobei die beiden Felder (unsichtbar) in dem Formular stehen müssten
Henning
Wenn er mit der WHERE-Clause nichts macht, aber ohne WHERE alle Sätze updated muss die WHERE-Clause der Fehler sein. Dann muss eigentlich "Me.txtID.Value" anders sein als Du es erwartest, wahrscheinlich noch ohne Wert.
Aber wenn ich mir das ganze so überlege, gehts wahrscheinlich gar nicht so, weil der Datensatz zu dem Zeitpunkt noch gar nicht in der Datenbank steht und damit das Update ins Leere läuft.
Mach es doch einfach ohne SQL, also
Me.createTS = now
Me.createUser = CurrentUser
Wobei die beiden Felder (unsichtbar) in dem Formular stehen müssten
Henning
perfekt, so funktionierts... 
Danke vielmals!
mfg Fabi
Danke vielmals!
mfg Fabi
