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
Ausdruck eines Etiketts auf verschiedenen PCs steuern
in Microsoft Access Hilfe
Ausdruck eines Etiketts auf verschiedenen PCs steuern: Hallo, ich habe mir ein kleines Etikettenprogramm geschrieben ( ACCESS 2016) und nutze dies auf 3 PCs. An jedem PC ist ein WLAN Drucker. Wenn ich nun eine Änderung am Programm mache und das...
Access als Mediaplayer
in Microsoft Access Hilfe
Access als Mediaplayer: Hi zusammen! Seit das Windows Media Center (WMC) tot ist, nutze ich notgedrungen MS Access als schlechten Ersatz. Ich benutze nur die Audiofunktionalität und es funktioniert soweit alles über...
Smarttags in Access LTE (2021)
in Microsoft Access Hilfe
Smarttags in Access LTE (2021): Hallo Leute, Ich hätte da mal eine Frage zu den Smarttags. In meinen uralten Access-Buch von 2003 steht in BSP noch was drinnen von Smarttag in den Eigenschaften die man aktivieren soll. Ich habe...
Excel zu Access
in Microsoft Access Hilfe
Excel zu Access: Hallo Suche ein Lösung für eine Umsetzung von Excel zu Access. Die Tabelle KL enthält nebst der Projekt-ID (selbst-erzeugt) diverse Felder: u.a. MessOrte in Form 1,2,3,A,B (=5Messpunkte Split mit...
Access Neuer Datensatz im Formular
in Microsoft Access Hilfe
Access Neuer Datensatz im Formular: Hallo - ich bin neu hier und Anfängerin im VBA Programmieren. Ich habe eine Frage zu VBA: In meinem Formular kann ich Daten eingeben, wenn ich das Formular wieder öffne, wird der letzte...
automatische Abfrage URL via Artikelnummer
in Microsoft Access Hilfe
automatische Abfrage URL via Artikelnummer: Guten Tag Bei der Aktualisierung der Homepage und aufgrund eines Plugin-Wechsels des Üebersetzungstools hat wordpress alle Permalinks der Produkte verändert. Unserem Webmaster war nicht bekannt,...
Suche: Deutsche Vorlage der Schülerverwaltung DB
in Microsoft Access Hilfe
Suche: Deutsche Vorlage der Schülerverwaltung DB: Guten Tag Da bei mir trotz korrekter Einstellungen der Sprache in der MS Office Suite die Vorlagen immer in französischer Sprache heruntergeladen werden, wollte ich kurz fragen, ob mir jemand hier...

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