Office: (Office 2007) Access Änderungshistorie

Helfe beim Thema Access Änderungshistorie in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; ich möchte Änderungshistorie für Formulare erstellen. Sobald ein Feld geändert wird, soll Feldname, Änderungsdatum und alte Wert vor Änderung in... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von palpalo, 18. Dezember 2014.

Seite 1 von 2

PALPALO

palpalo

Access Änderungshistorie

ich möchte Änderungshistorie für Formulare erstellen. Sobald ein Feld geändert wird, soll Feldname, Änderungsdatum und alte Wert vor Änderung in Tabelle schreiben.

Historie Tabelle ist so
Code:

id feldname altefeldwert aenderungdatum
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich dafür sorgen,dass das feld, das geändert wird nur in Tabelle geschrieben wird.
Wazu dient Bookmark? Würde hier brauchbar?

habs so versucht, klappt nicht
Code:

Dim xAlt As String
Dim xNeu As String
Dim xFeldName As String
Dim frm As Form
Dim ctl As Control
xFeldName = Me!ctl.Name
xNeu = Me!Controls!ctl
xAlt = Me!Controls!ctl.OldValue
If xNeu xAlt Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & xFeldName & "','" & _
xAlt & "','" & xNeu & "')"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

palpalo, 18. Dezember 2014

#1
PALPALO

palpalo

Jemand ein idee, wie man es umsetzen kann, dass jeder geänderter Feld in ein Historie Tabelle geschrieben werden kann.

palpalo, 20. Dezember 2014

#2
HCSCHERZER

hcscherzer

Bookmark ist nicht zu gebrauchen.
In der Form_BeforeUpdate Ererignisprozedur müsstest Du mit einer For ... Each Schleife durch alle Steuerelemente / Textfelder laufen.
Und die Tabellenstruktur entsprechend der verwendeten Felder in der INSERT Anweisung gestalten ... oder umgekehrt.

hcscherzer, 20. Dezember 2014

#3
PALPALO

palpalo

Access Änderungshistorie

von hcscherzer

Bookmark ist nicht zu gebrauchen.
In der Form_BeforeUpdate Ererignisprozedur müsstest Du mit einer For ... Each Schleife durch alle Steuerelemente / Textfelder laufen.
Und die Tabellenstruktur entsprechend der verwendeten Felder in der INSERT Anweisung gestalten ... oder umgekehrt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danke versuche ich.
Ein Frage noch, auf dem Formular habe ich Kombinationsfelder und Textfelder so ca. 30 Stück, die habe ich in zwei Gruppen-Marke unterteilt.
Einer für Kombinationfelder und andere für Textfelder. Wie kann ich per VBA beide Gruppen-Marken in ein Array zusammenfassen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

palpalo, 20. Dezember 2014

#4
HCSCHERZER

hcscherzer

Beide Gruppen in ein Array?
Verstehe ich nicht, warum ... ein Array kannst Du nur von gleichen Typen erstellen.

hcscherzer, 20. Dezember 2014

#5
PALPALO

palpalo

von hcscherzer

Beide Gruppen in ein Array?
Verstehe ich nicht, warum ... ein Array kannst Du nur von gleichen Typen erstellen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie gesagt, auf dem Formular gibt es Kombinationsfelder, die ich in Marke "kmbfMarke" unter Eigenschaftenblatt eingestellt habe.

Und noch Textfelder als txtMarke.

Mein idee war, dass ich bei der VBA in Array zusammenfasse, um nicht änderungen auf beide Prüfen muss.

So habe ich dein Vorschlag umgesetzt
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "markeKombf" Then
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')"
End If
End If
Next ctl

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

palpalo, 20. Dezember 2014

#6
HCSCHERZER

hcscherzer

Der Begrif "Gruppe", den Du verwendetest, hat mich etwas verwirrt. Jetzt, wo Du das mit den Tags erklärst, wird klar, was Du meinst.

So habe ich dein Vorschlag umgesetzt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, so hatte ich mir das vorgestellt *wink.gif*

hcscherzer, 20. Dezember 2014

#7
PALPALO

palpalo

Access Änderungshistorie

von hcscherzer

Der Begrif "Gruppe", den Du verwendetest, hat mich etwas verwirrt. Jetzt, wo Du das mit den Tags erklärst, wird klar, was Du meinst.
Ja, so hatte ich mir das vorgestellt *wink.gif*
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kann ich Kombinationfelder und Textfelder zu einem Array zusammenfügen?

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "markeKombf" or ctl.Tag = "markeTextF" Then ' hier kommt fehler meldung Laufzeitfehler 3251 Operation für diesen Objekttype nicht unterstützt
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')"
End If
End If
Next ctl

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

palpalo, 21. Dezember 2014

#8
JENS05

jens05

Hallo,
schau dir mal folgendes an Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control

If Me.Dirty Then
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Tag = "markeKombf" Or ctl.Tag = "markeTextF" Then
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')", 128
End If
End If
End If
Next ctl
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jens05, 21. Dezember 2014

#9
PALPALO

palpalo

von jens05

Hallo,
schau dir mal folgendes an Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control

If Me.Dirty Then
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Tag = "markeKombf" Or ctl.Tag = "markeTextF" Then
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')", 128
End If
End If
End If
Next ctl
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

leider bekomme ich immer noch gleiche Fehler. Komischerweise wenn ich, einzel durchführe klappt

so klappt
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "markeKombf" Then
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')"
End If
End If
Next ctl

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

auch dies klappt
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "markeTextF" Then
MsgBox "Objecktname : " & ctl.Name & "NeuWert : " & ctl & "AltWert : " & ctl.OldValue
If ctl.OldValue ctl Then
DBEngine(0)(0).Execute _
"INSERT INTO _tmpHistorie " & _
"(Aenderungsdatum, Aenderer, FeldName," & _
"alterWert, neuerWert) " & _
"VALUES (Now(),'" & CurrentUser() & "','" & ctl.Name & "','" & _
ctl.OldValue & "','" & ctl & "')"
End If
End If
Next ctl

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber beide in ein for each klappt irgend wie nicht

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

palpalo, 21. Dezember 2014

#10
JENS05

jens05

Hallo,
irgendwo ist da noch was was du uns nicht verrätst.
Das gezeigtes Bsp. sollte erstmal funktionierten :-)
Kannst du ein Bsp der DB zeigen?

jens05, 22. Dezember 2014

#11
FRAESER

fraeser

Für was steht das ", 128" nach VALUES im 1. Beispiel?

fraeser, 22. Dezember 2014

#12
JENS05

jens05

Access Änderungshistorie

Hallo
das steht für dbFailonError. Das sorgt dafür das eine Fehlermeldung erzeugt wird, wenn Execute wegen eines Fehlers nicht ausgeführt werden kann.

jens05, 22. Dezember 2014

#13
PALPALO

palpalo

von jens05

Hallo,
irgendwo ist da noch was was du uns nicht verrätst.
Das gezeigtes Bsp. sollte erstmal funktionierten :-)
Kannst du ein Bsp der DB zeigen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nein habs auf gleiche art und weise leere Formular erstellt, dort klappt tatsächlich. Aber in der eingentliche Formular nicht. Begreife nicht

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

palpalo, 22. Dezember 2014

#14
FRAESER

fraeser

\@jens05:
Sorry, hab das "DBEngine(0)(0).Execute _" im Schnellflug übersehen...

@palpalo:
Wie sieht denn die Fehlermeldung und wo taucht sie auf?

fraeser, 22. Dezember 2014

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Access Änderungshistorie

Die Seite wird geladen...

Access Änderungshistorie - Similar Threads - Access Änderungshistorie
Access VBA – Prüfen, ob eine PDF bereits geöffnet ist, bevor sie erneut geöffnet wird
in Microsoft Access Hilfe
Access VBA – Prüfen, ob eine PDF bereits geöffnet ist, bevor sie erneut geöffnet wird: Beschreibung: Ich arbeite mit Access VBA und habe eine Funktion implementiert, die beim Klick auf einen Button („Unterzeichnet“) einen Bericht als PDF exportiert. Was aktuell funktioniert:...
Alte Access Version (2013) nachinstallieren (Office 365)
in Sonstiges
Alte Access Version (2013) nachinstallieren (Office 365): Hallo, wie kann ich von einer DVD (office 2013) auf einem PC installieren, auf dem MS-Office 365 ohne Access läuft. Das Beriebssystem ist windows 11. Danke.
Zeiterfassung in Microsoft Access
in Microsoft Access Hilfe
Zeiterfassung in Microsoft Access: Hallo an alle gerne möchte ich eine Info haben über Microsoft Access. Mir geht es darum, dass ich in Microsoft Access eine Applikation abbilden möchte. Und zwar eine Zeitstempelungs-Applikation....
ERINNERUNG: HEUTE 18. Access-Stammtisch Hannover Online (Nr. 65) am 18.02.2026
in Microsoft Access Hilfe
ERINNERUNG: HEUTE 18. Access-Stammtisch Hannover Online (Nr. 65) am 18.02.2026: Access-Stammtisch Hannover Online Endlich ist es wieder soweit. Der Access-Stammtisch Hannover Online findet heute statt. Termin: Termin: Mittwoch, 18.02.2026 19:00 Uhr Veranstaltungsart: Online...
EINLADUNG Access-Stammtisch Hannover Nr. 63 LIVE am Mittwoch 19.11.2025
in Microsoft Access Hilfe
EINLADUNG Access-Stammtisch Hannover Nr. 63 LIVE am Mittwoch 19.11.2025: EINLADUNG zum Access-Stammtisch Hannover Nr. 63 LIVE Endlich ist es wieder soweit! Persönlicher Austausch bei Speis und Trank. Interessante Gespräche in netter Atmosphäre. Termin: Mittwoch,...
Word Dokument aus Access maximiert anzeigen
in Microsoft Access Hilfe
Word Dokument aus Access maximiert anzeigen: Hallo zusammen, ich öffne aus einem Modul eine Wordvorlage und habe jetzt das Problem das das Dokument nicht immer maximiert angezeigt wird. im Code habe ich folgendes Dim wrdDoc As Object Dim...
ERINNERUNG an Sonderveranstaltung: KI trifft Access am Mittwoch 17.09.2025
in Microsoft Access Hilfe
ERINNERUNG an Sonderveranstaltung: KI trifft Access am Mittwoch 17.09.2025: KI trifft Access – OpenAI-Add-Ins und native Lösungen für den VBA-Alltag Sonderveranstaltung des Access-Stammtisches Hannover Online Wir freuen uns Alexander Denz als Gastredner begrüßen zu...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden