Office: (Office 2007) Problem beim Schliessen eines Formulares

Guten Morgen zusammen,

ich habe ein Formular [Formular1] mit einem eingebetteten Formular [frm_Stammdaten_2] mit Unterformular [ufo_Aenderungen].

Ich möchte, wenn ich den Button "Formular schliessen" drücke der sich im [Formular1] befindet, dass die Prozedur schaut ob Änderungen vorgenommen wurden oder nicht:

-> wenn nein, dann [Formular1] schliessen
-> wenn ja, dann Änderungen in [frm_Stammdaten_2] und [ufo_Aenderungen] speichern und das [Formular1] schliessen


Bisher hatte ich meinen Code im eingebetteten Formular [frm_Stammdaten_2] unter "Vor Aktualisierung" laufen, was jedoch so nicht funktionieren darf, WEIL der Code dann schon beim Wechseln vom eingebetteten Formular [frm_Stammdaten_2] ins Unterformular [ufo_Aenderungen] ausgelöst werden würde.


Jetzt habe ich den folgenden Code im Formular [Formular1] bei "Beim Klicken" stehen, was natürlich auch nicht funktioniert, weil die Änderungen ja nicht in diesem Formular passieren.

Hat jemand eine zündende Idee ?

Code:

:)

 

Hallo,

in der Access Hilfe gibt es unter Form.Dirty ein Beispiel dafür.
LG Markus

 

Hallo Markus,

danke für den Tipp, aber in welchem Formular bzw. an welcher Stelle wende ich das dann wie an ?

 

Antwort:
[QUOTE
Ich möchte, wenn ich den Button "Formular schliessen" drücke der sich im [Formular1] befindet, dass die Prozedur schaut ob Änderungen vorgenommen wurden oder nicht:
[/quote]


Private Sub Befehl257_Click()

Hier prüfst du, ob es ungespeichert änderunge gibt.

if me.dirty oder
if me.Subform.dirty

und dann kannst du entsprechen reagieren

 

Meinst Du das so ?
Wenn ja verursacht das bei mir einen "Fehler beim Kompilieren" *frown.gif*

Code:

 

das sollte wohl lauten
If Me!Stammdaten.Form.Dirty Then

da du aber öfter darauf bezug nimmst kannst auch einen Zeiger setzen.
dim f as form

set f = me!Stammdaten.Form
If f.Dirty Then

dann kannst du in allen spätern Bezügen auf Stammform den Zeiger verwenden.
LG Markus

 

Danke Markus,

um ehrlich zu sein, ich bin nicht ganz Syntax-fest. *frown.gif*
Jetzt kommt zwar keine Fehlermeldung mehr, dafür passiert auch nix mehr wenn ich den Button drücke. Woran kann denn das nun wieder liegen ?

 

Vermutlich ist das (Unter-)Formular nicht "dirty"?
maike

 

Von der Logik her sollte der Code ausgeführt werden, wenn ein Datensatz geändert, aber nicht gespeichert wurde. Ist das der Fall?
Wenn ja, dann gibt es einen Fehler. (Ich muss gestehen, ich benutze sehr selten Formular Methoden und Eigenschaften.)
Wenn nein, dann gilt es die Logik zu ändern.

Ideal ist eine Vorstellung vom Ablauf. Was sollte unter welchen Bedingungen geschehen.
LG Markus

 

Also in diesem Formular öffne ich einen bestehenden, bereits "befüllten" Datensatz. Wie ich eingangs bereits schrieb soll wie folgt abgehandelt werden:

Ich möchte, wenn ich den Button "Formular schliessen" drücke der sich im [Formular1] befindet, dass die Prozedur schaut ob Änderungen in [frm_Stammdaten_2] und [ufo_Aenderungen] vorgenommen wurden oder nicht:

-> wenn nein, dann [Formular1] schliessen
-> wenn ja, dann Änderungen in [frm_Stammdaten_2] und [ufo_Aenderungen] speichern und das [Formular1] schliessen

 

Für mich ist leider zu wenig Info.
Ich gehe jetzt einmal davon aus, es gibt ein MehrfachFormular (MFF) und ein Einfachformular (EFF).
Es wird ein Datensatz aus dem MFF im EFF geöffnet und bearbeitet.
Es sind beide Formulare haben dieselbe Datenquelle.

Stimmt das soweit, oder ist es anders?

 

Anbei mal ein Bild, was hoffentlich Aufschluss gibt.

Das [Formuar1] beinhaltet das eingebettete [frm_Stammdaten_2] mit dem verbundenen Unterformular [ufo_Aenderungen].

 

Wenn der Button in Formular1 ist und du prüfen willst, ob im Ufo etwas geändert wurde, dann musst du dich darauf beziehen:
Code:

Ich hab' grad nicht im Kopf, ob Dirty für das Ufo auch eintritt, wenn nur im Ufo des Ufo Änderungen vorgenommen wurden - das evtl. noch zusätzlich prüfen.

Wahrscheinlich sind aber durch das Wechseln zum Button im Hauptform die Daten in den Ufos bereits gespeichert
und somit ist dann nicht mehr "Dirty".

Dann müsstest du die Prüfung im Ereignis "Vor Aktualisierung" des Ufos unterbringen.

maike

 

Hallo Maike, schön auch mal wieder von Dir zu lesen. *Smilie

Also im Regelfall ist es so das wenn im eingebetteten Formular [frm_Stammdaten_2] eine Änderung erfolgt, AUCH ein neuer Eintrag im UFO [ufo_Aenderungen] (das beinhaltet die Änderungshistorie) erfolgt.

Und wenn ich den im eingebetteten Formular laufen lasse und in das Unterfomular wechsle, wird eben auch die ganze Prozedur ausgefürt, was ja so nicht sein soll.

 

Dann hast du imho nur die Wahl:

• in beiden Ufos merken, was geändert wurde (OldValue in einer Variablen oder Tabelle speichern)
• eine public Variable bolAenderung auf true setzen, wenn etwas geändert wurde
• bei Buttonclick abfragen, ob bolAenderung true, dann Prozedur laufen lassen
• wenn Änderungen rückgängig gemacht werden sollen, dann die Werte von OldValue aus den Variablen wieder zurückschreiben

Oder:

• Du beschränkst dich bei der Änderungs-Prüfung auf das frm_Stammdaten_2,
• schreibst bei positiver Antwort (Änderungen speichern ja) die benötigten Daten in die Historientabelle
• und machst erst dann diesen Historien-Datensatz (zum Ergänzen) im Ufo sichtbar (falls das überhaupt notwendig ist).

maike