Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

16.1.2 Codeauslagerung am Beispiel der OK-Schaltfläche

16.1.3 Abbrechen der Bearbeitung auslagern

Natürlich soll nicht nur die Funktion der OK-Schaltfläche in eine eigene Klasse ausgelagert werden, sondern auch die der übrigen Ereignisprozeduren. Die Abbrechen-Schaltfläche führt in der Regel zum Durchführen der Undo-Methode des Formulars und zum anschließenden Schließen. Um diese Anweisungen in der Klasse clsFormCode zu implementieren, fügen Sie im Deklarationsbereich zunächst folgende Zeile hinzu:

Private WithEvents mCancelButton As CommandButton

Außerdem erstellen Sie noch eine Property Set-Prozedur, damit das instanzierende Formular eine Referenz auf die Abbrechen-Schaltfläche übergeben kann, und legen die Prozedur mit der eigentlichen Funktionalität an:

Public Property Set CancelButton(cmb As CommandButton)

    Set mCancelButton = cmb
    mCancelButton.OnClick = "[Event Procedure]"

End Property


Private Sub mCancelButton_Click()
    mForm.Undo
    DoCmd.Close acForm, mForm.Name

End Sub

Listing 16.9: Prozeduren für die ausgelagerte Funktion der Abbrechen-Schaltfläche

Nächster Abschnitt:

16.1.4 Löschen von Datensätzen auslagern

© 2006-2008 André Minhorst Alle Rechte vorbehalten.