<\/p>\n
Christoph Spielmann, Düsseldorf<\/b><\/p>\n
Zu einer guten Entwicklungsumgebung gehört normalerweise die Möglichkeit, dass sich die zur Verfügung gestellten Bausteine wie Klassen, Objekte und Steuerelemente mit den Bordmitteln beliebig erweitern und ergänzen lassen. Leider ist Access hier insbesondere im Bereich der Steuerelemente gravierend eingeschränkt. Dieser Artikel zeigt Ihnen, wie Sie trotzdem neue Controls mit Access entwickeln und einsetzen können.<\/b><\/p>\n
Eine besondere Eigenschaft von Steuerelementen ist, dass Sie ein einziges Mal programmiert bzw. definiert werden und dann in unterschiedlichen Formularen beliebig oft eingesetzt werden können.<\/p>\n
Eine weitere Eigenschaft ist, dass sie universell einsetzbar sind und sich je nach Einsatzgebiet ggf. an die besonderen Bedingungen anpassen lassen. Solche Eigenschaften stellen unter Access im Prinzip alle eingebauten Steuerelemente zur Verfügung, jedoch bietet nur ein Steuerelement die Möglichkeit zur individuellen Programmierung. Hierbei handelt es sich um das Unterformular-Steuerelement.<\/p>\n
Die Besonderheit dieses Steuerelements ist, dass Sie hier ein beliebiges Formular innerhalb eines anderen Formulars anzeigen können. Dies funktioniert natürlich auch mehrfach.<\/p>\n
So kann beispielsweise ein Unterformular innerhalb eines Formulars auch mehrmals angezeigt werden.<\/p>\n
Das Unterformular-Steuerelement sorgt hierbei automatisch dafür, dass von dem betreffenden Formular mehrere Instanzen erzeugt werden, die zwar auf der gleichen Formulardefinition basieren, aber ansonsten unabhängig sind. Beispielsweise kann der Wert einer privaten Variablen in den unterschiedlichen Instanzen auch unterschiedliche Werte annehmen, obwohl diese Variable nur ein einziges Mal definiert ist.<\/p>\n
In diesem Zusammenhang verwendet man häufig die beiden Begriffe Klasse und Objekt. Eine Klasse ist eine Schema-Definition, also quasi eine Bauanleitung. Auf der Basis einer Klasse können dann mehrere Objekte (oder Objektinstanzen) erzeugt werden.<\/p>\n
Bei einem Formular innerhalb des Datenbankfensters von Access handelt es sich immer um eine Klasse. Erst wenn Sie das Formular öffnen, wird ein entsprechendes Objekt erzeugt.<\/p>\n
Mit Hilfe von VBA-Programmcode ist es sogar möglich, mehrere Objektinstanzen eines Formulars zu erzeugen.<\/p>\n
Das Formular erscheint in diesem Fall mehrfach auf dem Bildschirm, was zum Beispiel bei der gleichzeitigen Bearbeitung mehrerer Datensätze Sinn machen könnte.<\/p>\n
Einen ähnlichen Effekt erzielen Sie, wenn Sie ein Formular mehrmals als Unterformular in ein Hauptformular einbetten.<\/p>\n
Um die Anlage der einzelnen Objektinstanzen kümmert sich in diesem Fall Access selbst.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{5718F3D4-8D30-4615-AE5C-4048ABD5A70F}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die PickList im Einsatz<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Aufbau der Tabelle tblAdressen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Das Formular frmTest in der Entwurfsansicht<\/span><\/b><\/p>\n Das hier vorgestellte Beispiel zeigt Ihnen, wie Sie eine so genannte „Pick-List“ als Steuerelement realisieren. Hierbei handelt es sich um zwei Listenfelder, zwischen denen Sie Einträge durch Doppelklicks von links nach rechts übernehmen können (siehe Bild 1).<\/p>\n Solche Steuerelemente werden z. B. dann eingesetzt, wenn Sie aus einer Tabelle mehrere Einträge selektieren möchten.<\/p>\n Eine wichtige Anforderung an dieses Steuerelement ist, dass es möglichst universell und ohne viel Programmieraufwand eingesetzt werden kann.<\/p>\n Dementsprechend greift das Steuerelement nicht direkt auf eine bestimmte Access-Tabelle zu, sondern erwartet die Angabe der Tabelle als Konfigurationsparameter. Einzige Anforderung ist, dass die zugrunde liegende Tabelle ein aktualisierbares Ja\/Nein-Feld enthält.<\/p>\n In der Beispieldatenbank Control.mdb finden Sie eine entsprechende Tabelle namens tblAdressen (siehe Bild 2). Das Ja\/Nein-Feld IstAusgewählt bestimmt hierbei, ob die Adresse (z. B. für einen Serienbrief) selektiert ist.<\/p>\n Weiterhin enthält die Beispieldatenbank das Formular ctlPickList, also das eigentliche Steuerelement sowie das Formular frmTest (siehe Bild 3) als Test-Container für das Steuerelement. Innerhalb des Formulars frmTest befindet sich ein Unterformular-Steuerelement, das ebenfalls den Namen ctlPickList trägt.<\/p>\n <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Hier ist das gleichnamige Formular als Unterformular untergebracht. Damit das Steuerelement nicht als Unterformular erkennbar ist, sind sämtliche Rahmen und Navigationselemente des Unterformulars ausgeblendet.<\/p>\n Wie bereits angedeutet, ist eine wesentliche Anforderung an das Steuerelement eine einfache Benutzung. Dementsprechend erfolgt die Initialisierung des Steuerelements durch nur eine Programmzeile im Load-Ereignis des Formulars frmTest (s. Quellcode 1).<\/p>\n Die Initialisierung erfolgt mit Hilfe der SetDataSource-Funktion, der lediglich einige Daten zu der Tabelle übergeben werden, auf der die PickList basieren soll. Dazu gehören beispielsweise der Tabellenname, der Name des Anzeigefeldes, der Name des Primärschlüsselfeldes sowie der Name des Ja\/Nein-Feldes.<\/p>\n Nach der Initialisierung ist das Steuerelement bereits voll einsatzfähig.<\/p>\n Die komplette Logik zur Anzeige sowie Aktualisierung der Daten ist in dem Klassenmodul des Formulars ctlPickList untergebracht.<\/p>\n Die Hauptprozedur SetDataSource haben Sie bereits kennen gelernt. Sie dient der Initialisierung des Steuerelements (s. Quellcode 2).<\/p>\n Diese Prozedur macht nichts anderes als die übergebenen Parameter an private Variablen des Klassenmoduls zu übergeben.<\/p>\n Diese Variablen werden auch als „Member“-Variablen der Klasse bezeichnet, weswegen ihnen häufig das Präfix „m_“ vorangestellt wird. Die Member-Variablen sind im Kopf des Klassenmoduls deklariert (s. Quellcode 3).<\/p>\n Als letzte Anweisung wird von der SetDataSource-Methode die RefreshData-Methode aufgerufen. Sie ist für die Aktualisierung der linken und der rechten Liste zuständig (s. Quellcode 4). In der linken Liste werden nur Einträge aufgelistet, bei denen das Ja\/Nein-Feld den Wert False hat. Alle übrigen Einträge werden in der rechten Liste aufgeführt.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die Prozedur stellt zu diesem Zweck mit Hilfe der Informationen der Member-Variablen zwei SQL-Anweisungen zusammen und weist diese der RowSource-Eigenschaft der betreffenden Listenfelder zu. Abschließend erfolgt noch eine Aktualisierung mittels Requery-Methode.<\/p>\n Um einen Eintrag von der linken in die rechte Liste zu befördern, klickt der Benutzer die Schaltfläche „>“ an, die sich zwischen den beiden Listenfeldern befindet. Diese Schaltfläche ist mit der Ereignisprozedur aus Quellcode 5 verknüpft.<\/p>\n Auf ähnliche Weise wie bereits bei der Aktualisierung der beiden Listenfelder stellt auch diese Prozedur zunächst eine SQL-Anweisung zusammen. Diesmal handelt es sich allerdings um eine Aktualisierungsabfrage (UPDATE), die den Wert des Ja\/Nein-Feldes auf True setzt.<\/p>\n Da bei der änderung von Daten mit Fehlern zu rechnen ist (z. B. fehlende Schreibrechte oder Datensatzsperren) wird die Ausführung der SQL-Anweisung in eine Fehlerbehandlungsroutine gekapselt. Diese hat die folgende Struktur:<\/p>\n Durch die Resume-Next-Anweisung (s. Quellcode 6) werden zunächst einmal alle Fehler ignoriert. Anschließend wird mit Err.Number geprüft, ob ein Fehler aufgetreten ist. Dieser wird dann ggf. behandelt.<\/p>\n Der Vorteil dieser Struktur ist, dass Fehler immer sofort an der Stelle behandelt werden, an der sie auftreten. Dies ist in vielen Fällen ein deutlicher Vorteil gegenüber den Sprungmarken der On-Error-Goto-Anweisung. Zudem entspricht dies dem Try-Catch-Finally-Konstrukt, das z. B. von VB.NET zur Behandlung von Fehlern eingesetzt wird.<\/p>\n Die btnSelect_Click-Ereignisprozedur nutzt dieses Konstrukt, um im Fehlerfall eine Meldung anzuzeigen und im Erfolgsfall die beiden Listenfelder zu aktualisieren.<\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Zum Entfernen von Einträgen aus der rechten Liste ist die Ereignisprozedur des Buttons „<“ zuständig.<\/p>\n Sie hat einen fast identischen Aufbau. Anstatt das Ja\/Nein-Feld auf True zu setzen, wird dieses jedoch auf False gesetzt. Außerdem greift sie nicht auf das linke, sondern das rechte Listenfeld zu. Den kompletten Aufbau entnehmen Sie der Beispieldatenbank.<\/p>\n Um das Hinzufügen und Entfernen von Einträgen weiter zu vereinfachen, kann der Benutzer anstelle eines Klicks auf die beiden Schaltflächen alternativ auch doppelt auf einen Listeneintrag klicken.<\/p>\n Hierzu sind die beiden Doppelklick-Ereignisse der Listenfelder mit den Ereignisprozeduren aus Quellcode 7 verknüpft:<\/p>\n Wie Sie sehen, werden lediglich die betreffenden Ereignisprozeduren der beiden Schaltflächen aufgerufen.<\/p>\n Die hier vorgestellte Technik zur Entwicklung von Steuerelementen mit Access bietet sich immer dann an, wenn ein identisches Use-Interface-Element mehrmals in einem Formular oder einer Anwendung auftaucht.<\/p>\n Sie sparen dadurch das Kopieren von Programmcode, was Ihre Anwendung übersichtlicher und damit pflegeleichter macht.<\/p>\n Leider gibt es auch Nachteile. So können mit Hilfe von Unterformularen entwickelte Steuerelemente keine nutzbaren Ereignisse auslösen, was den Einsatzbereich einschränkt.<\/p>\n Sollten Sie darauf nicht verzichten können, bleibt Ihnen leider nur der Einsatz von Visual Basic übrig.<\/p>\n Hier können Sie Steuerelemente entwickeln, die Sie innerhalb von Access genauso wie die fest eingebauten Steuerelemente verwenden können und die sich kaum davon unterscheiden.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Control.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{5718F3D4-8D30-4615-AE5C-4048ABD5A70F}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{5718F3D4-8D30-4615-AE5C-4048ABD5A70F}\/pic003.png\")
<\/p>\nPrivate Sub Form_Load()\r\n Me.ctlPickList.Form.SetDataSource \"tblAdressen\", _ \"Nachname\", \"AdresseID\", \"IstAusgewählt\", \"\"\r\nEnd Sub<\/pre>\n
Public Sub SetDataSource(DataSource As String, _ DisplayField As String, KeyField As String, _ SelectionField As String, Condition As String)\r\n m_DataSource = DataSource\r\n m_DisplayField = DisplayField\r\n m_KeyField = KeyField\r\n m_SelectionField = SelectionField\r\n m_Condition = Condition\r\n RefreshData\r\nEnd Sub<\/pre>\n
Option Compare Database\r\nOption Explicit\r\nPrivate m_DataSource As String\r\nPrivate m_DisplayField As String\r\nPrivate m_KeyField As String\r\nPrivate m_SelectionField As String\r\nPrivate m_Condition As String<\/pre>\n
Public Sub RefreshData()\r\n Dim SQLBase As String\r\n Dim SQLAll As String\r\n Dim SQLSelected As String\r\n SQLBase = \"SELECT \" + m_DisplayField + \", _ \" + m_KeyField + \" FROM \" + m_DataSource\r\n If Len(m_Condition) > 0 Then\r\n SQLBase = SQLBase + \" WHERE \" + m_Condition\r\n Else\r\n SQLBase = SQLBase + \" WHERE True\"\r\n End If\r\n SQLAll = SQLBase\r\n SQLAll = SQLAll + \" AND \" + m_SelectionField _ + \"=False\"\r\n SQLAll = SQLAll + \" ORDER BY \" + m_DisplayField\r\n SQLSelected = SQLBase\r\n SQLSelected = SQLSelected + \" AND \" _ + m_SelectionField + \"=True\"\r\n SQLSelected = SQLSelected + \" ORDER BY \" _ + m_DisplayField\r\n Me.lstAll.RowSource = SQLAll\r\n Me.lstSelected.RowSource = SQLSelected\r\n Me.lstAll.Requery\r\n Me.lstSelected.Requery\r\nEnd Sub<\/pre>\n
Private Sub btnSelect_Click()\r\n Dim ID As Integer\r\n Dim SQL As String\r\n If IsNull(Me.lstAll.Value) Then Exit Sub\r\n Cancel = False\r\n ID = Me.lstAll.Value\r\n SQL = \"UPDATE \" + m_DataSource + \" SET \" _ + m_SelectionField + \"=True WHERE \" _ + m_KeyField + \"=\" + CStr(ID)\r\n On Error Resume Next\r\n CurrentProject.Connection.Execute SQL\r\n If Err.Number = 0 Then\r\n Me.RefreshData\r\n Else\r\n Err.Raise vbObjectError + 1, _ \"Datensatz konnte nicht ausgewählt werden\"\r\n End If\r\nEnd Sub<\/pre>\n
Entfernen von Einträgen<\/h3>\n
On Error Resume Next\r\n <Anweisungen> \r\nIf Err.Number = 0 Then\r\n <Anweisungen im Nicht-Fehlerfall>\r\nElse\r\n <Anweisungen im Fehlerfall>\r\nEnd If<\/pre>\n
Private Sub lstAll_DblClick(Cancel As Integer)\r\n btnSelect_Click\r\nEnd Sub\r\nPrivate Sub lstSelected_DblClick(Cancel As Integer)\r\n btnUnSelect_Click\r\nEnd Sub<\/pre>\n
Auswahl per Doppelklick<\/h3>\n
Downloads zu diesem Beitrag<\/h3>\n