---

Hallo Zusammen,

in ACAD VBA kann ich mich mit meinen Anpassungen an die Events von ACAD anhängen (SaveEvent ...).

Kennt jemand eine Möglichkeit diese Funktionen zu unterbrechen ?

Beispiel:

- Anwender drückt speichern

- der Anwender hat bestimmte Felder im Rahmen nicht ausgefüllt

- Der Speicherdialog wird unterbrochen !?

Wie unterbreche ich den Speicherbefehl ?

Sub SaveEvent

If  xx <> BlaBla Then

    MsgBox "Du bist zu DUMM"
    ( Setze Variable xyz = False ?)
    (Exit Sub)
Else
    MsgBox "Speichern wird durchgeführt"
End If

End Sub

Hat hier jemand eine Antwort. Die ACAD Anbieter konnten mir leider nicht helfen.

MfG

BerndB

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

bin per Zufall auf diesen Link gestoßen, könnte mir vorstellen, das er modifiziert eine Lösung für Dein Problem sein kann! http://www.fredrick.com/technicalsupport/acaddocs/td55717.html

------------------
hope this helps

StephanJP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stephan,

DANKE für den Tip.

Habe das ganze ausprobiert.

Die Funktion arbeitet mit dem UNDO Befehl.

Leider kann ich den Speicherdialog nicht mit UnDo rückgängig machen.

Meine Lösung zur Zeit:

Vor dem Speichern (Save_Event) Datei kopieren,
Nach dem Speichern alten Stand zurückschreiben.

Diese Lösung gefällt mir eigentlich überhaupt nicht. 

Da ich BeginSave nicht unterdrücken kann, sehe ich leider keine andere Lösung ?!

MfG

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP