collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 66
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14072
  • stats Beiträge insgesamt: 67582
  • stats Themen insgesamt: 9104
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: ungewollte Datensatzänderung verhindern  (Gelesen 300 mal)

Offline PSCMS

  • Newbie
  • Beiträge: 1
ungewollte Datensatzänderung verhindern
« am: Mai 22, 2018, 14:46:14 »
Hallo, ich habe mit Null Vorwissen nur durch Probieren eine inzwischen ziemlich komplexe aber funktionierende  ;D Datenbank erstellt. Habe aber überhaupt keine Ahnung von VBA. Bisher habe ich mir alles was ich nicht selber hinbekommen habe aus dem Netz heraus gesucht und kopiert. Allerdings finde ich nichts Brauchbares zu folgendem Thema: Habe Formulare mit mehreren Unterformularen, mit denen meine Kollegen arbeiten sollen. Dabei muss jedoch verhindert werden, dass Daten versehentlich verändert oder gelöscht werden. Wie, wo und was muss ich tun, damit beim Wechseln zu einem anderen Datensatz oder Schließen eine Meldung kommt " Soll Änderung des Datensatzes gespeichert werden ?" und in Folge dann bei "Ja" gespeichert und bei "Nein" Änderung rückgängig gemacht wird?
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23453
Re: ungewollte Datensatzänderung verhindern
« Antwort #1 am: Mai 22, 2018, 15:10:56 »
Hallo,


z. B. so:


Sub Form_BeforeUpdate(Cancel as Integer)

If Msgbox ("soll gespeichert werden?", vbYesNo) = vbNo Then
  Cancel = True
  Me.Undo
  Me.Undo
  Me.Undo
End If

End Sub

Offline Joss

  • Access-User
  • *
  • Beiträge: 80
Re: ungewollte Datensatzänderung verhindern
« Antwort #2 am: Mai 22, 2018, 15:47:23 »
Hallo PSCMS,

du kannst auch hier mal nachlesen:
VBA Tipp: Schließen des Formulars im Before-Update-Ereignis vermeiden

Gruß
Josef
Meine Suchmaschine: www.fireball.de | Access-Wiki: www.dbwiki.de