Thema Datum  Von Nutzer Rating
Antwort
08.02.2010 09:13:50 Astrid Schröter
NotSolved
Blau Aw:Änderungsdatum per VBA - mit "Schlupfloch"
 09.02.2010 10:15:59 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
09.02.2010 10:15:59		 Views:
1134		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Änderungsdatum per VBA - mit "Schlupfloch"
Hallo Astrid Schröter,
einfachste Lösung: füge noch eine MsgBox ein:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Korrektur?", vbYesNo, "Datensatz Speichern?") = vbNo Then
Me!AktualisierungAm = Date 'fügt Änderungsdatum ein
end if
If MsgBox("Möchten Sie diese Änderung wirklich speichern?", vbYesNo, "Datensatz Speichern?") = vbNo Then
Me.Undo 'rückgängig
End If
End Sub
Eleganter könntest du das über eine UserForm lösen, z.B. mit 2 OptionButton für Änderung und Korrektur und 2 CommandButtons für Speichern und Abbrechen. In der Sub für das Speichern kannst du den Status (true/false) der OptionButtons (es genügt natürlich, nur einen zu testen!) abfragen.
Private Sub Form_BeforeUpdate(Cancel As Integer)
load userform1 'wenn sie so heißt
userform1.show
end sub

sub commandbutton1_click() 'Speichern
if optionbutton1=true then Me!AktualisierungAm = Date 'fügt Änderungsdatum ein 'Änderung
end sub
sub commandbutton1_click() 'Abbrechen
Me.Undo 'rückgängig
end sub
oder so ähnlich.
Gruß
Holger

Astrid Schröter schrieb am 08.02.2010 09:13:50:

Hallo, liebe VBA-Profis,

ich bin ein Access- und VBA-Frischling, der kürzlich die Access-Kundendatei unserer Firma ans Bein gebunden bekommen hat. Trotz meiner tiefgehenden Unwissenheit habe ich es geschafft, das Änderungsdatum zu automatisieren, so dass es sich bei jeder Datensatzänderung automatisch auf das Tagesdatum umschreibt (war so gewünscht, weil man über das Änderungsdatum auf die Aktualität des Datensatzes schließen kann). Das funktioniert auch wunderbar, leider aber doch ein wenig zu gut - das Änderungsdatum wird natürlich auch dann upgedatet, wenn z.B. nur ein Tippfehler korrigiert wird. In solchen Fällen würde ich das Änderungsdatum gerne wieder per Hand auf das alte Datum zurücksetzen, was Access aber natürlich sofort wieder als Änderung erkennt und erneut das Tagesdatum einsetzt...

Langer Rede kurzer Sinn: Sehr Ihr eine Möglichkeit, Access klarzumachen, dass es das Änderungsdatum automatisieren soll, eine händische Änderung des Änderungsdatums aber nicht umschreiben darf? Ich bin für jede Hilfe dankbar, denn mein schönes neues Buch "Jetzt lerne ich VBA..." habe ich noch lange nicht durch...

Hier ist noch der derzeitig VBA-Code für das Änderungsdatum:


Private Sub AktualisierungAm_Click()

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me!AktualisierungAm = Date 'fügt Änderungsdatum ein
If MsgBox("Möchten Sie diese Änderung wirklich speichern?", vbYesNo, "Datensatz Speichern?") = vbNo Then
Me.Undo 'rückgängig
End If
End Sub


Dickes Danke im Voraus!
Astrid


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.02.2010 09:13:50 Astrid Schröter
NotSolved
Blau Aw:Änderungsdatum per VBA - mit "Schlupfloch"
 09.02.2010 10:15:59 Holger
NotSolved