Office: Speichern Abfrage

Office 2000

Guten Morgen an alle,

ich hab folgendes Problem:

Genau beschrieben... ich habe ein Formular in dem per Button ein anderes Formular geöffnet wir in dem Datensätze erstellt und verändert werden können. Diese Datensätze greifen natürlich auf Tabellen zu. Nun möchte ich aber das beim Schliesen des Formulars erst eine Abfrage kommen sollen mit " Soll es gespeichert werden Ja oder Nein" bei Ja einfach ganz normal das Formular verlassen und speicher bei nein sollen die Datensätze wieder auf den ursprünglichen Wert zurückgestellt werden.

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If Me.Dirty Then 
        If MsgBox("Änderungen speichern?", vbYesNo, "Speichern") = vbNo Then 
            Me.Undo 
        End If 
    End If 
End Sub

ich habs damit probiert aber es funktioniert nicht die Datensätze werden überschrieben und es kommt nicht mal das Dialog Fenster.

Vielen Dank schon mal im voraus für hilfe

 

Hi,

wenn das beim Schießen ausgeführt werden soll, warum benutzt Du dann nicht auch dieses Ereignis (sollte ja ein Button bei Dir sein). Dort kommt dann Dein Code rein.

Das mit dem "Update" des Formulares wird wohl nicht ausgeführt...!

 

hi,

nene ich habe keinen schliessen Button der Dialog soll kommen wenn das Formular durch das normale windows "x" geschlossen wird.

 

Komischer weise .... wenn ich einen Button in dem Formular erstelle dem ich den Befehl

Form.Undo

gebe, das funktioniert auch nicht die daten kehren nicht in ihren ursprünglichen wert zurück. oder stimmt das so nicht?

 

Hi,

noirmalerweise wäre das so schon ok. Beim Schlißen ein Undo. Das hilft aber nur dann, wenn es davor keinen Speichervorgang - welcher Art auch immer - gegeben hat. Access kann nur die "temporären" Änderungen verwerfen.

Da ich nicht weiß, wie Dein Formular aufgebautr ist udn was dort genau wo passiert - kann ich dazu nicht viel sagen.

 

Genau das ist das Problem ich weiss selber nicht "ganz genau" wie es aufgebaut ist. Und leider ist VBA für mich auch noch Neuland. ( Ich bin grade im ersten Ausbildungsjahr und hab das grad als Aufgabe bekommen... )

 

Hi,

Du könntest natürlich auch ein Beispiel hochladen...dann sieht man klarer....

 

hmm ok ich glaube ich hab das Problem erkannt...

das hier:

Code:

If Me.Dirty Then
        If MsgBox("Änderungen speichern?", vbYesNo, "Speichern") = vbNo Then
            Me.Undo
        End If
    End If

klappt aber leider komischerweisse nur bei den einzelnen feldern in die ich daten eingebe. d.h. ich musste den code in jedes einzelne feld eingeben und der dialog würde dann bei jedem wechseln kommen...
Woran kann das liegen das es NICHT für das ganze Formular klappt...

 

Ok danke für die Hilfe mein Problem ist gelöst
In dem Formular gabs noch unterformulare wo die einzelnen Eingabefelder waren und es ging als ich bei den drei unterformularen jeweils beim before update das mit dem dirty abfrug.
Also denke ich mal das es daran lag!?!?!