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 Datensatzzähler zu kurz
in Microsoft Access Hilfe
Access Datensatzzähler zu kurz: Die Ansicht der Nummer des Datensatzes ist zu kurz (vgl. Anlage). Wie kann ich die etwas breiter machen?[ATTACH]Im angezeigten Fall ist es nicht der 1 von 208 Sätzen, sondern der 1 von 20800.
Installationsfehler OFFICE 2019 ?
in Microsoft Access Hilfe
Installationsfehler OFFICE 2019 ?: Hallo Zusammen ! Ich bin neu hier und möchte in ein ACCESS 2019 Formular VBA-Code einbauen. Der Code soll mittels DAO.Recordset usw. Daten bearbeiten. Leider wird mir beim Schreiben das Objekt...
MS Access Formular: Datensatz duplizieren mit Unterformularen
in Microsoft Access Hilfe
MS Access Formular: Datensatz duplizieren mit Unterformularen: Hallo Ihr Lieben, ich bin ziemliche Anfängerin bei MS Access also nehmt es mir nicht übel, wenn ich Dinge falsch bezeichne etc. :) Ausganslage Ich hab ein Hauptformular (1) (Angaben zur...
Import Daten aus Access Abfrage klappt nicht
in Microsoft Excel Hilfe
Import Daten aus Access Abfrage klappt nicht: Moin, ich habe ein Problem. Ich habe eine Datenbank in Access mit diversen Tabellen und Abfragen. Jetzt habe ich eine neue Abfrage erstellt und muß das Ergebnis täglich in eine Exceldatei...
Auslesen Windowsbenutzer in einer Datenbank
in Microsoft Access Hilfe
Auslesen Windowsbenutzer in einer Datenbank: Hallo zusammen, wie kann ich auslesen, welcher Windows Benutzer gerade aktuell in einer Datenbank ist? Geht das? Danke Matthias
Auslesen einer Abfrage in VBA Modul
in Microsoft Access Hilfe
Auslesen einer Abfrage in VBA Modul: Hallo zusammen, ich wünsche allen ein frohes und gesundes Jahr 2024. Ich habe eine alte Access 2003 und da habe ich zur Ermittlung von Planungsdaten folgende Funktion genutzt, jetzt mit Office 365...
Zugriff aus Access-Datei (xx.accdb)
in Microsoft Excel Hilfe
Zugriff aus Access-Datei (xx.accdb): Guten Tag Mit Windows 10 und Excel 2021 Pro konnten mit unten stehendem Makro Daten an ein Access-DB übergeben werden. Mit Windows 11 und Excel 2021 Pro geht das nicht mehr. [ATTACH]...

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