<\/p>\n
Autor: Martin Hoffmann, Düsseldorf<\/p>\n
<\/b>!<\/p>\n
Die Weiterbildung und Qualifizierung von Mitarbeitern ist einerseits ein wichtiger Faktor zur Sicherung des Know-hows eines Unternehmens und andererseits ein Motivationsfaktor für die Mitarbeiter. Die Verwaltung der Schulungsmaßnahmen kann dabei mit steigender Mitarbeiter- und Kurszahl sehr komplex ausfallen, insbesondere dann, wenn Kurse aufeinander aufbauen oder vorgegebene Noten erzielt werden müssen. Der folgende Beitrag zeigt Ihnen, wie Sie eine Schulungsverwaltung erstellen, mit der Sie komfortabel Teilnehmer zu Kursen anmelden, die Teilnahme kontrollieren und Zertifikate bei Abschluss drucken.<\/b><\/p>\n
Die Schulungsverwaltung, die Sie in diesem Beitrag kennen lernen, hilft Ihnen dabei, die Schulungsmaßnahmen für Mitarbeiter zu verwalten und zu organisieren. Das beginnt bei der automatisierten Eingabe der Kurse mit Einzelterminen für jeden Kurs. Bild 1 zeigt die Dialoge der Kursverwaltung. Weitere Unterstützung erhalten Sie bei der Anmeldung von Teilnehmern für Kurse, wobei die Schulungsverwaltung Fehler durch eine intelligente Anmeldeprüfung abfängt (siehe Bild 2). Zu guter Letzt unterstützt die Software Sie bei der Erstellung der Teilnahmenachweise und der Eingabe der Abschlussnote.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Erfassen von Kursen und Kurseinheiten<\/span><\/b><\/p>\n Die Software ist hier beispielhaft auf Mitarbeiter ausgerichtet. Sie können die Anwendung natürlich für jede beliebige andere Art von Schulungs- oder Kursangeboten einsetzen. So kann beispielsweise das Sportangebot einer Sportschule verwaltet werden, bei der mehrere aufeinander aufbauende Tauchkurse angeboten werden. Aber auch für Schulungsunternehmen ist die Anwendung sehr interessant. In diesem Fall sind die Mitarbeiter lediglich durch allgemeine Adressen auszutauschen. <\/p>\n Im Folgenden werden die Tabellen der Datenbank mit deren Beziehungen erläutert. Die Ausführungen sind für diese Musterlösung ein wenig ausführlicher, da das Datenmodell aufgrund der speziellen Anforderungen relativ komplex ist.<\/p>\n <\/b><\/p>\n Bild 2: Der Anmeldedialog<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Die Tabellenstruktur für die Kurseingabe<\/span><\/b><\/p>\n Mitarbeiter<\/b><\/p>\n Die Mitarbeiter, also die eigentlichen Teilnehmer der Kurse, werden in der Tabelle tblMitarbeiter gespeichert. Die Anwendung verzichtet hier aus Platzgründen auf eine ausgefeilte Adressverwaltung, da dies bereits in anderen Beiträgen ausgiebig behandelt wurde.<\/p>\n Kursgruppen und Kurse<\/b><\/p>\n Die Kursverwaltung gliedert alle Kurse in Obergruppen. Zu jedem Kurs können Sie außerdem mehrere Starttermine mit den jeweiligen einzelnen Kurszeiten eintragen (Termine und Termindetails siehe Abschnitt 2.3). Zusätzlich ist bei jedem Kurs die Angabe von weiteren Kursen möglich, deren erfolgreiche Abschlüsse Voraussetzung für die Teilnahme an dem aktuellen Kurs sind. Abb. 3 stellt die entsprechende Tabellenstruktur dar.<\/p>\n Die Obergruppen verwalten Sie in der Tabelle tblKursgruppen. Die Tabelle besteht lediglich aus dem Primärschlüssel und dem Feld Kursgruppe, über das Sie den Namen der Gruppe definieren.<\/p>\n Zu jeder Kursgruppe können Sie dann beliebig viele Kurse anlegen, die Sie dann in der Tabelle tblKurse speichern.<\/p>\n über das Feld Kursname definieren Sie die eindeutige Bezeichnung des Kurses. Das Kuerzel des Kurses wird später für die Kursnummer verwendet und kann jeweils wie der Kursname nur einmal vergeben werden. Beide Felder (Kuerzel und Kursname) sind mit der Option Ja (Ohne Duplikate) indiziert, um Doppeleingaben zu vermeiden. Das Feld Kurslevel gibt die Schwierigkeitsstufe eines Kurses wieder.<\/p>\n Mit den Feldern AnzahlEinheiten, DauerProEinheitInStunden, TerminIntervall und TerminIntervallID geben Sie an, wie lange eine Kurseinheit dauert, wie viele Einheiten es gibt und in welchem Rhythmus die Einheiten aufeinander folgen. <\/p>\n Das Feld TerminIntervallID referenziert dabei auf die Tabelle tblTerminintervalle. Die Tabelle beinhaltet die in Tab. 1 aufgeführten Datensätze, die vom Anwender nicht verändert werden dürfen und fest in die Anwendung und Programmierung integriert sind.<\/p>\n TerminintervallID<\/b><\/p>\n<\/td>\n Intervall<\/b><\/p>\n<\/td>\n Intervallformat<\/b><\/p>\n<\/td>\n<\/tr>\n 1<\/p>\n<\/td>\n Tag(e)<\/p>\n<\/td>\n d<\/p>\n<\/td>\n<\/tr>\n 2<\/p>\n<\/td>\n Woche(n)<\/p>\n<\/td>\n ww<\/p>\n<\/td>\n<\/tr>\n 3<\/p>\n<\/td>\n Monat(e)<\/p>\n<\/td>\n m<\/p>\n<\/td>\n<\/tr>\n 4<\/p>\n<\/td>\n Jahr(e)<\/p>\n<\/td>\n yyyy<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Daten der Tabelle tblTerminintervalle<\/b><\/p>\n Das Feld Intervall dient der Anzeige und Auswahl des Intervalls im Formular, das Feld Intervallformat ist für die automatische Berechnung der Folgedaten nötig. Nachfolgend sind drei Beispiele aufgeführt, welche die Verwendung der Felder verdeutlichen.<\/p>\n Beispiel 1: Der Kurs Einführung in Access findet jeweils an drei aufeinander folgenden Tagen statt. Pro Tag sind acht Stunden angesetzt:<\/p>\n Feld<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n AnzahlEinheiten<\/p>\n<\/td>\n 3<\/p>\n<\/td>\n<\/tr>\n DauerProEinheitInStunden<\/p>\n<\/td>\n 8<\/p>\n<\/td>\n<\/tr>\n TerminIntervall<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n<\/tr>\n TerminIntervallID<\/p>\n<\/td>\n 1 (Tage)<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Beispiel 1, Zusammenhängender Kurs<\/b><\/p>\n Beispiel 2: Der folgende Kurs geht über ein Jahr. Jede Woche findet eine Sitzung von zwei Stunden statt.<\/p>\n Feld<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n AnzahlEinheiten<\/p>\n<\/td>\n 52<\/p>\n<\/td>\n<\/tr>\n DauerProEinheitInStunden<\/p>\n<\/td>\n 2<\/p>\n<\/td>\n<\/tr>\n TerminIntervall<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n<\/tr>\n TerminIntervallID<\/p>\n<\/td>\n 2 (Woche)<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 3: Beispiel 2, Kurs mit mehreren verteilten Terminen<\/b><\/p>\n Beispiel 3: Die nächsten zehn Jahre findet alle zwei Jahre ein Erste-Hilfe-Kurs für alle statt. Der Kurs dauert jeweils vier Stunden.<\/p>\n Feld<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n AnzahlEinheiten<\/p>\n<\/td>\n 5<\/p>\n<\/td>\n<\/tr>\n DauerProEinheitInStunden<\/p>\n<\/td>\n 4<\/p>\n<\/td>\n<\/tr>\n TerminIntervall<\/p>\n<\/td>\n 2<\/p>\n<\/td>\n<\/tr>\n TerminIntervallID<\/p>\n<\/td>\n 4 (Jahr)<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 4: Beispiel 3, Zweijähriger Kurs<\/b><\/p>\n Die Felder AbschlussID und Mindestnote legen fest, welcher Abschluss für den Kurs erforderlich ist. Mögliche Abschlüsse sind in der Tabelle tblAbschluesse gespeichert (s. Tab. 5).<\/p>\n Bedingung<\/b><\/p>\n<\/td>\n IstMindestnoteErforderlich<\/b><\/p>\n<\/td>\n IstSichtbarBeiKurs<\/b><\/p>\n<\/td>\n<\/tr>\n Nicht bestanden<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n<\/tr>\n Teilgenommen<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n Bestanden<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n Abschlussprüfung<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 5: Datensätze der Tabelle tblAbschluesse<\/b><\/p>\n Das Feld IstSichtbarBeiKurs dient zur selektierten Anzeige der Abschlüsse im Kursformular. Später werden nur die Abschlüsse angezeigt, die den Wert Ja haben. Den Eintrag Nicht bestanden als Mindestvoraussetzung zur Auswahl zu stellen, würde hier keinen Sinn machen. Deshalb wird er einfach ausgeblendet.<\/p>\n Die Selektion bestimmter Datensätze aus einer Tabelle könnte auch über den Primärschlüssel erfolgen. Im vorliegenden Fall wäre das die ID 1 (Nicht bestanden), die in den Stammdaten des Kurses nicht angezeigt werden soll. Eine Abfrage, die alle Datensätze anzeigt, bei denen die ID <> 1 ist, wäre vielleicht einfacher als ein eigenes Feld dafür einzuführen. Allerdings ist diese Methode nicht sehr flexibel. Ggf. ergänzen Sie die Tabelle um weitere Datensätze (zum Beispiel Nicht Teilgenommen), die ebenfalls nicht angezeigt werden sollen. In diesem Fall müssten Sie alle betroffenen Abfragen anpassen. Gleiches gilt, wenn Sie die Datensätze zu Testzwecken löschen und wieder neu einfügen. Die ID wäre dann vielleicht nicht mehr 1, sondern 5, und es wären wieder änderungen an der Abfrage erforderlich. Mit dem Ja\/Nein-Feld genügt ein einfaches Abhaken des Feldes. <\/p>\n Das Feld IstMindestnoteErforderlich gibt an, ob das Feld Mindestnote der Tabelle tblKurse im Formular sichtbar ist. Wird eine Mindestnote in den Kursdaten eingegeben, gilt der Kurs nur bei Erreichen der angesetzten Note als erfolgreich bestanden.<\/p>\n Das Feld TeilnehmerzahlMinimal der Tabelle tblKurse definiert, wie viele Teilnehmer für einen Kurs angemeldet sein müssen, damit der Kurs stattfindet. über das Feld TeilnehmerzahlMaximal hingegen legen Sie die obere Grenze für die Teilnehmeranzahl fest, um überfüllte Kurse zu vermeiden.<\/p>\n Zu jedem Kurs können neben den Basisdaten weitere Kurse angegeben werden, die Voraussetzung für die Teilnahme an dem Kurs sind. Beispielsweise ist der Kurs Einführung in Access Voraussetzung für den Kurs Access für Fortgeschrittene.<\/p>\n Die Zuordnung der Kurse erfolgt über die Tabelle tblKursvoraussetzungen. Die Tabelle dient als Zwischentabelle für eine n:m-Beziehung der Kurstabelle auf sich selbst. Das heisst, dass jedem Kurs mehrere andere Kurse zugeordnet werden können und ein Kurs mehreren Kursen zugeordnet sein kann. Einführung in Access könnte so auch Voraussetzung für den Kurs Einführung in den MS SQL Server sein.<\/p>\n Die Verknüpfung der Kurstabelle erfolgt über die Felder KursID und VoraussetzungsKursID (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 4: Datenstruktur für Termine<\/span><\/b><\/p>\n Termine für Kurse<\/b><\/p>\n Nachdem die Kurse definiert sind, benötigen Sie die einzelnen Starttermine für die Kurse sowie die Detaildaten mit Anfangs- und Endzeit für jede Kurseinheit. Nur mit diesen Detaildaten können Sie später den Teilnehmern eine genaue Liste der Kurszeiten zusenden oder einen Stundenplan bzw. die Raumbelegung ausgeben. Bild 4 zeigt die dafür nötigen Tabellen.<\/p>\n Zu jedem Kurs können Sie in der Tabelle tblTermine beliebig viele Termine anlegen. Auf diese Weise kann zum Beispiel der Kurs Einführung in Access alle drei Wochen stattfinden. Jeder Kurs erhält eine eindeutige Kursnummer, über die Sie einen speziellen Kurs bei der Suche direkt identifizieren können. <\/p>\n Das Startdatum legt fest, wann der Kurs beginnt. Dabei ist die Eingabe eines Datums mit Uhrzeit möglich, wodurch Sie direkt die Anfangszeit festlegen können. Für den dreiwöchigen Access-Kurs, der montags um 8:00 Uhr startet, wären dann die folgenden Startdaten erforderlich:<\/p>\n Pro Kurs legen Sie noch den Kursleiter (KursleiterID) und den Raum (RaumID) fest. Bei den Kursleitern und Räumen wurde zugunsten der übersichtlichkeit wie bei den Mitarbeitern auf eine komplexe Ausführung der Tabellenstruktur verzichtet. Der Kursleiter erhält nur einen Namen mit Anrede, bei Räumen begnügt sich die Datenstruktur mit der Raumnummer.<\/p>\n Die einzelnen Kurseinheiten zu jedem Starttermin geben Sie in die Tabelle tblTermindetails mit Anfangs- und Endzeit ein.<\/p>\n <\/b><\/p>\n Bild 5: Tabellenstruktur für die Kursteilnehmer<\/span><\/b><\/p>\n Die Eingabe der vollständigen Kursdaten kann schnell unübersichtlich werden. Zu diesem Zweck werden die Termindetails später automatisch vom Programm auf Basis der im Kurs definierten Kursintervalle angelegt. <\/p>\n Für den Kurs Einführung in Access – einen Drei-Tage-Kurs – könnten die Termine wie folgt aussehen (s. Tab. 6):<\/p>\n Startdatum<\/b><\/p>\n<\/td>\n Enddatum<\/b><\/p>\n<\/td>\n<\/tr>\n 07.04.2003 08:00<\/p>\n<\/td>\n 07.04.2003 16:00<\/p>\n<\/td>\n<\/tr>\n 08.04.2003 08:00<\/p>\n<\/td>\n 08.04.2003 16:00<\/p>\n<\/td>\n<\/tr>\n 09.04.2003 08:00<\/p>\n<\/td>\n 09.04.2003 16:00<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 6: Beispieldaten für Termindetails<\/b><\/p>\n Kursteilnehmer<\/b><\/p>\n Kurse und Mitarbeiter sind nun definiert. Jetzt fehlt nur noch die Zuordnung. Dazu sind zwei Tabellen notwendig.<\/p>\n Die erste Tabelle tblKursteilnehmer definiert, welcher Mitarbeiter für welchen Kurstermin angemeldet ist.<\/p>\n Die Tabelle tblTeilnahmenachweise ergänzt dazu, zu welchen Kurseinheiten ein Teilnehmer erschienen ist, und hält so den Teilnahmenachweis fest. Die Verknüpfung der Tabellen ist in Bild 5 dargestellt.<\/p>\n Die Tabelle tblKursteilnehmer (siehe Bild 6) verknüpft die Tabellen tblMitarbeiter und tblTermine und fungiert somit als Zwischentabelle für die n:m-Beziehung. Das Feld AngemeldetAm registriert das Anmeldedatum des Teilnehmers für den Kurs.<\/p>\n Die Felder AbschlussID, Note und ZertifikatErhaltenAm werden nach Beendigung des Kurses ausgefüllt und erklären sich von selbst.<\/p>\n Die Teilnahme an den einzelnen Kurseinheiten verwaltet die Tabelle tblTeilnahmenachweise (siehe Bild 7). Jeder Kurseinheit werden hier die Kursteilnehmer zugeordnet. Dazu kopiert die Anmelderoutine automatisch alle Teilnehmer in die Tabelle (s. Abschnitt 6.3). über das Feld WarAnwesend markieren Sie dann einfach, welcher Mitarbeiter teilgenommen hat.<\/p>\n <\/b><\/p>\n Bild 6: Datenfelder der Tabelle tblKursteilnehmer<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Datenfelder der Tabelle tblTeilnahmenachweise<\/span><\/b><\/p>\n Normalerweise würden die beiden Felder KursteilnehmerID und TermindetailID für die Zuordnung ausreichen. Alle Teilnehmer, die dann in der Tabelle zu einer Kurseinheit vorkommen, hätten auch teilgenommen. Mit dieser Technik wäre jedoch die Auswahl der Teilnehmer für den Anwender nicht sehr komfortabel. Deshalb gibt es zusätzlich das Feld WarAnwesend. <\/p>\n Nachdem das Datenmodell ausführlich erläutert wurde, kommen wir zum Aufbau der Anwendung. Wir beginnen mit den Stammdaten für Mitarbeiter (siehe Bild 8).<\/p>\n <\/b><\/p>\n Bild 8: Das Mitarbeiterformular<\/span><\/b><\/p>\n Das Formular enthält ein Register-Steuerelement. Auf der ersten Seite sind alle Datenfelder der Tabelle tblMitarbeiter aufgeführt.<\/p>\n Die zweite Registerseite dient der Anzeige der Kurse, für die der Mitarbeiter angemeldet ist. In der Liste werden der Kursname, das Anmeldedatum, der erzielte Abschluss, die Note und das Ausstellungsdatum für das Zertifikat angezeigt. Das Unterformular ist schreibgeschützt, da änderungen an den Daten nur über die speziell für diese Funktion entworfenen Formulare erfolgen sollen (siehe Abschnitt 6-8).<\/p>\n Mitarbeiter löschen<\/b><\/p>\n Das Löschen eines Mitarbeiters erfolgt über die Schaltfläche btnLöschen. Legen Sie die folgende Ereignisprozedur für die Schaltfläche an:<\/p>\n Die Prozedur verwendet die RunCommand-Methode zum Löschen des Datensatzes und navigiert anschließend zum ersten Datensatz.<\/p>\n Suchen nach Mitarbeitern<\/b><\/p>\n Eine einfache Filterfunktion für Mitarbeiter können Sie über ein Textfeld realisieren. Nach Eingabe eines Suchbegriffs in das Feld soll das Formular nur noch die Datensätze anzeigen, bei denen der Suchbegriff im Vornamen oder Nachnamen enthalten ist.<\/p>\n Legen Sie dazu das Textfeld txtFilter im Formular an und tragen Sie die folgende Prozedur beim Ereignis NachAktualisierung ein:<\/p>\n Die Prozedur prüft zunächst, ob ein Begriff eingegeben wurde, und setzt dann die Filtereigenschaft wie oben erwähnt. über die Methode FilterOn aktiviert sie den Filter im Formular.<\/p>\n über die Schaltfläche btnFilteraufheben löschen Sie den Inhalt des Filterfeldes und deaktivieren den Filter:<\/p>\n Die Eingabeformulare für die Kursleiter und Räume sind ebenfalls sehr einfach gehalten (siehe Bild 9).<\/p>\n <\/p>\n Beide Formulare enthalten jeweils die Datenfelder der entsprechenden Tabelle ohne den Primärschlüssel und zeigen die Daten in Form eines Datenblattes an. Dazu stellen Sie die Formulareigenschaft Standardansicht jeweils auf den Wert Datenblatt. Die Bildlaufleisten blenden Sie aus.<\/p>\n <\/b><\/p>\n Bild 9: Kursleiter und Räume eingeben<\/span><\/b><\/p>\n Das soll für die hier benötigte Funktionsweise genügen, da die Daten nur in Nachschlagefeldern Verwendung finden.<\/p>\n Eine Kernfunktion der Anwendung ist die Verwaltung und Erfassung der Kurse mit den einzelnen Terminen und Kurseinheiten.<\/p>\n <\/b><\/p>\n Bild 10: Verwaltung der Kurse<\/span><\/b><\/p>\n Das Formular wirkt auf den ersten Blick sehr komplex (siehe Bild 12). Deshalb zerlegen wir die Funktionen in zwei Hauptbereiche. Der obere Bereich dient der Suche und Erfassung von Kursgruppen, während der untere Bereich die entsprechenden Kurse zu der aktuellen Kursgruppe anzeigt.<\/p>\n Kursgruppen verwalten<\/b><\/p>\n Das Hauptformular frmKursgruppen basiert auf der Tabelle tblKursgruppen und stellt lediglich das Feld Kursgruppe zur Eingabe bereit. Das Feld KursgruppeID ist deaktiviert und gesperrt. Die Datensatzmarkierer und Bildlaufleisten wurden entfernt und die Rahmenart des Formulars auf Dialog gesetzt.<\/p>\n Das Löschen einer Kursgruppe erfolgt über die Schaltfläche btnKursgruppeLöschen. Die Funktionalität ist mit derjenigen des Mitarbeiterformulars identisch.<\/p>\n Zur Anlage einer neuen Kursgruppe verwenden Sie einfach die Navigationsschaltflächen. Dabei müssen Sie aber darauf achten, bei einem neuen Datensatz im Hauptformular alles auszublenden, was die Erfassung der Kurse betrifft.<\/p>\n Nur so können Sie kontrollieren, dass der Anwender nicht schon Kursdaten eingibt, obwohl er noch keine Kursgruppe angelegt hat.<\/p>\n Um zu prüfen, ob es sich bei dem aktuellen um einen neuen Datensatz handelt, verwenden Sie die NewRecord-Eigenschaft des Formular-Objekts.<\/p>\n Diese fragen Sie im Formularereignis BeimAnzeigen ab. Wenn die Eigenschaft den Wert Wahr hat, blenden Sie das Unterformular und die zugehörigen Schaltflächen aus:<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Nach der Anlage einer neuen Kursgruppe müssen Sie nur noch alles wieder einblenden. In dem vorliegenden Fall ist das einfach, da nur das Feld Kursgruppe ausgefüllt sein muss und es damit genügt, wenn Sie nach der Aktualisierung der Kursgruppe den Datensatz speichern und anschließend erneut die BeimAnzeigen-Prozedur des Formulars aufrufen, um alle versteckten Felder wieder einzublenden (s. Quellcode 1). Zum Schluss aktualisieren Sie noch das Kombinationsfeld zur Auswahl einer Kursgruppe. Schließlich ist dort ein Eintrag hinzugekommen.<\/p>\n Damit Sie eine Kursgruppe schnell finden und nicht durch alle Datensätze navigieren müssen, ist im Kopfbereich des Formulars das Kombinationsfeld cmbKursgruppen angeordnet, das alle Kursgruppen zur Auswahl stellt.<\/p>\n Für die Suche wird eine andere Technik als bei der Mitarbeitersuche angewendet. Nach Auswahl eines Eintrags aus dem Kombinationsfeld sucht eine Prozedur im Formular den passenden Datensatz heraus (s. Quellcode 2). <\/p>\n Dabei wird zunächst die Datenbasis des Formulars mittels der RecordsetClone-Methode in ein Recordset-Objekt kopiert. Anschließend sucht die Prozedur die entsprechende KursgruppeID im Recordset und zeigt diese im Formular an.<\/p>\n Kurse bearbeiten<\/b><\/p>\n Die einzelnen Kurse zu einer Kursgruppe verwalten Sie in dem Unterformular frmKurse. Die Erfassung der Daten gliedert sich in die drei Bereiche Kursdaten, Voraussetzungen und Termine, die jeweils auf einer eigenen Registerseite angeordnet sind.<\/p>\n Die erste Registerseite zeigt die Basisdaten des Kurses an. Eine Besonderheit liegt im Kombinationsfeld AbschlussID. Abhängig vom gewählten Eintrag wird das Feld Mindestnote ein- bzw. ausgeblendet. Diese Aufgabe übernimmt die Funktion ShowOrHideMindestnote (s. Quellcode 3).<\/p>\n Die Funktion besteht nur aus einer Zeile und verändert die Sichtbar-Eigenschaft des Steuerelements Mindestnote.<\/p>\n Ob das Feld eingeblendet werden soll, ermittelt die Prozedur direkt aus dem Kombinationsfeld. Das ist möglich, weil der Wert des Feldes IstMindestnoteErforderlich als Spalte bei der Datensatzherkunft hinterlegt ist.<\/p>\n über die Column-Eigenschaft eines Kombinationsfeldes können Sie generell auf jede Spalte zugreifen, auch wenn diese ausgeblendet ist.<\/p>\n <\/b><\/p>\n Bild 11: Dialog zur Kursauswahl<\/span><\/b><\/p>\n Obwohl die Prozedur nur aus einer Programmzeile besteht, macht diese Ausgliederung der Prozedur Sinn, da sie an mehreren Stellen verwendet wird. Wenn sich an der Ermittlungsroutine etwas ändert oder diese noch ergänzt wird, müssen Sie nur eine Stelle anpassen. <\/p>\n Die Funktion der Kursvoraussetzungen wurde bereits in Abschnitt 2.2 besprochen. Auf der zweiten Registerseite des Kursformulars ordnen Sie diese nun im Unterformular frmKursvoraussetzungen dem aktuellen Kurs zu. Dort ist lediglich ein Kombinationsfeld zur Auswahl der zuzuordnenden Kurse eingefügt sowie eine Schaltfläche zum Löschen eines Eintrags.<\/p>\n Für die Zuordnung von anderen Kursen ist das theoretisch ausreichend. Ab einer gewissen Anzahl von Kursen ist die gerade ausgeführte Lösung für den Anwender aber sehr unübersichtlich. Um dem Anwender die Eingabe so angenehm wie möglich zu gestalten, können Kurse über einen eigenen Dialog gesucht und hinzugefügt werden (siehe Bild 13).<\/p>\n Der Dialog wird über eine Schaltfläche namens btnKurseHinzufügen aufgerufen. Dabei wird die übliche Dialogtechnik angewendet, d. h. das Kursauswahl-Formular wird mit dem Parameter acDialog geöffnet.<\/p>\n Dadurch wird der Code der Schaltfläche, die den Dialog aufgerufen hat, erst dann weiter ausgeführt, wenn das aufgerufene Formular geschlossen oder ausgeblendet wird.<\/p>\n Falls es geschlossen ist, wurde der Dialog abgebrochen und es geschieht nichts weiter. Falls das Formular noch geöffnet ist, wurde mit OK bestätigt und die Dialogeingaben können verarbeitet werden.<\/p>\n Das Formular zur Kursauswahl gestattet verschiedene Filtermöglichkeiten. Zum einen können Sie zunächst in einer Liste die Kursgruppe auswählen. Nach Anklicken einer Gruppe führt das rechte Listenfeld nur noch die Kurse der Gruppe auf.<\/p>\n Alternativ zu einer vordefinierten Gruppe können Sie auch den Eintrag (Alle Kursgruppen) wählen. In diesem Fall zeigt das rechte Listenfeld alle Kurse gleichzeitig an. Der Eintrag kommt jedoch nicht in der Tabelle tblKursgruppen vor.<\/p>\n Den Eintrag erzeugen Sie, indem Sie die Datensatzherkunft des Listenfeldes ein wenig anpassen.<\/p>\n Erstellen Sie zunächst die Abfrage, die alle regulären Kursgruppen aufführt:<\/p>\n Anschließend verknüpfen Sie diese über das Schlüsselwort Union mit der folgenden Abfrage, die den ergänzenden Eintrag generiert: <\/p>\n Quellcode 4<\/b><\/p>\n <\/b><\/p>\n Bild 12: Suche nach Kursen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Mehrfachselektion von Kursen<\/span><\/b><\/p>\n Durch die Union-Anweisung werden beide Abfrageergebnisse nacheinander aufgeführt und erscheinen gemeinsam im Listenfeld. Um nun die Kursliste beim Klicken auf eine Kursgruppe zu aktualisieren, verwenden Sie die Prozedur KurseAktualisieren. Die Prozedur setzt die Datensatzherkunft für das Listenfeld lstKurse zusammen (s. Quellcode 4).<\/p>\n Wenn eine reguläre Kursgruppe (KursgruppeID>0) angeklickt wird, dann ergänzt die Prozedur die WHERE-Klausel mit der entsprechenden Filterbedingung. Klickt der Anwender den ersten Eintrag an, lässt die Prozedur die Filterbedingung einfach weg und zeigt dadurch alle Kurse an.<\/p>\n Zusätzlich zur Filterung über die Kursgruppe kann nach einem beliebigen Begriff in der Kursliste gesucht werden (siehe Bild 12). Auch hier wird nach der Aktualisierung des Textfeldes die Datenherkunft des Listenfeldes angepasst und entsprechend gefiltert.<\/p>\n Das Kurs-Listenfeld ist so eingestellt, dass mehrere Kurse auf einmal ausgewählt und übernommen werden können. Dazu stellen Sie die Eigenschaft Mehrfachauswahl auf Erweitert. So lassen sich wie unter Windows üblich mit der Shift- oder Strg-Taste mehrere Einträge markieren (siehe Bild 13).<\/p>\n Wenn Sie nach der Auswahl auf die Schaltfläche Kurse übernehmen klicken, wird das Dialogfenster nur ausgeblendet und nicht geschlossen. Auf diese Weise kann die Prozedur, die den Dialog aufgerufen hat, fortgeführt werden und auf die Daten des Dialogs zugreifen. <\/p>\n Quellcode 5<\/b><\/p>\n Die Prozedur (s. Quellcode 5) erkennt zunächst, dass das Formular frmKursauswahl noch geöffnet ist. <\/p>\n <\/b><\/p>\n Bild 14: Alle über den Dialog hinzugefügten Kurse<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 15: Die Terminliste eines Kurses<\/span><\/b><\/p>\n In einer For Each-Schleife durchläuft es anschließend alle im Dialog markierten Kurse. Die markierten Einträge eines Listenfeldes erhalten Sie über die Auflistung ItemsSelected.<\/p>\n Eine einfache INSERT INTO-Abfrage fügt dann die einzelnen Kurse nacheinander in die Tabelle tblKursvoraussetzungen ein. Das Ergebnis sehen Sie in Bild 14.<\/p>\n Termine erfassen<\/b><\/p>\n Auf der dritten Registerseite eines Kurses geben Sie die einzelnen Termine ein. Die Basistermindaten erfassen Sie dabei direkt im Unterformular (siehe Bild 17).<\/p>\n Nach Eingabe eines Datums erzeugt die Anwendung automatisch die Kursnummer. Sie setzt sich aus dem Kürzel und dem Datum zusammen:<\/p>\n Sie können aber auch eine beliebige andere Regel hinterlegen oder die Kursnummer manuell eingeben.<\/p>\n <\/b><\/p>\n Bild 16: Abfrage zur Ermittlung der Kursdaten<\/span><\/b><\/p>\n Sobald Sie einen neuen Termin eingegeben haben, werden Sie von der Anwendung gefragt, ob die Kurseinheiten angelegt werden sollen.<\/p>\n Die Zeiten für die Kurseinheiten berechnet die Anwendung automatisch aus den Kursdaten, sofern diese alle eingegeben sind.<\/p>\n Der Aufruf der Funktion ist bei dem Formularereignis Nach Eingabe hinterlegt, wodurch die Meldung nur beim ersten Speichern des Datensatzes angezeigt wird.<\/p>\n Die Prozedur fragt zuerst über eine Msgbox, ob die Daten eingefügt werden sollen. Wenn der Anwender mit Ja bestätigt, wird die Prozedur TermindetailsAnlegen mit der aktuellen TerminID aufgerufen.<\/p>\n Im Folgenden werden die einzelnen Elemente der Prozedur beschrieben. Den gesamten Quellcode finden Sie in der Musterlösung im Modul modTermine.<\/p>\n Im ersten Schritt wird ein Recordset (rstTermine) auf Basis der Abfrage qryTerminBasisdaten geöffnet. Die Abfrage enthält alle für die Berechnung der Kurseinheiten erforderlichen Datenfelder (siehe Bild 16).<\/p>\n Findet die Prozedur einen passenden Datensatz, speichert sie die Daten zunächst in Variablen. Anschließend prüft sie, ob überhaupt alle zur Berechnung notwendigen Daten vorhanden sind. Fehlt ein Wert, wird die Berechnung abgebrochen. Falls beim Startdatum des Termins nur ein Datum, aber keine Uhrzeit festgelegt wurde, korrigiert die Prozedur dieses Versäumnis und setzt die Startuhrzeit automatisch mit der folgenden Anweisung auf 8:00 Uhr:<\/p>\n In einem nächsten Schritt prüft die Prozedur, ob bereits Kurseinheiten für den Termin vorhanden sind. Ist das der Fall, kann der Anwender entscheiden, ob die Termine gelöscht werden sollen (s. Quellcode 6). Wenn alle Hindernisse und Abfragen überwunden sind, erfolgt die eigentliche Berechnung der Kurseinheiten. In einer Schleife legt die Prozedur so viele Kurseinheiten an, wie im Feld AnzahlEinheiten für den Kurs definiert wurden.<\/p>\n <\/b><\/p>\n Bild 17: Hier können Sie Termine und Kurseinheiten bearbeiten<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 18: Aufruf der Anwesenheitsliste<\/span><\/b><\/p>\n Quellcode 6<\/b><\/p>\n Dazu berechnet sie zuerst das Enddatum für die aktuelle Kurseinheit auf Basis des Startdatums und der DauerProEinheit und speichert anschließend die Kurseinheit:<\/p>\n Zum Schluss berechnet die Prozedur das Startdatum für die nächste Kurseinheit auf Basis des Intervalls, das bei dem Kurs hinterlegt wurde:<\/p>\n Die einzelnen Kurseinheiten können Sie sich nach der Anlage natürlich auch ansehen.<\/p>\n Klicken Sie dazu doppelt auf einen Termin, wodurch sich das in Bild 17 gezeigte Formular öffnet.<\/p>\n Die Schaltfläche Einheiten anlegen ruft die zuvor beschriebene Prozedur TermindetailsAnlegen auf. <\/p>\n Die Anwesenheitsliste öffnen Sie über die gleichnamige Schaltfläche (siehe Bild 18).<\/p>\n Die Liste führt alle Kurs-Teilnehmer auf. Das Feld WarAnwesend markiert dabei, ob der Mitarbeiter am Kurs teilgenommen hat.<\/p>\n <\/b><\/p>\n Bild 19: Der Dialog zur Teilnehmeranmeldung<\/span><\/b><\/p>\n Das Formular dient hier lediglich der Information und ist absichtlich schreibgeschützt. Die Erfassung der Anwesenheiten erfolgt über einen gesonderten Dialog, der in Abschnitt 7 beschrieben wird. <\/p>\n Wenn Sie sich die Anwesenheitsliste und deren Programmcode etwas genauer anschauen, werden Sie feststellen, dass das Unterformular nicht nur im vorliegenden Dialog verwendet wird, sondern auch im Formular frmTeilnahmenachweisEingeben – allerdings mit leicht abgewandelter Funktionsweise. Wie Sie ein Unterformular mit unterschiedlichen Funktionen in zwei Hauptformularen verwenden können, lesen Sie in den Tipps & Tricks dieser Ausgabe. <\/p>\n Die angemeldeten Teilnehmer lassen sich im Terminformular ebenfalls einsehen – natürlich nur schreibgeschützt.<\/p>\n Die Liste finden Sie auf der Registerseite Angemeldete Teilnehmer.<\/p>\n Bisher haben Sie die Eingabemasken für die Stammdaten erstellt. In den folgenden drei Abschnitten geht es nun um die eigentliche Anmeldung von Teilnehmern, die Erfassung der Anwesenheit und die Eingabe der Noten. Für jeden der drei Bereiche gibt es ein eigenes Formular.<\/p>\n Aufbau des Anmeldeformulars<\/b><\/p>\n Das Anmeldeformular ist so gestaltet, dass der Anwender alle Informationen auf einen Blick einsehen kann (siehe Bild 19). Auf der linken Seite sind alle Mitarbeiter und auf der rechten Seite alle Kurstermine aufgelistet.<\/p>\n Da es zu einem Kurs mehrere Termine geben kann, tauchen in der Liste einige Kurse doppelt auf, jedoch mit unterschiedlichen Kursnummern. Sie können die Listen jeweils über ein Stichwort filtern und so auch einen konkreten Kurs durch Eingabe der Kursnummer finden, da in der Kursnummer das Datum enthalten ist.<\/p>\n Die Suche ist im Beispiel zwar sehr einfach gehalten, aber effektiv. Mit wenigen Eingaben filtern Sie die Listen und erhalten die gesuchten Einträge. Selbstverständlich können Sie die Suche nach Belieben ausbauen. Zum einen können Sie einige Filterfelder direkt im Formular ergänzen. Ein Beispiel wäre die Eingabe eines Datumsbereichs zur Selektion von Kursen in einem speziellen Zeitraum. Zum anderen wäre die Entwicklung eines eigenen Suchdialogs für die Kurse möglich, den Sie über eine Schaltfläche aufrufen. Versuchen Sie einmal zur übung, den bereits vorhandenen Dialog zur Kursauswahl frmKursauswahl in das Anmeldeformular zu integrieren und die im Dialog markierten Kurse in das Anmeldeformular zu übernehmen. Die Lösung dieser Aufgabe erhalten Sie in der nächsten Ausgabe. <\/p>\n Konstante<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n Anmelde-Schaltfläche aktiviert<\/b><\/p>\n<\/td>\n Stammdaten-Schaltfläche sichtbar<\/b><\/p>\n<\/td>\n Textfarbe<\/b><\/p>\n<\/td>\n<\/tr>\n kvStammdatenEditieren<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n Die Stammdaten sind nicht vollständig. Die Anmeldung kann erst fortgesetzt werden, nachdem die Stammdaten korrigiert wurden.<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n Rot<\/p>\n<\/td>\n<\/tr>\n kvAnmeldungNichtMoeglichRot<\/p>\n<\/td>\n 2<\/p>\n<\/td>\n Die Kursvoraussetzungen sind nicht erfüllt oder es sind keine Plätze mehr verfügbar<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Rot<\/p>\n<\/td>\n<\/tr>\n kvAnmeldungNichtMoeglichGruen<\/p>\n<\/td>\n 3<\/p>\n<\/td>\n Der Mitarbeiter ist bereits für den Kurs angemeldet oder hat schon bestanden<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Grün<\/p>\n<\/td>\n<\/tr>\n kvAnmeldungMoeglich<\/p>\n<\/td>\n 4<\/p>\n<\/td>\n Der Mitarbeiter ist noch nicht angemeldet und erfüllt alle Voraussetzungen<\/p>\n<\/td>\n Ja<\/p>\n<\/td>\n Nein<\/p>\n<\/td>\n Grün<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 7: Status-Konstanten und deren Bedeutung<\/b><\/p>\n In jeder Liste kann genau ein Eintrag markiert werden. Es ist also nicht möglich, beispielsweise mehrere Mitarbeiter zu markieren und gleichzeitig für einen Kurs anzumelden. Technisch wäre das kein Problem, ist aber zur Validierung der Anmeldung eines Teilnehmers unvorteilhaft.<\/p>\n Unterhalb der Liste ist ein Hinweisfeld angeordnet, welches zu jeder gewählten Kombination aus Mitarbeiter und Kurs eine Meldung anzeigt. Ist der Hinweistext grün, sind alle Voraussetzungen erfüllt und Sie können den Mitarbeiter für den Kurs anmelden. Wenn der Text rot erscheint, gibt es mindestens einen Parameter, der nicht erfüllt ist, und Sie können die Anmeldung nicht durchführen.<\/p>\n Anmeldung validieren<\/b><\/p>\n Welche Parameter geprüft werden und Voraussetzung für die mögliche Anmeldung zu einem Kurs sind, gibt die Funktion KursValidieren vor. Sie finden diese im Modul modAnmeldung.<\/p>\n Der Funktion werden die MitarbeiterID und die TerminID übergeben. Als Rückgabewerte erhalten Sie den Hinweistext für das Anmeldeformular und einen Status, auf dessen Basis Sie die Textfarbe ändern und Schaltflächen zur Anmeldung und Stammdateneingabe aktivieren bzw. deaktivieren.<\/p>\n Im Modul modAnmeldung sind dazu vier Status-Konstanten definiert. Tabelle 7 beschreibt die Konstanten, deren Bedeutung, die Auswirkungen auf die Schalflächen und den Meldungstext.<\/p>\n Die Funktion prüft der Reihe nach die beschriebenen Parameter ab und setzt entsprechend der Ergebnisse den Meldungstext zusammen.<\/p>\n Im ersten Schritt prüft die Funktion, ob alle Kurseinheiten in den Stammdaten vorhanden sind. Zum Zeitpunkt der Anmeldung müssen alle Kurseinheiten eingegeben sein, da die Zuordnung nur bei der Anmeldung und nicht nachträglich erfolgen kann. Die Funktion vergleicht dazu die Anzahl der Datensätze in der Tabelle tblTermindetails für den Termin mit der AnzahlEinheiten des zugehörigen Kurses. Stimmen die Zahlen nicht überein, setzt sie den Status auf den Wert kvStammdatenEditieren. Eine Anmeldung ist in diesem Fall nicht möglich.<\/p>\n Falls die Stammdatenprüfung erfolgreich verlaufen ist, ermittelt die Funktion im nächsten Schritt, ob der Mitarbeiter bereits an dem Kurs teilgenommen hat, und wenn ja, mit welchem Abschluss. Wenn kein Abschluss vorhanden ist oder der Kurs noch nicht absolviert wurde, setzt die Funktion die AbschlussID auf den Wert 0.<\/p>\n Quellcode 7<\/b><\/p>\n In einer Select-Case-Anweisung werden dann die einzelnen Fälle behandelt. Ist die AbschlussID gleich 1, d. h. der Mitarbeiter hat am Kurs teilgenommen, aber den Kurs noch nicht bestanden, berechnet die Funktion zusätzlich noch die Anzahl der erfolglosen Versuche und gibt diese im Hinweistext aus.<\/p>\n Als zusätzliches Feature für die Schulungsverwaltung könnte in den Stammdaten des Kurses die Anzahl der maximalen Versuche angegeben werden. Bei der Anmeldung würde dann überprüft, ob der Mitarbeiter noch Versuche für den Kurs übrig oder endgültig nicht bestanden hat. <\/p>\n Sollte die Anmeldung nach Check 1 und 2 theoretisch möglich sein, werden die Kursvoraussetzungen geprüft. Dazu dient die Funktion SindVoraussetzungenErfuellt (s. Quellcode 7).<\/p>\n Die Funktion ermittelt zunächst, ob irgendwelche Kurse Bedingung für die Teilnahme am aktuellen Kurs sind. Ist dies der Fall, durchläuft die Funktion alle Vorkurse in einer Schleife und testet sie auf erfolgreiche Teilnahme des Mitarbeiters. Alle Kurse, die den Test nicht bestehen, werden im Hinweistext nacheinander aufgelistet. Gleichzeitig erhält der Rückgabewert der Funktion den Wert False.<\/p>\n <\/b><\/p>\n Bild 20: Bei diesen Voraussetzungen ist die Anmeldung nicht möglich.<\/span><\/b><\/p>\n Quellcode 8<\/b><\/p>\n Der letzte Check kontrolliert, ob überhaupt noch Plätze im Kurs frei sind. Diese Aufgabe übernimmt die Funktion SindGenugPlaetzeFrei (s. Quellcode 8). Die Funktion holt sich zunächst die maximale Teilnehmerzahl aus den Kursstammdaten und berechnet die Anzahl der aktuell angemeldeten Teilnehmer. Ist die maximale Teilnehmerzahl gleich null, sind beliebig viele Plätze frei und der Teilnehmer kann angemeldet werden.<\/p>\n Bei einer maximalen Teilnehmerzahl größer als null wird zunächst die Anzahl der freien Plätze wie folgt berechnet:<\/p>\n Ist das Ergebnis größer als null, sind noch Plätze frei und die Anzahl der Plätze wird im Meldungstext ausgegeben. Ist das Ergebnis gleich null, sind keine Plätze mehr verfügbar und der Teilnehmer kann nicht angemeldet werden.<\/p>\n Bild 22 zeigt ein Beispiel, bei dem zwar noch fünf Plätze frei wären, aber die Voraussetzungen vom Mitarbeiter nicht erfüllt sind.<\/p>\n Anmeldungdurchführen<\/b><\/p>\n Wenn ein Mitarbeiter für die Anmeldung zu einem Kurs freigegeben ist, kann die Anmeldung über die gleichnamige Schaltfläche erfolgen. Dazu wird in der Tabelle tblKursteilnehmer ein Datensatz mit der MitarbeiterID, der TerminID und dem Anmeldedatum hinzugefügt. Außerdem wird für den neu angelegten Kursteilnehmer in der Tabelle tblTeilnahmeNachweise für jede Kurseinheit ein Datensatz angelegt, damit dort später die Anwesenheit erfasst werden kann.<\/p>\n Nachdem ein Mitarbeiter erfolgreich am Kurs angemeldet wurde und nun die einzelnen Kurseinheiten besucht, teilt in der Regel der Kursleiter nach jeder Kurseinheit die Anwesenheitsliste aus, in die sich die Teilnehmer eintragen. Anschließend kann die Anwesenheit in der Schulungsverwaltung nachgetragen werden. Die Nachverfolgung der Anwesenheit geschieht über das Formular frmTeilnahmenachweisEingeben. (siehe Bild 21).<\/p>\n <\/b><\/p>\n Bild 21: Anwesenheitsformular<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 22: Auswahl der Kurseinheit<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 23: Kursabschluss eingeben<\/span><\/b><\/p>\n Der linke Bereich des Formulars listet wieder alle Kurstermine auf, wobei die übliche Filterung der Kurse möglich ist. Abhängig vom gewählten Kurs werden im rechten Bereich die zugehörigen Kurseinheiten in einem Kombinationsfeld bereitgestellt (siehe Bild 22).<\/p>\n Nach Auswahl einer Kurseinheit werden unterhalb des Kombinationsfeldes die Teilnehmer aufgelistet und der Anwender kann die Teilnahme durch einfaches Abhaken des Kontrollkästchens WarAnwesend bestätigen.<\/p>\n Zuletzt können Sie nach Ablauf aller Kurseinheiten für jeden Teilnehmer den erreichten Abschluss eingeben (siehe Bild 23).<\/p>\n Basis für die Erfassung im Formular frmAbschluesseEingeben ist wieder die bekannte Kursliste, in der alle angebotenen Kurse jeweils mit Kursgruppe und nummer aufgeführt sind. <\/p>\n Auch diese Kursliste können Sie über die bereits oben erklärte Schnellsuche filtern, um bei einer großen Anzahl von Kursen gezielt einen Kurs auszusuchen.<\/p>\n Sobald Sie einen Kurs anklicken, werden im unteren Bereich des Formulars alle Kursteilnehmer mit Anmeldedatum, Note, Abschluss und Abschlussdatum aufgeführt. <\/p>\n Dabei sind lediglich die Felder AbschlussID, Note und ZertifikatErhaltenAm zur Eingabe freigegeben. Die Spalte Mindestnote ist nur zur visuellen Kontrolle der zu erreichenden Note durch den Anwender vorgesehen – sie wird natürlich vom Programm überprüft.<\/p>\n War die Teilnahme erfolgreich, müssen Sie das Datum und ggf. eine Note eingeben.<\/p>\n Wie Sie solche Eingaben am besten prüfen, lesen Sie in der vorliegenden Ausgabe von Access im Unternehmen im Beitrag Tipps & Tricks. <\/p>\n Eine zusätzliche Abfrage könnte die Anwesenheit eines Mitarbeiters für den Kurs prüfen und nur bei einer absolvierten Mindestanzahl die Eingabe des erfolgreichen Abschlusses zulassen. <\/p>\n Für alle Teilnehmer, die den Kurs bestanden haben, ist der Ausdruck eines Zertifikats möglich, das als Beispiel abgebildet ist (siehe Bild 24).<\/p>\n <\/b><\/p>\n Bild 24: Ausdruck des Zertifikats<\/span><\/b><\/p>\n In diesem Beitrag haben Sie den Grundaufbau der Schulungsverwaltung sowie die Erfassung von Kursen, Mitarbeitern, Räumen und Kursleitern der Schulungsverwaltung kennen gelernt. <\/p>\n Ferner haben Sie erfahren, wie Sie den komplexen Vorgang der Anmeldung eines Teilnehmers zu einem Kurs durch die überprüfung zahlreicher Bedingungen für den Anwender der Software so einfach wie möglich und fehlerfrei gestalten. Auch die einfache und schnelle Erfassung von Teilnehmernachweisen und Abschlussbewertungen inklusive Ausdruck eines Zertifikats waren Bestandteil des Beitrags.<\/p>\n In einer der folgenden Ausgaben wird die Schulungsverwaltung um Berichte und Auswertungen ergänzt. Sie lernen, wie Sie<\/p>\n Ferner erstellen Sie eine Auslastungsübersicht, bei der alle Kurse mit Teilnehmerzahl, Verhältnis der Zahl der Teilnehmer zur maximalen Teilnehmerzahl und der durchschnittlichen Teilnehmerzahl pro Kurs aufgeführt werden.<\/p>\n In einer Erfolgsübersicht geben Sie die Kursliste eines Mitarbeiters mit Durchschnittsnote und der Erfolgsquote (Bestanden\/Nicht bestanden) aus.<\/p>\n Neben den Berichten und Auswertungen wird eine Kursleiter- und Raumplanung erstellt, die eine Doppelbuchung eines Trainers oder Raumes verhindert. Als Nebenprodukte fallen dabei ein Stundenzettel für den Trainer und ein Raumbelegungsplan ab.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Schulungsdatenbank2000.mdb<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic003.png\")
<\/p>\nKursgruppen<\/h3>\n
Kurse<\/h3>\n
Kursintervalle<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Kursabschluss<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Hinweis<\/h3>\n
Praxis-Tipp<\/h3>\n
Teilnehmerzahl<\/h3>\n
Kursvoraussetzungen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic004.png\")
<\/p>\nTermine<\/h3>\n
Termindetails<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic005.png\")
<\/p>\nHinweis<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n Kursteilnehmer<\/h3>\n
Teilnahmenachweise<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic007.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic008.png\")
<\/p>\nPrivate Sub btnLöschen_Click()\r\n DoCmd.RunCommand acCmdSaveRecord\r\n DoCmd.RunCommand acCmdDeleteRecord\r\n DoCmd.RunCommand _ acCmdRecordsGoToFirst\r\nEnd Sub<\/pre>\n
Private Sub txtFilter_AfterUpdate()\r\n If Nz(Me!txtFilter, \"\") <> \"\" Then\r\n Me.Filter = \"vorname like \"\"*\" _ & Me!txtFilter _ & \"*\"\" or Nachname like \"\"*\" _ & Me!txtFilter & \"*\"\"\"\r\n Me.FilterOn = True\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub btnFilteraufheben_Click()\r\n Me!txtFilter = \"\"\r\n Me.Filter = \"\"\r\n Me.FilterOn = False\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic010.png\")
<\/p>\nLöschen einer Kursgruppe<\/h3>\n
Kursgruppen anlegen<\/h3>\n
Private Sub Form_Current()\r\n If Me.NewRecord Then\r\n subKurse.Visible = False\r\n btnNeuerKurs.Visible = False\r\n btnKursLöschen.Visible = False\r\n Else\r\n subKurse.Visible = True\r\n btnNeuerKurs.Visible = True\r\n btnKursLöschen.Visible = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Kursgruppe_AfterUpdate()\r\n If Me.NewRecord Then\r\n DoCmd.RunCommand acCmdSaveRecord\r\n Form_Current\r\n Me!cmbKursgruppen.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmbKursgruppen_AfterUpdate()\r\n Dim rstKurse As Recordset\r\n Set rstKurse = Me.RecordsetClone\r\n rstKurse.FindFirst \"KursgruppeID=\" & cmbKursgruppen\r\n If Not rstKurse.NoMatch Then\r\n Me.Bookmark = rstKurse.Bookmark\r\n End If\r\nEnd Sub<\/pre>\n
Sub ShowOrHideMindestnote()\r\n Me!MindestNote.Visible = _ CBool(Nz(Me!AbschlussID.Column(2), False))\r\nEnd Sub<\/pre>\n
Kursgruppen suchen<\/h3>\n
Kursdaten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic011.png\")
<\/p>\nHinweis<\/h3>\n
Kursvoraussetzungen<\/h3>\n
Dialog zur Kursauswahl<\/h3>\n
DoCmd.OpenForm _ \"frmKursauswahl\", _ acNormal, , , , _ acDialog<\/pre>\n
Kurse filtern und suchen<\/h3>\n
SELECT KursgruppeID, Kursgruppe FROM tblKursgruppen ORDER BY Kursgruppe<\/pre>\n
Sub KurseAktualisieren()\r\n Dim SQL As String\r\n SQL = \"SELECT KursID, Kurslevel, Kursname, Kuerzel FROM tblKurse\"\r\n If Nz(Me!lstKursgruppen, 0) > 0 Then\r\n SQL = SQL & \" WHERE KursgruppeID=\" & Me!lstKursgruppen\r\n End If\r\n SQL = SQL & \" ORDER BY Kurslevel,Kursname\"\r\n Me!lstKurse.RowSource = SQL\r\n Me!lstKurse.Requery\r\nEnd Sub<\/pre>\n
SELECT 0 AS KursgruppeID, \"(Alle Kursgruppen)\" AS Kursgruppe FROM tblKursgruppen <\/pre>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic013.png\")
<\/p>\nKurse auswählen<\/h3>\n
Kurse speichern<\/h3>\n
If IsLoaded(\"frmKursauswahl\") = True Then\r\n Set lstKurse = Forms!frmKursauswahl!lstKurse\r\n Kursnummer = Me!KursID\r\n For Each Listitem In lstKurse.ItemsSelected\r\n If Nz(DLookup(\"KursvoraussetzungID\", \"tblKursvoraussetzungen\", _\r\n \"KursID=\" & Kursnummer & _\r\n \" AND VoraussetzungsKursID=\" & lstKurse.ItemData(Listitem)), \"\") = \"\" Then\r\n SQL = \"INSERT INTO tblKursvoraussetzungen\" & _\r\n \" (KursID, VoraussetzungsKursID) Values\" & _\r\n \" (\" & Kursnummer & \", \" & lstKurse.ItemData(Listitem) & \")\"\r\n db.Execute SQL\r\n End If\r\n Next Listitem\r\n DoCmd.Close acForm, \"frmKursauswahl\"\r\n Me!subKursvoraussetzungen.Form.Requery\r\nEnd If <\/pre>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic014.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic015.png\")
<\/p>\nIf IsDate(Me!Startdatum) And _ Nz(Me!Startdatum, \"\") <> \"\" Then\r\n Me!Kursnummer = Nz(Me.Parent!Kuerzel, _ \"DUMMY\") & Format(Me!Startdatum, _ \"yymmdd\")\r\nEnd If<\/pre>\n
Kurseinheiten anlegen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic016.png\")
<\/p>\nIf Hour(Startdatum) = 0 Then\r\n Startdatum = DateAdd(\"h\", 8, _ Startdatum)\r\nEnd If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic017.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic018.png\")
<\/p>\nIf DCount(\"TerminID\", \"tblTermindetails\", \"TerminID=\" & TerminID) > 0 Then\r\n If MsgBox(\"Möchten Sie die vorhandenen Termine löschen (empfohlen)\", _ vbYesNo) = vbYes Then\r\n DeleteSQL = \"DELETE * FRom tblTermindetails WHERE TerminID=\" & TerminID\r\n db.Execute DeleteSQL\r\n End If\r\nEnd If<\/pre>\n
MyEnddatum = _ DateAdd(\"h\", _ DauerProEinheit, _ MyStartdatum)<\/pre>\n
MyStartdatum = _ DateAdd( _ IntervallFormat, _ Intervall, _ MyStartdatum)<\/pre>\n
Kurseinheiten bearbeiten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic019.png\")
<\/p>\nHinweis<\/h3>\n
Praxis-Tipp<\/h3>\n
Hinweis<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Check 1: Stammdaten o.k. <\/h3>\n
Check 2: Kurs schon bestanden<\/h3>\n
Function SindVoraussetzungenErfuellt(MitarbeiterID, KursID, ByRef MyMeldung) _ As Boolean\r\n Set db = CurrentDb()\r\n Set rstKurse = db.OpenRecordset _ (\"SELECT * FROM qryKursvoraussetzungen WHERE KursID=\" & KursID)\r\n With rstKurse\r\n If .RecordCount = 0 Then\r\n SindVoraussetzungenErfuellt = True\r\n Else\r\n SindVoraussetzungenErfuellt = True\r\n While Not .EOF\r\n If Nz(DLookup(\"KursteilnehmerID\", \"qryMitarbeiterUndKurse\", _\r\n \"nz(AbschlussID,0)>1 AND MitarbeiterID=\" & MitarbeiterID & _\r\n \" AND KursID=\" & !VoraussetzungsKursID), \"\") = \"\" Then\r\n SindVoraussetzungenErfuellt = False\r\n tempMeldung = tempMeldung & \"- \" & !Kurs & vbCrLf\r\n End If\r\n .MoveNext\r\n Wend\r\n If SindVoraussetzungenErfuellt = False Then\r\n tempMeldung = vbCrLf & vbCrLf _ & \"Allerdings sind die folgenden Kurse\" & _\r\n \" Voraussetzung für den Kurs und fehlen bisher:\" & vbCrLf _ & tempMeldung\r\n End If\r\n End If\r\n End With\r\n MyMeldung = MyMeldung & tempMeldung\r\nEnd Function<\/pre>\n
Praxis-Tipp<\/h3>\n
Check 3: Voraussetzungen erfüllt<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic020.png\")
<\/p>\nIf FreiePlaetze > 0 Then\r\n SindGenugPlaetzeFrei = True\r\n If FreiePlaetze = 1 Then\r\n MyMeldung = MyMeldung & vbCrLf & vbCrLf & _\r\n \"Es ist noch \" & FreiePlaetze & _ \" Platz verfügbar.\"\r\n Else\r\n MyMeldung = MyMeldung & vbCrLf & vbCrLf & _\r\n \"Es sind noch \" & FreiePlaetze & _ \" Plätze verfügbar.\"\r\n End If\r\nElse\r\n SindGenugPlaetzeFrei = False\r\n MyMeldung = MyMeldung & vbCrLf & vbCrLf & _\r\n \"Es sind keine Plätze mehr verfügbar. \" & _\r\n \"Bitte wählen Sie ein anderes Datum.\"\r\nEnd If<\/pre>\n
Check 4: Noch freie Plätze verfügbar<\/h3>\n
FreiePlaetze = _MaxAnzahl - AktuelleAnzahl<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic021.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic022.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic023.png\")
<\/p>\nHinweis<\/h3>\n
Praxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{53D4626C-0B85-4B44-B5F3-30865021F6E0}\/pic024.png\")
<\/p>\nDownloads zu diesem Beitrag<\/h3>\n