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
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...
Sonderveranstaltung: KI trifft Access – 18. Access-Stammtisch Hannover Online (Nr. 62) am 17.09.2025
in Microsoft Access Hilfe
Sonderveranstaltung: KI trifft Access – 18. Access-Stammtisch Hannover Online (Nr. 62) am 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...
17. Access-Stammtisch Hannover Online (Nr. 61) am 20.08.2025
in Microsoft Access Hilfe
17. Access-Stammtisch Hannover Online (Nr. 61) am 20.08.2025: Access-Stammtisch Hannover Online Endlich ist es wieder soweit. Der Access-Stammtisch Hannover Online findet heute statt. AGENDA Begrüßung Hilfe bei Problemen Allgemeine Diskussion Sonstiges...
Access Seitenumbruch
in Microsoft Access Hilfe
Access Seitenumbruch: Hallo zusammen, Ich habe einen Bericht mit mehr als 20 Zeilen. Ich möchte das ab Zeile 25 eine neue Seite anfängt. Mit freundlichen Grüßen Kurt k
Access Seitenumbruch
in Microsoft Access Hilfe
Access Seitenumbruch: Hallo zusammen, Ich habe einen Bericht mit mehr als 20 Zeilen. Ich möchte das ab Zeile 25 eine neue Seite anfängt. Mit freundlichen Grüßen Kurt k
Excel Sheet in Access einbinden mit acOLECreateLink
in Microsoft Access Hilfe
Excel Sheet in Access einbinden mit acOLECreateLink: Hallo Leute :-) ich versuche gerade seit Tagen folgendes Problem zu lösen: in einem Bericht soll ich Daten aus Access, danach Fotos und zum Schluß quasi Screenschots aus Excel darstellen. Das...
Access Datei wird per Makro nicht gespeichert
in Microsoft Access Hilfe
Access Datei wird per Makro nicht gespeichert: Hallo zusammen, anbei mein Makro: Private Sub Speichern_Click() Dim Dateiname As String Dim Kuerzel Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " &...

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