Ansichten eines Unterformulars umschalten
Veröffentlicht am 30.12.2003
Manchmal kann eine Schaltfläche zum Umschalten der Ansicht eines Unterformulars den Komfort erhöhen.
Da die Eigenschaft Standardansicht (engl. DefaultView) leider nur in der Entwurfsansicht eingestellt werden darf, müssen Sie eine Kopie des Unterformulars erstellen.
Markieren Sie dazu das Unterformular im Datenbankfenster, wählen Sie den Menübefehl Bearbeiten / Kopieren und anschließend Bearbeiten / Einfügen.
Geben Sie der Kopie einen aussagekräftigen Namen wie beispielsweise Unterformular – Datenblatt. Für die gerade erstellte Kopie aktivieren Sie nun noch die Datenblattansicht.
Öffnen Sie die Kopie im Entwurfsmodus und ändern Sie die Standardansicht-Eigenschaft in Datenblatt. Ihre Datenbank sollte jetzt zwei identische Formulare enthalten, die sich nur durch den Inhalt der Standardansicht-Eigenschaft unterscheiden.
Die folgende Prozedur verändert den Inhalt der Eigenschaft Herkunfsobjekt (engl. SourceObject), um jeweils das eine oder das andere Unterformular zu laden. Sie können Sie Prozedur direkt an das Klick-Ereignis einer Schaltfläche binden.
Vor dem Einsatz der Prozedur müssen Sie den Namen des Steuerelements sowie den Namen des Unterformularsteuerelements (in diesem Beispiel Bestellungsdaten) entsprechend anpassen.
Private Sub btnAnsicht_Click()
Dim uform As Control
Set uform = Me![Bestellungsdaten]
If uform.SourceObject = "Unterformular - Einzeln" Then
uform.SourceObject = "Unterformular - Datenblatt "
Else
uform.SourceObject = "Unterformular - Einzeln "
End If
End Sub
Das Unterformular in der Datenblattansicht….. (siehe Abbildung 2)
