Office: Wer hat zuletzt bearbeitet

trottlbua:
> LogUserAction (Me!ProjektNr.Value;"Aktion")

Da ist Dir ein ; statt eines , reingerutscht.

Und wenn er mit , immer noch meckert: Laß die ( ) um die Parameter weg, da es sich nicht um eine Funktion handelt, die einen Rückgabewert liefert. VBA meckert dann meistens die Klammern an.

> damit ich eventuell weitere Felder hinzufügen kann?!?

Wie gehabt:

a) Felder in der Log-Tabelle erweitern

b) Parameterliste im Aufruf erweitern.
: LogUserAction(Me!ProjektNr.Value,"Aktion")
Hier mit , getrennt weitere Werte aus dem Formular an die Prozedur übergeben.

c) Parameterliste im Prozedurkopf erweitern
: Sub LogUserAction(dsID&, wsAction$)
Hier also wie schon das dsID& mit weiteren Parametern durch , getrennt ergänzen.

Achtung: Die Anzahl und die Reihenfolge zwischen Aufruf und Prozedurkopf muß übereinstimmen. Und auch die "Typen" müssen stimmen, also (grob) Zahlen-Typ oder Zeichen-Typ.

c) Parameter (als übergebenen Feldwert) in den Datensatz schreiben
: !aktiondatensatz = dsID
Also zwischen .AddNew und .Update die weiteren Parameter in die weiteren Felder des Datensatzes schreiben.

Gruß, Michael

 

Super - hat gefunzt!

Ich musste die Klammern wegnehmen - dann hat access nicht mehr gemeckert.

Noch ein Anhängsel:

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
LogUserAction Me!ProjektNr.Value, Me!Projektname.Value, "Aktion"
End Sub

Da bekomm ich die Fehlermeldung "laufzeitfehler 13 - typen unverträglich"

was hab ich da falsch gemacht?

Im Modul habe ich es so ergänzt:

Code:

ub LogUserAction(dsID&, dsNA&, wsAction$)
On Error GoTo Err_LogUserAction

    Dim DB As Database
    Dim RS As Recordset

    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("tbl_aktion", dbOpenDynaset)
    With RS
        .AddNew
        !aktiondatumzeit = Now()
        !aktionuser = GetWsUsername()
        !aktioncomputer = GetWsComputername()
        !aktiondatensatz = dsID
        !aktionprojekt = dsNA
        !aktiontext = wsAction
        .Update
        .Bookmark = .LastModified
    End With
    RS.Close
    DB.Close

Exit_LogUserAction:
    Exit Sub

Err_LogUserAction:
    Resume Exit_LogUserAction

End Sub

Bin ich richtig in der Annahme, dass das dsID ein frei gewählter Name ist?

 

trottlbua:

Code:

LogUserAction Me!ProjektNr.Value, Me!Projektname.Value, "Aktion"
[...]
Sub LogUserAction(dsID&, dsNA&, wsAction$)

Und deswegen schrieb ich extra: Daten-Typen müssen passen... ;-)

Ich _vermute_ jetzt zumindest mal, daß "projektname" ein Zeichen-Feld (also keine Zahl, sondern Ziffern, Buchstaben usw.) ist, oder? Wenn Du das als Parameter dsNA mit & deklarierst, erwartet VBA aber eine Zahl, einen "long int" (ganze Zahl ohne Nachkommastellen, aber großer Wertebereich) genau genommen. Zeichen-Felder (sog. "Strings") werden aber mit einem $ deklariert, siehe wsAction$.

> Bin ich richtig in der Annahme, dass das dsID ein frei gewählter Name ist?

Yep, ist frei ausgedacht. Sollte einfach nur "ds" für "Datensatz" und "ID" eben für die Identifikation" darstellen.

Gruß, Michael

 

Danke, danke, danke, danke!!!!

Funzt alles perfekt!

Hab noch ein Addon - die Frage ist halt ob das möglich ist:

Kann man Felder eines Formulares zu Gruppen zusammenfassen?

Ich hab z.B. eine Terminübersicht - mehrere Felder, da es ja mehrere Projektphasen gibt.

Wenn ich die jetzt zu einer Gruppe zusammenfassen könnte, müsste ich nicht die Änderung jedes einzelnen Feldes verfolgen, sondern ich dokumentiere einfach ob sich etwas bei den Terminen, den technischene Daten oder der Kostenübersicht (alles mögliche Gruppen) geändert hat.

Jedes einzelne Feld erfassen finde ich sehr zäh.

Hast du eine Idee bzw. ist das überhaupt möglich?

 

trottlbua:
> Funzt alles perfekt!

Na, das ist doch schön. :-)

> Kann man Felder eines Formulares zu Gruppen zusammenfassen?

Hmmm... Also so auf Anhieb fällt mir dazu nichts ein. Aber für das Problem an sich grundlegend:

Du hast ja prinzipiell nur die Möglichkeit, den kompletten Datensatz oder jedes Feld einzeln auf Änderung zu überwachen. Willst Du eine Gruppe von ähnlichen Feldern bei Änderung mit der gleichen Log-Meldung versehen, geht also nur der Weg über jedes einzelne Feld. Die (ganz grobe) Struktur im VBA wäre dann:

Code:

sub DatumAenderung
    LogUserAction "Datum geändert"
end sub

sub Feld1OnChange
    DatumAenderung
end sub

sub Feld2OnChange
  DatumAenderung
end sub

[ ... ]

Soweit verständlich? Ich habe dann also eine Routine, die "Datum geändert" protokolliert. Und diese Routine wird von mehreren anderen Ereignissen (jeweils das Änderungs-Ereignis der einzelnen betroffenen Felder) aufrufbar. Wenn jetzt Feld1, Feld2 usw. auf dem Formular eine "Gruppe" bilden, dann rufen diese jeweils die gleiche Routine auf.

Die Felder Feld10, Feld11, ... könnten dann eine andere Routine aufrufen, die dann z.B. "Mitglied geändert" protokolliert oder was auch immer.

Vielleicht hilft Dir das irgendwie weiter?

Aber ob Du wirklich jedes Feld einzeln überwachen willst? Genau genommen müßtest Du dann nämlich "OnEnter" den Wert des Feldes speichern, um dann bei "OnExit" und "OnChange" den dann aktuellen Wert mit dem ursprünglichen zu vergleichen.

Könnte ja sein, daß jemand ein Zeichen löscht und es dann wieder einfügt. Dann hättest Du sonst schnell einen Log-Eintrag über eine Änderung, die eigentlich gar nicht stattgefunden hat.

Im "OnChange" hättest Du dann die Möglichkeit, bei Änderungen direkt einzugreifen (zulassssen oder verhindern z.B.) usw. usf...

Das wären also in jedem Fall 2, wenn nicht sogar 3 oder mehr Ereignisse, die Du abgreifen müßtest. Und das wohlgemerkt für jedes Feld einzeln!

Gruß, Michael

 

Servus Michael!

Danke nochmal für die Hilfe, hab es jetzt mal so gelassen, wie du mir im Code beschrieben hast!

Mfg
Herbert