Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Letzte Änderung mitschreiben (Datum/Uhrzeit)
Gehe zu Seite Zurück  1, 2
zurück: Formular nur mit einem Teil der Daten öffnen weiter: Daten aus Tabelle berechnen und in Formular übernehmen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
18. Jul 2009, 17:55
Rufname:

AW: Letzte Änderung mitschreiben (Datum/Uhrzeit) - AW: Letzte Änderung mitschreiben (Datum/Uhrzeit)

Nach oben
       Version: Office 2007

Hallo Willi,

ich bin soeben über deine ANtwort zu diesem Thread gestoßen, die genau mein aktuelles Problem anspricht!

Ich möchte in einem Formular zwar das Änderungsdatum und den Benutzer festhalten, aber eben nur, wenn auch was verändert wurde... Leider funktioniert der von Dir beschriebene Code bei mir nicht so wirklich. Bin allerdings auch eher ein Anfänger in VBA, von daher komm ich da nicht selbst drauf.

Hab deinen Code einfach mal 1:1 übernommen und noch meine Änderungszeilen hinzugefügt:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim bOK As Boolean
    Dim ctl As Control
   
    On Error Resume Next
    For Each ctl In Me.Controls
        If ctl = Screen.ActiveControl Then
            If Str(ctl.OldValue) <> Str(ctl.Text) Then
                If Err = 0 Then
                    bOK = True
                    Exit For
                  Else
                    Err = 0
                End If
            End If
          Else
            If ctl.OldValue <> ctl.Value Then
                If Err = 0 Then
                    bOK = True
                    Exit For
                  Else
                    Err = 0
                End If
            End If
        End If
    Next ctl
    On Error GoTo 0
    If bOK Then
        MsgBox "Jetzt"
      Else
        Me.Undo
        Cancel = True
    End If
    Me!usnsys_letzteaenderung = Now
    Me!usnsys_aenddurchbenutzer = Environ("Username")
End Sub
Leider funktioniert das bei mir wie gesagt nicht so wirklich...

Zum einen muß ich bei Steuerelementen, die Kombifelder darstellen, erst immer in ein Textfeld-Steuerelement etc. wechseln, damit die Änderung übernommen wird und zum anderen verschwinden in Steuerelementen, die das Textformat=Nur Text haben, die Eingaben sofort wieder.

Außerdem verstehe ich die Funktion MsgBox "Jetzt" nicht ganz... Soll das eine Bestätigung der erfolgten Änderung darstellen?

Wie gesagt, den Lösungsvorschlag trifft exakt auf meine Suche zu und ich find auch deine Idee super! Hättest Du aber noch eine Idee, wie ich das Ganze auch bei mir einsetzen kann?

Schon einmal vielen Dank!
Willi Wipp
Moderator


Verfasst am:
19. Jul 2009, 03:19
Rufname:
Wohnort: Raum Wiesbaden

Re: AW: Letzte Änderung mitschreiben (Datum/Uhrzeit) - Re: AW: Letzte Änderung mitschreiben (Datum/Uhrzeit)

Nach oben
       

Hi Gast,

anstelle der MsgBox solltest Du das Fuellen der 2 Protokollfelder setzen.
Kombinationsfelder haben in der Eigenschaft Text das stehen was darin sichtbar ist.
Das muesste man dann noch ueber den ControlType entsprechend anpassen!

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
tobey_p
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Jul 2009, 03:47
Rufname:


AW: Letzte Änderung mitschreiben (Datum/Uhrzeit) - AW: Letzte Änderung mitschreiben (Datum/Uhrzeit)

Nach oben
       

Hi Willi,

vielen Dank für deine Antwort! Der obige Beitrag ist von mir, hab mich nur vergessen einzuloggen...

Meinst Du den Code also so zu verändern:
Code:
    If bOK Then
        Me!usnsys_letzteaenderung = Now
        Me!usnsys_aenddurchbenutzer = Environ("Username")     
      Else
        Me.Undo
        Cancel = True
    End If
End Sub
Das mit dem ControlType habe ich ehrlich gesagt nicht ganz verstanden... Embarassed Was müsste ich denn da genau verändern?

Schon einmal vielen Dank,

MfG

Tobias
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Datum im Formularkopf 6 didide 821 06. Jan 2005, 17:19
lothi Datum im Formularkopf
Keine neuen Beiträge Access Tabellen & Abfragen: in einer Wenn dann Funktion aufs Datum gruppieren 10 Gast 691 06. Jan 2005, 10:22
Skogafoss in einer Wenn dann Funktion aufs Datum gruppieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum und Uhrzeit automatisch speichern 3 peinberger 1119 30. Dez 2004, 10:33
mapet Datum und Uhrzeit automatisch speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Alter auf Basis akt. Datum ausrechnen 2 jomei 1634 22. Dez 2004, 09:15
jomei Alter auf Basis akt. Datum ausrechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfrage mit größer als Parameter Datum 2 Terrific 14868 06. Dez 2004, 19:46
Gast Access Abfrage mit  größer als Parameter Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum konvertieren 2 pad8626 1236 03. Dez 2004, 16:25
pad8626 Datum konvertieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum 5 Jogler 1001 29. Nov 2004, 13:27
borstel Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Accessdaten Datum in Englischer Form in Serienbrief von Word 1 Hajo 1127 24. Nov 2004, 11:49
Gast Accessdaten Datum in Englischer Form in Serienbrief von Word
Keine neuen Beiträge Access Tabellen & Abfragen: 3. ältestes Datum 3 shaaree 793 27. Sep 2004, 11:03
Skogafoss 3. ältestes Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Zahl umwandeln 2 Lorenz 1017 01. Sep 2004, 18:45
Lorenz Datum in Zahl umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: Datum berechnen 1 kdl 1146 09. Aug 2004, 06:10
TommyK Datum berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: datum in Tabelle nur nach Jahr & Monat filtern.....aber. 4 mirko 1236 20. Jul 2004, 12:03
mirko datum in Tabelle nur nach Jahr & Monat filtern.....aber.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum