<\/p>\n
Autor: André Minhorst und Michael Kessel, Duisburg<\/p>\n
<\/b><\/p>\n
Eine Datenbank ist prädestiniert für die Pflege der Informationen über Ihre Mitarbeiter. Sie dient der Speicherung der Mitarbeiterdaten sowie der Daten über deren Beschäftigungsverhältnisse und weiterer Informationen – wie z. B. der Projekte, an denen sie beteiligt sind. In der Ausgabe 7\/2001 haben Sie im ersten Teil des vorliegenden Beitrags erfahren, wie Sie mit Access Tabellen und deren Beziehungen auf der Basis der MSDE aufbauen können, und einige Beispiele für gespeicherte Prozeduren und Trigger kennen gelernt. Nun geht es an das Frontend – und damit an die Programmierung der Formulare und Berichte.<\/b><\/p>\nHinweis<\/h3>\n
Der vorliegende Beitrag setzt das Vorhandensein von Access 2000 sowie die Installation der MSDE bzw. des SQL Servers voraus. Wie das funktioniert, erfahren Sie im Beitrag Die Microsoft Data Engine der Ausgabe 1\/2000 von Access im Unternehmen. Sie finden den Beitrag im PDF-Format auf der Heft-CD. <\/p>\n
Die Mitarbeiterverwaltung benötigt fünf Formulare, von denen zwei allerdings Unterformulare eines weiteren Formulars sind.<\/p>\n
Das erste Formular namens frmMitarbeiterAuswahl (siehe Bild 1) dient zur Auswahl des anzuzeigenden Mitarbeiters aus einem Listenfeld. Dabei gibt es noch einige Optionen, mit denen die Auswahl der angezeigten Mitarbeiter eingeschränkt werden kann. Von diesem Formular aus kann man Detailinformationen zu dem ausgewählten Mitarbeiter aufrufen.<\/p>\n
Die Detailinformationen werden in dem Formular frmMitarbeiterDetail angezeigt (siehe Bild 8). Das Formular ist gleichzeitig Hauptformular für zwei Unterformulare.<\/p>\n
Das Unterformular sfmMitarbeiterBeschaeftigungen zeigt das aktuelle und ggf. vorherige Beschäftigungsverhältnis des jeweiligen Mitarbeiters an. Das Unterformular namens sfmMitarbeiterProjekte zeigt die aktuellen Projekte eines Mitarbeiters.<\/p>\n
Regelmäßigen Lesern von Access im Unternehmen und des Praxishandbuchs Access sind die meisten der nachfolgend beschriebenen Techniken zur Erstellung von Formularen, Unterformularen und deren Steuerelementen bekannt. Daher wird verstärkt auf solche Techniken eingegangen, bei denen es Unterschiede zwischen herkömmlichen Access-Datenbanken und Access-Projekten gibt. <\/p>\n
Das Formular zur Anzeige der Mitarbeiterdetails soll wie in Bild 1 aussehen. Es beinhaltet vier Schaltflächen, ein Kontrollkästchen, zwei Textfelder und ein Listenfeld.<\/p>\n
Legen Sie am besten zunächst ein neues Formular mit den entsprechenden Steuerelementen an und bezeichnen Sie die Steuerelemente wie in Tab. 1 angegeben. Speichern Sie es anschließend unter dem Namen frmMitarbeiterAuswahl.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Das fertige Formular zur Verwaltung der Mitarbeiter<\/span><\/b><\/p>\n Steuerelementname<\/b><\/p>\n<\/td>\n Steuerelement bezeichnung<\/b><\/p>\n<\/td>\n<\/tr>\n cmdNeuerMitarbeiter<\/p>\n<\/td>\n Neuer Mitarbeiter<\/p>\n<\/td>\n<\/tr>\n cmdMitarbeiterLoeschen<\/p>\n<\/td>\n Mitarbeiter löschen<\/p>\n<\/td>\n<\/tr>\n cmdBeschaeftigungLoeschen<\/p>\n<\/td>\n Beschäftigung löschen<\/p>\n<\/td>\n<\/tr>\n cmdListeDrucken<\/p>\n<\/td>\n Aktuelle Liste drucken<\/p>\n<\/td>\n<\/tr>\n ctlAlle<\/p>\n<\/td>\n txtEintrittVon<\/p>\n<\/td>\n Eintritt von:<\/p>\n<\/td>\n<\/tr>\n txtEintrittBis<\/p>\n<\/td>\n Eintritt bis:<\/p>\n<\/td>\n<\/tr>\n lstMitarbeiter<\/p>\n<\/td>\n Tab. 1: Steuerelemente des Formulars frmMitarbeiterAuswahl<\/b><\/p>\n Die Steuerelemente zur Filterung der Datensatzherkunft des Listenfeldes<\/b><\/p>\n Um den Rahmen des vorliegenden Beitrags nicht zu sprengen, soll der Inhalt des Listenfeldes nur nach zwei Kriterien gefiltert werden. Das erste Argument liefert das Kontrollkästchen ctlAlle. Es soll festlegen, ob alle Beschäftigungsverhältnisse aller Mitarbeiter oder nur aktuelle Beschäftigungsverhältnisse angezeigt werden sollen. <\/p>\n Außerdem soll der Benutzer den Zeitraum des Starts des Beschäftigungsverhältnisses eingeben können. Dazu dienen die beiden Textfelder txtEintrittVon und txtEintrittBis.<\/p>\n Die Schaltflächen zum Auslösen weiterer Aktionen<\/b><\/p>\n Das Formular enthält vier Schaltflächen. Die Schaltflächen dienen zum Anlegen eines neuen Mitarbeiters, zum Löschen eines Mitarbeiters oder eines Beschäftigungsverhältnisses sowie zum Drucken einer Liste mit den aktuell ausgewählten Mitarbeitern bzw. Beschäftigungsverhältnissen.<\/p>\n Die Beschreibung der Funktionalität der Schaltflächen folgt im Anschluss an die Beschreibung des Listenfeldes. <\/p>\n Das Listenfeld lstMitarbeiter<\/b><\/p>\n Kernstück des Formulars ist das Listenfeld. Es dient primär zur Anzeige der Mitarbeiter. Außerdem kann der Benutzer per Doppelklick auf einen Eintrag des Listenfeldes die Detailinformationen eines Mitarbeiters in einem weiteren Formular anzeigen.<\/p>\n Während es bei Access-Datenbanken leicht ist, den Inhalt eines Listenfeldes entsprechend bestimmter Auswahlkriterien zu filtern, ist dies bei Access-Projekten in Zusammenarbeit mit der MSDE oder dem SQL Server etwas komplizierter.<\/p>\n Sie können zwar einfach eine entsprechende SQL-Anweisung zusammensetzen und als Datensatzherkunft des Listenfeldes angeben. Dies geht allerdings zu Lasten der Performance, da die Abfrage jedes Mal neu kompiliert und an den SQL Server geschickt werden muss.<\/p>\n Um die Performance bei der Abfrage der gewünschten Daten zu erhöhen, sollten Sie die Abfrage möglichst auf dem SQL Server ausführen. Für einfache Abfragen verwenden Sie einfach eine Sicht. Diese hilft aber nicht mehr weiter, wenn die Abfrage die Verwendung von Parametern erfordert. Daher verwenden Sie eine gespeicherte Prozedur.<\/p>\n <\/b><\/p>\n Bild 2: Die gespeicherte Prozedur procLstMitarbeiter<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Ergebnis einer gespeicherten Prozedur<\/span><\/b><\/p>\n An das Listenfeld sollen drei Parameter übergeben werden: Der Wert des Kontrollkästchens ctlAlle sowie die Inhalte der beiden Textfelder txtEintrittVon und txtEintrittBis.<\/p>\n Eine gespeicherte Prozedur (siehe Bild 2) soll die übergebenen Parameter auswerten und das Ergebnis als Datensatzherkunft des Listenfeldes zurückgeben.<\/p>\n Die gespeicherte Prozedur verwendet drei Parameter. Der Parameter @Alle hat den Datentyp Integer. Der Hintergrund ist die unterschiedliche Anwendung von Ja\/Nein-Werten in Access-Datenbanken und im SQL Server. Während es in Access-Datenbanken die Werte 0 (Falsch), -1 (Wahr) und NULL gibt, verwendet der Datentyp BIT des SQL Servers lediglich die Werte 1 (Wahr) und 0 (Falsch). <\/p>\n Die gespeicherte Prozedur besteht aus einer IF-Abfrage, die den Inhalt der Variablen @Alle überprüft. Falls vom Formular der Wert 0 übergeben wird, sollen nur diejenigen Beschäftigungsverhältnisse zurückgegeben werden, deren Austrittsdatum den Wert NULL hat.<\/p>\n Die beiden Parameter @EintrittVon und @EintrittBis dienen der Einschränkung der Datensätze nach dem Eintrittsdatum.<\/p>\n Sie enthalten jeweils einen Standardwert. Die Standardwerte kommen zum Einsatz, falls die entsprechenden Textfelder keinen Inhalt haben und damit keine Parameter übergeben werden.<\/p>\n Nachdem Sie die gespeicherte Prozedur eingegeben haben, können Sie direkt mit einem Test beginnen (vorausgesetzt, Sie haben bereits einige Daten für die beiden Tabellen tblMitarbeiter und tblBeschaeftigungen eingegeben): Starten Sie einfach einmal die Prozedur per Doppelklick auf ihren Namen im Datenbankfenster.<\/p>\n Daraufhin erscheinen nacheinander drei Eingabefenster, die zur Abfrage der drei Parameter dienen. Nach der Eingabe der Parameter erscheint das Ergebnis der Abfrage (siehe Bild 3).<\/p>\n Quellcode 1<\/b><\/p>\n Funktionalität der Steuerelemente<\/b><\/p>\n In den nächsten Abschnitten erfahren Sie, wie Sie das Listenfeld mit den Ergebnissen der gespeicherten Prozedur füllen und wie Sie der gespeicherten Prozedur die erforderlichen Parameter übergeben.<\/p>\n Die Prozedur aus Quellcode 1 dient der Aktualisierung des Listenfeldes. Sie setzt einen String zusammen, der den Namen der gespeicherten Prozedur procLstMitarbeiter sowie die entsprechenden Parameter enthält.<\/p>\n Die Parameter enthalten die Werte der Steuerelemente ctlAlle, txtEintrittVon und txtEintrittBis. Die Parameter @EintrittVon und @EintrittBis fallen weg, wenn die entsprechenden Textfelder leer sind. In dem Fall verwendet die gespeicherte Prozedur die im Deklarationsteil angegebenen Standardwerte (siehe Bild 2).<\/p>\n Die Prozedur legen Sie im Modul des Formulars frmMitarbeiterAuswahl an. Um das Modul zu öffnen, aktivieren Sie die Entwurfsansicht des Formulars und verwenden den Menübefehl Ansicht\/Code. Daraufhin öffnet sich das entsprechende Modul.<\/p>\n Anschließend müssen Sie dafür sorgen, dass diese Prozedur auch ausgelöst wird. Das soll beim öffnen des Formulars sowie nach der Aktualisierung der drei Steuerelemente ctlAlle, txtEintrittVon und txtEintrittBis passieren.<\/p>\n Dazu legen Sie jeweils eine neue Prozedur für das Ereignis Beim öffnen des Formulars sowie für das Ereignis Nach Aktualisierung der drei anderen Steuerelemente an und geben als einzigen Befehl den folgenden Ausdruck an:<\/p>\n Weitere Informationen zum Anlegen einer Ereignisprozedur finden Sie im Beitrag Anlegen von Ereignisprozeduren im vorliegenden Heft. <\/p>\n Geben Sie außerdem für die Eigenschaft Standardwert des Kontrollkästchens den Wert 0 an.<\/p>\n Anschließend können Sie direkt die neuen Funktionen ausprobieren, indem Sie das Formular speichern und anschließend in der Formularansicht öffnen. Das Ergebnis sieht nun wie in Bild 4 aus. Leider entspricht dies aber nicht dem gewünschten Ergebnis.<\/p>\n Sie können jedoch mit drei kleinen änderungen am Listenfeld nachhelfen:<\/p>\n Ein erneuter Wechsel in die Formularansicht lässt das Ergebnis direkt freundlicher aussehen (siehe Bild 5).<\/p>\n Funktionalität der Schaltflächen<\/b><\/p>\n <\/b><\/p>\n Bild 4: Das Listenfeld zeigt nicht die erwarteten Daten an.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Das Listenfeld mit funktionierender Anzeige<\/span><\/b><\/p>\n Nun widmen Sie sich der Funktionalität der Schaltflächen. Dazu legen Sie für jede Schaltfläche eine eigene Ereignisprozedur an, die in den folgenden Abschnitten beschrieben wird.<\/p>\n Quellcode 2<\/b><\/p>\n Die Schaltfläche cmdNeuerMitarbeiter soll das Formular frmMitarbeiterDetail öffnen, das weiter unten beschrieben wird. In Quellcode 2 finden Sie die dazu notwendige Ereignisprozedur.<\/p>\n Sie verwenden in der Prozedur die Konstante acFormAdd für den Parameter DataMode, damit das aufgerufene Formular nur zur Eingabe verwendet werden kann.<\/p>\n Der Wert acDialog für den Parameter WindowMode bewirkt, dass die Ausführung aller anderen Aktivitäten unterbrochen wird, bis der Anwender das aufgerufene Formular wieder schließt.<\/p>\n Um die Schaltfläche zu testen, können Sie auf die Schnelle ein leeres Formular namens frmMitarbeiterDetail erstellen.<\/p>\n Durch Betätigen der Schaltfläche können Sie das neue Formular öffnen. Nach dem Schließen des Formulars kehren Sie automatisch wieder zum aufrufenden Formular zurück.<\/p>\n Die Schaltfläche cmdMitarbeiterLoeschen soll das Löschen des aktuell im Listenfeld markierten Mitarbeiters bewirken. Dazu legen Sie für die Ereigniseigenschaft Beim Klicken die Prozedur aus Quellcode 3 an.<\/p>\n Quellcode 3<\/b><\/p>\n Die Prozedur fragt zunächst ab, ob der ausgewählte Datensatz auch tatsächlich gelöscht werden soll. Falls ja, führt die Abfrage eine gespeicherte Prozedur zum Löschen des Datensatzes durch. Der Text der gespeicherten Prozedur zum Löschen des gewünschten Datensatzes ist in Quellcode 4 enthalten.<\/p>\n <\/p>\n Quellcode 4<\/b><\/p>\n Die VBA-Prozedur übergibt dabei die Datensatznummer des entsprechenden Mitarbeiters an die gespeicherte Prozedur.<\/p>\n Möglicherweise fragen Sie sich, was mit den Einträgen der Tabelle tblBeschaeftigungen passiert, die mit dem gelöschten Mitarbeiter verknüpft sind. Diese können ja eigentlich ebenfalls entfernt werden, da keine passenden Mitarbeiterdaten mehr vorhanden sind.<\/p>\n Im ersten Teil des vorliegenden Beitrags in Ausgabe 7\/2001 haben Sie bereits einen Trigger erstellt, der dieses Problem löst. Dieser Trigger löscht alle Datensätze der Tabelle tblBeschaeftigungen, die zum gelöschten Mitarbeiter gehören.<\/p>\n Möglicherweise möchten Sie einmal nicht die kompletten Mitarbeiterdaten, sondern nur die Daten zu einem Beschäftigungsverhältnis löschen. In dem Fall verwenden Sie die Schaltfläche mit der Beschriftung Beschäftigung löschen.<\/p>\n Die Vorgehensweise ist prinzipiell mit der beim Löschen eines Mitarbeiters vergleichbar. Allerdings kann es vorkommen, dass Sie auf diese Weise alle Beschäftigungsverhältnisse eines Mitarbeiters löschen und dieser dann nicht mehr im Listenfeld angezeigt wird.<\/p>\n Daher soll die Anwendung – falls nur ein Beschäftigungsverhältnis für den Mitarbeiter vorhanden ist – den Benutzer fragen, ob der Mitarbeiter direkt mitgelöscht werden soll.<\/p>\n Der Nebeneffekt dieser Mehrarbeit ist, dass Sie direkt lernen, eine gespeicherte Prozedur mit Rückgabeparameter zu erstellen.<\/p>\n Der Ablauf beim Löschen der Beschäftigung sieht folgendermaßen aus: Zunächst wählt der Benutzer das zu löschende Beschäftigungsverhältnis aus und betätigt die entsprechende Schaltfläche.<\/p>\n Die dadurch ausgelöste Prozedur überprüft, ob es noch weitere Beschäftigungsverhältnisse zu dem entsprechenden Mitarbeiter gibt. Falls ja, fragt sie den Benutzer, ob direkt der komplette Mitarbeiterdatensatz gelöscht werden soll.<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Sie benötigen eine gespeicherte Prozedur zur Ermittlung der Anzahl der Beschäftigungen des Mitarbeiters (s. Quellcode 5). Die Prozedur enthält die zwei Parameter @Beschaeftigung und @AnzahlBeschaeftigungen. Der zweite Parameter wird durch das angehängte Schlüsselwort OUTPUT als Rückgabeparameter deklariert.<\/p>\n Nach der Deklaration des Hilfsparameters @MitarbeiterID wird diesem in einer Abfrage die MitarbeiterID des Mitarbeiters zugewiesen, zu dem das zu löschende Beschäftigungsverhältnis gehört.<\/p>\n In einer zweiten Abfrage werden alle Datensätze der Tabelle tblBeschaeftigungen ermittelt, die zu diesem Mitarbeiter gehören. Hinter dem Ausdruck @@ROWCOUNT verbirgt sich eine der vielen eingebauten SQL-Funktionen. Diese ermittelt die Anzahl der Datensätze des aktuellen Abfrageergebnisses und weist sie dem Rückgabeparameter @AnzahlBeschaeftigungen zu.<\/p>\n Die Funktion zum Aufruf der gespeicherten Prozedur und zum Auslesen des Rückgabeparameters finden Sie in Quellcode 6.<\/p>\n Um der gespeicherten Prozedur den Eingabeparameter zu übergeben und den Rückgabeparameter zu ermitteln, verwenden Sie ein Command-Objekt mit einer Parameters-Auflistung.<\/p>\n Nach der Deklaration und dem Erstellen der Objekte werden zunächst die Eigenschaften des Command-Objektes wie die auszuführende Prozedur und ihre Art festgelegt. Anschließend erstellt man die zwei benötigten Parameter und fügt sie der Parameters-Auflistung des Command-Objektes zu. Nach der Ausführung des Command-Objektes kann der Rückgabeparameter leicht aus der Parameters-Auflistung ausgelesen werden.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Schließlich fehlt noch die Ereignisprozedur für die Schaltfläche cmbBeschaeftigungLoeschen (s. Quellcode 7). Die Prozedur fragt zunächst, ob die Beschäftigung auch wirklich gelöscht werden soll. Falls ja, überprüft sie die Anzahl der vorhandenen Beschäftigungen für den aktuellen Mitarbeiter. Falls es nur eine Beschäftigung gibt, fragt die Prozedur zusätzlich, ob der komplette Mitarbeiterdatensatz gelöscht werden soll, und führt die gewünschte Aktion durch.<\/p>\n Das Drucken der Mitarbeiterliste soll durch Betätigung der Schaltfläche cmdListeDrucken ausgelöst werden. Dazu ist die Ereignisprozedur aus Quellcode 8 erforderlich.<\/p>\n Quellcode 9<\/b><\/p>\n Die Erstellung eines entsprechenden Berichts erfolgt erst in einer der folgenden Ausgaben von Access im Unternehmen. Sie sollten die Schaltfläche trotzdem schon erstellen, um zu gegebener Zeit den entsprechenden Bericht anzeigen zu können. <\/p>\n Anzeigen der Mitarbeiterdetails<\/b><\/p>\n Eine der wichtigsten Funktionen ist die Anzeige der Details des ausgewählten Mitarbeiters. Die Anzeige soll durch einen Doppelklick auf den gewünschten Mitarbeiter im Listenfeld erfolgen. Dazu hinterlegen Sie die Prozedur aus Quellcode 9 für die Ereigniseigenschaft Beim Doppelklicken des Listenfeldes. Die Anzeige erfolgt in einem weiteren Formular namens frmMitarbeiterDetail. Damit das Formular den richtigen Datensatz anzeigt, übergeben Sie als Filterkriterium die Mitarbeiternummer des im Listenfeld ausgewählten Mitarbeiters.<\/p>\n Alternative zum Listenfeld:Mitarbeiter per Unterformular<\/b><\/p>\n Bei fast allen Dingen, die Sie mit Access erledigen können, gibt es unterschiedliche Vorgehensweisen. Für die Anzeige und Auswahl der Mitarbeiter haben Sie in den vorhergehenden Abschnitten mit dem Listenfeld sicher eine recht komplizierte Methode kennen gelernt. Die Aktualisierung des Inhalts eines Listenfeldes ist auch keinesfalls trivial – zumindest nicht in einem Access-Projekt und mit einer gespeicherten Prozedur als Datensatzherkunft.<\/p>\n Technisch ist es einfacher, wenn Sie statt eines Listenfeldes ein Unterformular verwenden würden. Allerdings verzichten Sie damit auf einige Vorteile des Listenfeldes:<\/p>\n Es verleitet den Benutzer z. B. nicht dazu, direkt an Ort und Stelle Daten verändern zu wollen, anstatt den Datensatz im Detailformular anzuzeigen. Das ist nämlich in Access-Projekten nicht so einfach möglich – zumindest, wenn die Datenherkunft aus mehr als einer Tabelle besteht. Außerdem ermöglicht es die einfache Anzeige der Datensätze im Detailformular per Doppelklick und es sieht in vielen Fällen übersichtlicher aus.<\/p>\n Dennoch soll hier kurz die alternative Verwendung eines Unterformulars beschrieben werden. Dazu erstellen Sie zunächst unter dem Namen frmMitarbeiterAuswahl2 eine Kopie des Formulars frmMitarbeiterAuswahl. Löschen Sie anschließend das Listenfeld aus dem Formular.<\/p>\n Erstellen Sie ein neues Unterformular namens sfmMitarbeiterAuswahl2. Legen Sie als Datenherkunft genau wie beim Listenfeld die gespeicherte Prozedur procLstMitarbeiter fest.<\/p>\n Das Formular soll als Standardansicht den Wert Datenblatt erhalten. Ziehen Sie die Felder wie in Bild 6 in den Detailbereich des Formulars. <\/p>\n <\/b><\/p>\n Bild 6: Das Unterformular sfmMitarbeiterAuswahl2<\/span><\/b><\/p>\n Der wichtigste Schritt steht allerdings noch bevor: Sie müssen festlegen, woher die gespeicherte Prozedur ihre Parameter bezieht. Im Falle des Listenfeldes haben Sie die gespeicherte Prozedur direkt mit angehängten Parametern aufgerufen.<\/p>\n Quellcode 10<\/b><\/p>\n Wenn Sie eine gespeicherte Prozedur als Datenherkunft eines Formulars oder Berichtes verwenden, geht dies noch einfacher: Benutzen Sie einfach die Eigenschaft Eingabeparameter des Formulars. Hier können Sie den Parametern die entsprechenden Steuerelemente des Hauptformulars zuweisen, aus denen die benötigten Werte zu entnehmen sind. Im vorliegenden Fall sieht das beispielsweise wie in Quellcode 10 aus.<\/p>\n Wie Sie sehen, erfolgt an einigen Stellen eine Abfrage, ob die Steuerelemente den Wert NULL haben. Ist das der Fall, wird statt des Steuerelementinhalts ein alternatives Datum übergeben, z. B. 01.01.1950 als @EintrittVon.<\/p>\n <\/b><\/p>\n Bild 7: Die Mitarbeiterauswahl per Unterformular <\/span><\/b><\/p>\n Damit übergehen Sie die in der gespeicherten Prozedur angegebenen Standardwerte. Diese werden nämlich nur verwendet, wenn die entsprechenden Parameter nicht im Aufruf der gespeicherten Prozedur enthalten sind. <\/p>\n Wenn Sie nun das Unterformular in das Hauptformular ziehen und noch einige Schönheitsoperationen vornehmen, erhalten Sie ein Formular wie in Bild 7.<\/p>\n Um das Unterformular statt des Listenfeldes zu verwenden, müssten Sie nun noch einige Prozeduren anpassen. Da dies den Rahmen sprengen würde und die Verwendung des Listenfeldes ohnehin sinnvoller ist, soll hier auf die Beschreibung der notwendigen Schritte verzichtet werden.<\/p>\n Das Formular zur Anzeige der Mitarbeiterdetails hat zwei Aufgaben: Die Eingabe neuer Mitarbeiter sowie das Anzeigen und Bearbeiten bestehender Mitarbeiter.<\/p>\n Es besteht aus einigen Text- und Kombinationsfeldern zur Charakterisierung des Mitarbeiters sowie aus einem Registersteuerelement, in dem sich zwei Registerseiten zur Aufnahme zweier Unterformulare befinden.<\/p>\n Das Unterformular sfmMitarbeiterBeschaeftigungen zeigt alle vorhergehenden und aktuellen Beschäftigungen des ausgewählten Mitarbeiters an. Hier kann der Benutzer bestehende Daten einsehen und bearbeiten sowie die Daten zu neuen Beschäftigungsverhältnissen eingeben. Es handelt sich hierbei um die Realisierung einer 1:n-Beziehung zwischen den Tabellen tblMitarbeiter und tblBeschaeftigungen.<\/p>\n <\/b><\/p>\n Bild 8: Das Formular zur Detailansicht von Mitarbeitern<\/span><\/b><\/p>\n Das Unterformular sfmMitarbeiterProjekte dient der Anzeige aller Projekte eines Mitarbeiters.<\/p>\n Im Gegensatz zur Beziehung zwischen Mitarbeitern und Beschäftigungen können Sie hier nicht nur jedem Mitarbeiter n verschiedene Projekte zuweisen. Jedes dieser n Projekte können Sie auch jedem der m vorhandenen Mitarbeiter zuordnen. Daher ist hier die Verwendung einer m:n-Beziehung erforderlich.<\/p>\n Das HauptformularfrmMitarbeiterDetail<\/b><\/p>\n Das Aussehen des Hauptformulars können Sie Bild 8 entnehmen. Die Tabelle tblMitarbeiter dient als Datenherkunft. Normalerweise sollten Sie hier auch eine gespeicherte Prozedur zur übertragung des ausgewählten Datensatzes verwenden, anstatt die komplette Tabelle vom Server zu übertragen. Im vorliegenden Fall soll die Performance aber ausnahmsweise einmal vernachlässigt werden.<\/p>\n In Access-Tabellen können Sie Nachschlagefelder für die Auswahl von Daten verknüpfter Tabellen verwenden. Wenn Sie ein solches Feld in einem Formular benutzen, erstellt Access automatisch ein Kombinationsfeld. In Access-Projekten im Zusammenspiel mit dem SQL Server gibt es keine Nachschlagefelder.<\/p>\n Daher müssen Sie selbst Hand anlegen, um beispielsweise aus dem Feld Geschlecht ein Kombinationsfeld zur Auswahl des gewünschten Eintrags aus der Tabelle tblGeschlecht zu ermöglichen. Gehen Sie dazu folgendermaßen vor:<\/p>\n Fertig! Wiederholen Sie den Vorgang für die anderen verknüpften Felder Titel, Briefanrede und Textanrede und verwenden Sie die entsprechenden Tabellen als Datenherkunft.<\/p>\n Quellcode 11<\/b><\/p>\n Legen Sie im unteren Bereich des Formulars ein Registersteuerelement mit zwei Seiten an. Geben Sie den beiden Seiten die Namen Angaben zum Beschäftigungsverhältnis und Projekte des Mitarbeiters.<\/p>\n Weitere Informationen zu Registersteuerelementen finden Sie in [Access im Unternehmen, Ausgabe 3\/2001]. <\/p>\n In den Abschnitten 3.2 und 3.3 erfahren Sie, wie die einzufügenden Unterformulare sowie die weiteren Steuerelemente aussehen.<\/p>\n Im oberen Bereich des Formulars legen Sie zwei Schaltflächen an: eine zum übernehmen der änderungen und eine zum Abbrechen.<\/p>\n Die erste erhält die Beschriftung Zurück zur Auswahl und den Namen cmdZurueckZurAuswahl, die zweite die Beschriftung Abbrechen und den Namen cmdAbbrechen.<\/p>\n Legen Sie für die Schaltfläche cmdZurueckZurAuswahl die Prozedur aus Quellcode 11 an.<\/p>\n Die Prozedur überprüft zunächst, ob zumindest der Vor- und der Nachname des Mitarbeiters angegeben sind. Weitere Pflichtfelder können Sie nach Belieben vorsehen.<\/p>\n Anschließend speichert sie den Datensatz und überprüft, ob ein Beschäftigungsverhältnis für den Mitarbeiter vorhanden ist bzw. angelegt wurde. Falls dies nicht der Fall ist, muss der Benutzer zunächst ein neues Beschäftigungsverhältnis anlegen.<\/p>\n Eine weitere Schaltfläche dient dem Abbrechen eines Eingabevorgangs. Bezeichnen Sie die Schaltfläche mit Abbrechen und geben Sie ihr den Namen cmdAbbrechen. Legen Sie für die Ereigniseigenschaft Beim Klicken die Prozedur aus Quellcode 12 an.<\/p>\n Quellcode 12<\/b><\/p>\n Die Prozedur überprüft, ob das Feld MitarbeiterID noch den Wert NULL hat. Das würde bedeuten, dass der Datensatz noch nicht gespeichert wurde. Per Me.Undo werden anschließend alle Eingaben rückgängig gemacht und mit der DoCmd.Close-Anweisung das Formular geschlossen.<\/b><\/p>\n Der Datensatz wird prinzipiell erst gespeichert, wenn eines der Unterformulare aktiviert wird oder wenn der Anwender den Datensatz auf eine andere Art speichert. Weiter unten finden Sie eine Möglichkeit, die Abbrechen-Schaltfläche zu deaktivieren, wenn ein Unterformular aktiviert und damit der Datensatz des Hauptformulars gespeichert wird.<\/p>\n <\/b><\/p>\n Bild 9: Das Unterformular sfmMitarbeiterBeschaeftigungen<\/span><\/b><\/p>\n Wenn der Eingabevorgang dann rückgängig gemacht werden soll, muss der Anwender die entsprechenden Daten im Formular frmMitarbeiterAuswahl löschen.<\/p>\n Wenn Sie umfangreiche Eingaben, die sich über Formulare und Unterformulare erstrecken, rückgängig machen möchten, sollten Sie die Daten der Formulare in temporären Tabellen speichern und erst nach dem Schließen des Hauptformulars in die eigentlichen Tabellen schreiben. <\/p>\n Das Unterformular sfmMitarbeiterBeschaeftigungen<\/b><\/p>\n Weisen Sie der Datenherkunft eines neuen Unterformular namens sfmMitarbeiterBeschaeftigungen die Tabelle tblBeschaeftigungen zu.<\/p>\n Ziehen Sie die Felder wie in Bild 9 in den Detailbereich des Formulars. Stellen Sie dann die Eigenschaft Standardansicht auf den Wert Datenblatt ein.<\/p>\n Fügen Sie das Formular anschließend als Unterformular in die erste Registerseite des Registers ein.<\/p>\n Weitere Informationen hierzu finden Sie im Beitrag Einbinden von Unterformularen in Hauptformulare im vorliegenden Heft. <\/p>\n Damit direkt nach dem Neuanlegen eines Beschäftigungsverhältnisses auch automatisch das durch den Insert-Trigger angelegte Austrittsdatum eines eventuell bestehenden und nicht abgeschlossenen Beschäftigungsverhältnisses angezeigt wird, legen Sie noch eine Ereignisprozedur für die Eigenschaft Nach Aktualisierung des Unterformulars an:<\/p>\n Quellcode 13<\/b><\/p>\n Quellcode 14<\/b><\/p>\n <\/b><\/p>\n Bild 10: Das Unterformular sfmMitarbeiterProjekteDetail<\/span><\/b><\/p>\n Wenn der Benutzer das Unterformular aktiviert, speichert er automatisch den Datensatz des Hauptformulars ab. <\/p>\n Ein Abbruch der Eingabe durch den Benutzer kann dann nicht mehr ohne Weiteres erfolgen. Legen Sie daher für die Ereigniseigenschaft Beim Hingehen des Unterformularsteuerelements (nicht des Unterformulars selbst!) die Prozedur aus Quellcode 13 an.<\/p>\n Die Prozedur deaktiviert die Abbrechen-Schaltfläche des Hauptformulars. Legen Sie eine solche Prozedur auch für das Unterformular sfmMitarbeiterProjekteDetail an.<\/p>\n Das UnterformularsfmMitarbeiterProjekteDetail<\/b><\/p>\n Weisen Sie der Datenherkunft des Unterformulars zur Anzeige der Projekte eines Mitarbeiters die SQL-Abfrage aus Quellcode 14 zu.<\/p>\n Ziehen Sie anschließend die Felder aus der Feldliste wie in Bild 10 in den Detailbereich und stellen Sie auch hier die Eigenschaft Standardansicht auf den Wert Datenblatt ein.<\/p>\n Speichern Sie das Formular und fügen Sie es der zweiten Seite des Registers im Hauptformular hinzu.<\/p>\n Im Gegensatz zum ersten Unterformular wird diesmal keine automatische Verknüpfung zwischen Haupt- und Unterformular hergestellt. Tragen Sie also manuell den Wert MitarbeiterID für die Eigenschaften Verknüpfen Von und Verknüpfen Nach des Unterformularsteuerelements ein.<\/p>\n Das Problem der eindeutigenTabelle<\/b><\/p>\n Unter Access bedeutet es kein Problem, die Datenherkunft aus mehreren Tabellen zu verwenden und auch noch deren Inhalte zu verändern. <\/p>\n In Access-Projekten ist dies nicht mehr so einfach. Hier kann maximal der Inhalt einer Tabelle geändert werden.<\/p>\n In den bisherigen Beispielen bestand die Datenherkunft jeweils aus nur einer Tabelle, aber im Unterformular sfmMitarbeiterProjekteDetail besteht die Datenherkunft aus zwei Tabellen.<\/p>\n Quellcode 15<\/b><\/p>\n Um einem Mitarbeiter eines der bestehenden Projekte zuordnen zu können, müssen Sie die Eigenschaft Eindeutige Tabelle des Formulars auf den Namen der Tabelle einstellen, die Sie verändern möchten.<\/p>\n In dem Fall handelt es sich um die Tabelle tblMitarbeiterProjekte, denn Sie möchten neue Datensätze hinzufügen, um dem ausgewählten Mitarbeiter neue Projekte zuordnen zu können. Sie können allerdings keine Details des Projektes ändern.<\/p>\n Damit Sie über das Feld ProjektID komfortabel weitere Projekte für den Mitarbeiter auswählen können, wandeln Sie es in ein Kombinationsfeld mit der Tabelle tblProjekte als Datensatzherkunft um.<\/p>\n Außerdem legen Sie für die Ereigniseigenschaft Nach Aktualisierung des neuen Kombinationsfeldes die folgende Prozedur an:<\/p>\n Die Prozedur dient lediglich der Aktualisierung der übrigen Felder des Unterformulars.<\/p>\n Zum Anlegen komplett neuer Projekte benötigen Sie ein weiteres Formular, dessen Aufbau Sie bitte der Beispieldatenbank entnehmen.<\/p>\n Um dieses Formular anzuzeigen, verwenden Sie eine weitere Schaltfläche, die Sie im Kopf der zweiten Seite des Registers oberhalb des Unterformulars sfmMitarbeiterProjekteDetail anlegen. Beschriften Sie die Schaltfläche mit Neues Projekt anlegen und geben Sie ihr den Namen cmdNeuesProjekt.<\/p>\n Für die Ereigniseigenschaft Beim Klicken hinterlegen Sie die Prozedur aus Quellcode 15.<\/p>\n Die Prozedur öffnet das Formular frmNeuesProjekt zum Anlegen neuer Projekte und aktualisiert nach dem Schließen dieses Formulars das Unterformular zur Auswahl der Projekte eines Mitarbeiters.<\/p>\n Der vorliegende Beitrag kann auf keinen Fall einen kompletten überblick über die Verwendung von Formularen in Access-Projekten bieten. <\/p>\n Er soll vielmehr einige der Techniken vorstellen, die für die Gestaltung von Formularen in Datenbanken auf MSDE- oder SQL-Server-Basis verwendet werden.<\/p>\n Nachdem Sie nun im ersten Teil einiges über das Erstellen von Tabellen, Sichten, gespeicherte Prozeduren und Datenbankdiagramme erfahren und im vorliegenden Beitrag Informationen zum Umgang mit Formularen in Access-Projekten erhalten haben, werden Sie in den folgenden Ausgaben Gelegenheit bekommen, die Mitarbeiterverwaltung weiter auszubauen.<\/p>\n Der nächste Schritt wird in einem der folgenden Hefte die Erstellung von Berichten zur Ausgabe von Mitarbeiterlisten und von Datenblättern einzelner Mitarbeiter sein.<\/p>\n In Ausgabe 7\/2001 von Access im Unternehmen finden Sie eine Anleitung zur Installation der Beispieldateien des vorgestellten Access-Projekts.<\/p>\n Sie können diese Anleitung auch für die aktuelle Version der Dateien verwenden.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Mitarbeiterverwaltung00.mdb<\/p>\n Skript.sql<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n<\/td>\n<\/tr>\n \n \n \n \n \n \n \n \n \n<\/td>\n<\/tr>\n<\/table>\n ![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic003.png\")
<\/p>\nDatensatzherkunft des Listenfeldes<\/h3>\n
Testen der Datensatzherkunft<\/h3>\n
Sub ListeAktualisieren()\r\n Dim Parameter As String\r\n Parameter = \"@Alle = \" & Me.ctlAlle\r\n Parameter = Parameter & IIf(IsNull(Me.txtEintrittVon), \"\", \", @EintrittVon = ''\" _ & Me.txtEintrittVon & \"''\")\r\n Parameter = Parameter & IIf(IsNull(Me.txtEintrittBis), \"\", \", @EintrittBis = ''\" _ & Me.txtEintrittBis & \"''\")\r\n Me.lstMitarbeiter.RowSource = \"EXEC procLstMitarbeiter \" & Parameter\r\n Me.lstMitarbeiter.Requery\r\nEnd Sub<\/pre>\n
Die Prozedur ListeAktualisieren<\/h3>\n
ListeAktualisieren<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic005.png\")
<\/p>\nPrivate Sub cmdNeuerMitarbeiter_Click()\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", , , , acFormAdd, acDialog\r\n Me.lstMitarbeiter.Requery\r\nEnd Sub<\/pre>\n
Neuer Mitarbeiter<\/h3>\n
Mitarbeiter löschen<\/h3>\n
Private Sub cmdMitarbeiterLoeschen_Click()\r\n If MsgBox(\"Mitarbeiter und verknüpfte Beschäftigungen löschen\", _\r\n vbExclamation + vbOKCancel, \"Mitarbeiter löschen\") = vbOK Then\r\n Dim con As ADODB.Connection\r\n Set con = CurrentProject.Connection\r\n con.Execute \"procMitarbeiterLoeschen \" & Me.lstMitarbeiter\r\n Set con = Nothing\r\n Me.lstMitarbeiter.Requery\r\n Else\r\n Exit Sub\r\n End If\r\nEnd Sub<\/pre>\n
Alter Procedure procMitarbeiterLoeschen (@Mitarbeiternummer INT)\r\nAs\r\n set nocount on\r\n DELETE FROM dbo.tblMitarbeiter\r\n WHERE MitarbeiterID = @Mitarbeiternummer\r\n return<\/pre>\n
Beschäftigung löschen<\/h3>\n
Gespeicherte Prozedur mit Rückgabeparameter<\/h3>\n
Alter Procedure procBeschaeftigungenZaehlen (@BeschaeftigungID INT, \r\n@AnzahlBeschaeftigungen INT OUTPUT)\r\nAs\r\nDECLARE @MitarbeiterID INT\r\nSELECT @MitarbeiterID = MitarbeiterID \r\nFROM tblBeschaeftigungen \r\nWHERE BeschaeftigungID = @BeschaeftigungID\r\nSELECT * \r\nFROM tblBeschaeftigungen \r\nWHERE MitarbeiterID = @MitarbeiterID\r\nSELECT @AnzahlBeschaeftigungen = @@ROWCOUNT\r\nreturn <\/pre>\n
Public Function AnzahlBeschaeftigungen _ (BeschaeftigungID As Integer)\r\n Dim cnn As ADODB.Connection\r\n Dim cmd As ADODB.Command\r\n Dim prm As ADODB.Parameter\r\n Set cnn = CurrentProject.Connection\r\n Set cmd = New ADODB.Command\r\n cmd.CommandText = \"procBeschaeftigungenZaehlen\"\r\n cmd.CommandType = adCmdStoredProc\r\n cmd.ActiveConnection = cnn\r\n Set prm = cmd.CreateParameter(\"@BeschaeftigungID\", _ adInteger, adParamInput)\r\n prm.Value = BeschaeftigungID\r\n cmd.Parameters.Append prm\r\n Set prm = cmd.CreateParameter _ (\"@AnzahlBeschaeftigungen\", adInteger, _ adParamOutput)\r\n cmd.Parameters.Append prm\r\n cmd.Execute\r\n AnzahlBeschaeftigungen = _ cmd.Parameters(\"@AnzahlBeschaeftigungen\")\r\nEnd Function<\/pre>\n
Aufruf einer gespeicherten Prozedur mitRückgabeparametern<\/h3>\n
Private Sub cmdBeschaeftigungLoeschen_Click()\r\n If MsgBox(\"Löschen bestätigen mit OK.\", vbExclamation + vbOKCancel, _ \"Beschäftigung löschen\") = vbOK Then\r\n Dim con As ADODB.Connection\r\n Set con = CurrentProject.Connection\r\n If AnzahlBeschaeftigungen(Me.lstMitarbeiter.Column(7)) = 1 Then\r\n If MsgBox(\"Es gibt keine weiteren Beschäftigungsverhältnisse. \" _ & \"Möchten Sie, dass auch die Mitarbeiterdaten gelöscht werden\", _ vbExclamation + vbOKCancel, \"Mitarbeiter löschen\") = vbOK Then\r\n con.Execute \"procMitarbeiterLoeschen \" & Me.lstMitarbeiter\r\n Set con = Nothing\r\n Me.lstMitarbeiter.Requery\r\n Else\r\n con.Execute \"procBeschaeftigungLoeschen \" & _ Me.lstMitarbeiter.Column(7)\r\n Set con = Nothing\r\n Me.lstMitarbeiter.Requery\r\n End If\r\n Else\r\n con.Execute \"procBeschaeftigungLoeschen \" & Me.lstMitarbeiter.Column(7)\r\n Set con = Nothing\r\n Me.lstMitarbeiter.Requery\r\n End If\r\n Else\r\n Exit Sub\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdMitarbeiterliste_Click()\r\n DoCmd.OpenReport \"repMitarbeiterliste\", acViewPreview\r\nEnd Sub<\/pre>\n
Mitarbeiterliste drucken<\/h3>\n
Private Sub lstMitarbeiter_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", acNormal, , \"[MitarbeiterID] = \" _ & Me.lstMitarbeiter, acFormEdit\r\n Me.lstMitarbeiter.Requery\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic006.png\")
<\/p>\n@Alle =forms!frmMitarbeiterAuswahl2!ctlAlle,\r\n@EintrittVon = IIf(IsNull(Forms!frmMitarbeiterAuswahl2!txtEinstellungVon);''1.1.1950'';Forms!frmMitarbeiterAuswahl2!txtEinstellungVon),\r\n@EintrittBis = IIf(Isnull(Forms!frmMitarbeiterAuswahl2!txtEinstellungBis);''1.1.2050'';Forms!frmMitarbeiterAuswahl2!txtEinstellungBis)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic008.png\")
<\/p>\nPrivate Sub cmdZurueckZurAuswahl_Click()\r\n If Nz(Me.Nachname, \"\") = \"\" Or Nz(Me.Vorname, \"\") = \"\" Then\r\n MsgBox \"Sie müssen zumindest den Vor- und den Nachnamen angeben.\", _ vbExclamation + vbOKOnly, \"Fehlende Daten\"\r\n Exit Sub\r\n End If\r\n DoCmd.RunCommand acCmdSaveRecord\r\n Dim cnn As ADODB.Connection\r\n Dim rstBeschaeftigungen As New ADODB.Recordset\r\n Set cnn = CurrentProject.Connection\r\n rstBeschaeftigungen.Open \"tblBeschaeftigungen\", cnn, adOpenDynamic, _ adLockOptimistic\r\n rstBeschaeftigungen.Filter = \"[MitarbeiterID] = \" & Me.MitarbeiterID\r\n If rstBeschaeftigungen.RecordCount = 0 Then\r\n MsgBox \"Bitte geben Sie die Daten für die aktuelle Beschäftigung an.\"\r\n Exit Sub\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Das Registersteuerelement<\/h3>\n
Hinweis<\/h3>\n
Schaltfläche zum übernehmen der änderungen<\/h3>\n
Schaltfläche zum Abbrechen der Eingabe<\/h3>\n
Private Sub cmdAbbrechen_Click()\r\n If IsNull(Me.MitarbeiterID) Then\r\n Me.Undo\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic010.png\")
<\/p>\nHinweis<\/h3>\n
Private Sub Form_AfterUpdate()\r\n Me.Requery\r\nEnd Sub\r\nPrivate Sub sfmMitarbeiterBeschaeftigungen_Enter()\r\n Me.cmdAbbrechen.Enabled = False\r\nEnd Sub<\/pre>\n
SELECT tblMitarbeiterProjekte.MitarbeiterID, \r\n tblMitarbeiterProjekte.ProjektID, \r\n tblProjekte.Projektbezeichnung, \r\n tblProjekte.ProjektStart, \r\n tblProjekte.ProjektEnde\r\nFROM tblProjekte INNER JOIN\r\n tblMitarbeiterProjekte ON \r\n tblProjekte.ProjektID = \r\n tblMitarbeiterProjekte.ProjektID<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{E7582F63-C97C-484C-A33D-41471748A31A}\/pic011.png\")
<\/p>\nPrivate Sub cmdNeuesProjekt_Click()\r\n DoCmd.OpenForm \"frmNeuesProjekt\", , , , acFormAdd, acDialog\r\n Me.sfmMitarbeiterProjekteDetail.Requery\r\nEnd Sub<\/pre>\n
Private Sub ProjektID_AfterUpdate()\r\n Me.Requery\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n