<\/p>\n
Mit den Anleitungen des ersten Teils dieses Beitrags aus der letzten Ausgabe können Sie eine Schulungsverwaltung erstellen, mit der Schulungsprogramme sowie die angemeldeten Teilnehmer und deren Abschlüsse verwaltet werden. In dieser Ausgabe lernen Sie, wie Sie die Software um eine Raum- und Kursleiterplanung erweitern können. Außerdem erfahren Sie, wie Sie ein Auswahlformular zum Druck von Stunden- und Raumbelegungsplänen entwerfen können.<\/b><\/p>\n
In der bisherigen Version der Kursverwaltung können Sie zu jedem Kurs mehrere Starttermine jeweils mit einem Kursleiter und einer Raumnummer angeben. Pro Termin lassen sich dabei mehrere Kurseinheiten mit Start- und Enddatum erfassen (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Alte Version der Kursverwaltung<\/span><\/b><\/p>\n Mit dieser Variante haben Sie programmtechnisch aber nicht die Möglichkeit zu prüfen, ob für eine angegebene Kurseinheit der gewählte Raum bzw. Kursleiter frei ist.<\/p>\n Folglich kann es passieren, dass Räume doppelt belegt werden oder Kursleiter zwei Kurse gleichzeitig halten müssten.<\/p>\n Um einen Prüfmechanismus einbauen zu können, ergänzen Sie die Datenstruktur so, dass zusätzlich zu jeder in der Tabelle tblTermindetails gespeicherten Kurseinheit der Raum und der Kursleiter gespeichert werden.<\/p>\n Fügen Sie dazu in der Tabelle tblTermindetails die Felder RaumID und KursleiterID ein.<\/p>\n Verknüpfen Sie anschließend die Felder mit den entsprechenden Primärschlüsseln der Tabellen tblRaeume und tblKursleiter unter Verwendung der referenziellen Integrität. <\/p>\n Bild 2 zeigt die neue Datenstruktur für den entsprechenden Teilbereich.<\/p>\n <\/b><\/p>\n Bild 2: Neue Datenstruktur für die Kursverwaltung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Das neue Formular frmTermineBearbeiten<\/span><\/b><\/p>\n Im nächsten Schritt passen Sie zunächst das Unterformular frmTerminDetails an. Fügen Sie dazu die zwei Kombinationsfelder KursleiterID und RaumID ein, über die die Auswahl des Kursleiters und des Raumes zu einer Kurseinheit erfolgt.<\/p>\n Am einfachsten erstellen Sie die Kombinationsfelder, indem Sie diese aus dem Formular frmTermineBearbeiten kopieren. Die Kombinationsfelder sind absolut identisch und das Anlegen ist mit nur zwei Mausklicks erledigt. <\/p>\n Nun ordnen Sie die Steuerelemente im Formular frmTermineBearbeiten noch neu an. Verbreitern Sie das Unterformular-Steuerelement, damit die neuen Felder in der Liste sichtbar sind, und platzieren Sie die Schaltflächen unterhalb der Liste. Das neue Formular könnte wie in Bild 3 gezeigt aussehen.<\/p>\n Die Verfügbarkeit eines Raumes oder Kursleiters kann jetzt für jede Kurseinheit separat geprüft werden. Die überprüfung erfolgt an zwei Stellen: zum einen in der Prozedur TermindetailsAnlegen, die über die Schaltfläche Einheiten anlegen aufgerufen wird und in einem Schritt mehrere Kurseinheiten einfügt; zum anderen nach der manuellen änderung von Werten direkt in den Kombinationsfeldern für den Raum und den Kursleiter.<\/p>\n Die Prüfmechanismen werden im Folgenden nur noch für Räume beschrieben, da sie mit denen für Kursleiter identisch sind. Dabei muss lediglich das Feld RaumID durch das Feld KursleiterID ersetzt werden. <\/p>\n Die eigentliche Verfügbarkeitsprüfung erfolgt über die Funktion IstRaumVerfügbar (s. Quellcode 1). Der Funktion werden die Raumnummer und der zu prüfende Zeitraum mit Start- und Enddatum übergeben.<\/p>\n Quellcode 1<\/b><\/p>\n Die Besonderheit liegt bei der Datumsbetrachtung. Die Prozedur schaut in der Tabelle tblTermindetails nach, ob das zu prüfende Start- bzw. Enddatum für die angegebene Raumnummer bereits innerhalb eines anderen in der Tabelle gespeicherten Zeitraums liegt. Der folgende Ausdruck dient dabei (exemplarisch für das Startdatum) als Bedingung:<\/p>\n In der Bedingung werden nicht die exakten Datumswerte geprüft, da sonst ein Kurs, der um 14:00 Uhr endet, mit einem zu prüfenden Kurs, der um 14:00 Uhr beginnt, zusammenfallen würde.<\/p>\n Die Abfrage würde dann als Ergebnis liefern, dass um 14:00 Uhr bereits ein Kurs vorhanden ist. Um das zu vermeiden, wird beim Startdatum eine Sekunde addiert und beim Enddatum eine Sekunde subtrahiert.<\/p>\n Folglich würde der Kurs, der um 14:00 Uhr endet, mit dem Wert 13:59:59 Uhr geprüft.<\/p>\n Alternativ zur DateAdd-Funktion können Sie auch mit Größer- und Kleiner-Zeichen arbeiten. Die Bedingung sähe dann wie folgt aus: <\/p>\n SQLDatum(Startdatum) & „>Startdatum And “ & SQLDatum(Startdatum) & „<Enddatum“ <\/p>\n Ferner prüft die gesamte Bedingung, ob Start- oder Enddatum für den Raum schon vorhanden sind. Diese Fälle müssen ebenfalls ausgeschlossen werden.<\/p>\n Liefert die Gesamtbedingung für die Tabelle tblTermindetails keine Ergebnisse zurück, dann ist der Raum verfügbar.<\/p>\n Die Funktion IstRaumVerfügbar kann jetzt beim Anlegen von Kurseinheiten mittels der Funktion TermindetailsAnlegen eingesetzt werden. über die Abfrage aus Quellcode 2 wird zunächst die Raumnummer ermittelt, die beim Anlegen einer neuen Kurseinheit verwendet werden soll.<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Wenn der Raum verfügbar ist, wird die RaumID verwendet, die bei den Termindaten als Standard definiert wurde. Im anderen Fall setzt die Prozedur den Wert auf Null. Der Raum wird also freigelassen. Außerdem merkt sich die Prozedur den geprüften Zeitraum in der Variablen RaumErrorstring, um dem Anwender nach Anlage aller Kurseinheiten eine übersicht über die Kurse zu geben, für die der Standardraum nicht festgelegt werden konnte.<\/p>\n <\/p>\n Diese Meldung wird wie folgt zusammengesetzt und zeigt zusätzlich die Kursleiter an, die nicht eingefügt werden konnten (s. Quellcode 3).<\/p>\n <\/b><\/p>\n Bild 4: Fehlermeldung beim automatischen Anlegen von Kurseinheiten<\/span><\/b><\/p>\n Bild 4 zeigt eine solche Fehlermeldung. Dabei wurden die Kurseinheiten einfach doppelt angelegt, ohne die schon bestehenden vorher zu löschen.<\/p>\n <\/b><\/p>\n Bild 5: Fehlermeldung bei manueller Eingabe von Kurseinheiten<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Tabellenstruktur für die Abfrage qryWochenplanDrucken<\/span><\/b><\/p>\n Quellcode 4<\/b><\/p>\n Da im Terminformular die Kurseinheiten nachträglich vom Anwender verändert oder auch komplett manuell eingegeben werden können, müssen Sie die Verfügbarkeit auch im Formular frmTermindetails abprüfen. <\/p>\n Verwenden Sie dazu das Ereignis Vor Aktualisierung des Kombinationsfeldes RaumID, um ggf. eine ungültige Eingabe per Programm abzubrechen.<\/p>\n Die Ereignisprozedur prüft erst, ob Start- und Enddatum eingegeben sind. Fehlt einer der beiden Werte, kann die Verfügbarkeit nicht ermittelt werden und die Prozedur bricht die Eingabe mit einem Hinweis für den Anwender ab.<\/p>\n Sind beide Datumswerte vorhanden, verwendet die Prozedur wieder die Funktion IstRaumVerfügbar. <\/p>\n Falls der eingegebene Raum nicht verfügbar ist, erhält der Anwender eine Meldung und die Eingabe wird mit dem Ausdruck Cancel=True abgebrochen (siehe Bild 5).<\/p>\n Nachdem Sie die Erfassung der Kurseinheiten nun vervollständigt haben, können Sie auf Basis der Kursdaten sowohl Wochenpläne für die Kursleiter als auch Raumbelegungspläne drucken.<\/p>\n Beide Berichte basieren auf den gleichen Daten, lediglich die Anordnung der Steuerelemente und die Gruppierung ist eine andere.<\/p>\n Erstellen Sie zunächst die Basisabfrage für die Berichte. Die Abfrage verwendet die in Bild 6 gezeigten Tabellen.<\/p>\n Die folgenden Felder werden benötigt: RaumID und -name, KursleiterID und -name, Start- und Enddatum sowie die Kursnummer und -bezeichnung.<\/p>\n <\/b><\/p>\n Bild 7: Der Wochenbericht in der Entwurfsansicht<\/span><\/b><\/p>\n Zusätzlich enthält die Abfrage drei berechnete Felder. Das Feld AnzahlTeilnehmer ermittelt mit der bereits bekannten Funktion GetAnzahlAngemeldeteTeilnehmer die Anzahl der angemeldeten Teilnehmer für einen Kurs: <\/p>\n Die Felder Kalenderwoche und KalenderwocheJahr werden zur Filterung benötigt. <\/p>\n über diese Felder können Sie später gezielt eine Woche oder einen Wochenbereich auswählen. Die fertige Abfrage finden Sie in der Musterlösung unter dem Namen qryWochenplanDrucken.<\/p>\n Als Nächstes entwerfen Sie die Berichte auf Basis der eben erstellen Abfrage qryWochenplanDrucken.<\/p>\n Legen Sie für den Wochenplan einen Bericht an, den Sie nach den Feldern Leiter, Woche von Startdatum und Tag von Startdatum gruppieren, um eine wöchentliche Auswertung pro Kursleiter zu erhalten. Im Detailbereich fügen Sie die Felder Kursnummer, Kursbezeichnung, Raumnummer und AnzahlTeilnehmer ein.<\/p>\n Die Uhrzeit der Kurseinheit ermitteln Sie aus dem Start- und Enddatum mit dem folgenden Ausdruck:<\/p>\n Legen Sie ein Textfeld mit dem Namen txtZeitraum an und tragen Sie den Ausdruck bei der Eigenschaft Steuerelementinhalt ein.<\/p>\n Den fertigen Bericht repWochenplanDrucken_Kursleiter sehen Sie in Bild 7 in der Entwurfsansicht.<\/p>\n Den Bericht für die Raumbelegung können Sie aufgrund der gleichen Datenbasis beider Berichte einfach kopieren. <\/p>\n Speichern Sie den Bericht repWochenplanDrucken_Kursleiter unter dem Namen repWochenplanDrucken_Raeume ab. ändern Sie dann die erste Gruppierung von Leiter in Raumnummer und passen Sie den Text im Gruppierungsbereich an. Zum Schluss müssen Sie nur noch im Detailbereich das Feld Raumnummer gegen Leitername austauschen.<\/p>\n Damit der Anwender die Wochenpläne komfortabel aufrufen kann, erstellen Sie ein Formular, über das vor dem öffnen des Berichts der Zeitraum und der Kursleiter bzw. die Raumnummer ausgewählt werden können. <\/p>\n Das Formular frmWochenplanDrucken ist in Bild 8 dargestellt. Es ist in drei Bereiche aufgeteilt. über den ersten Bereich erfolgt die Auswahl des Zeitraums mittels Jahr und Kalenderwoche. Im zweiten Bereich können Sie einen Kursleiter wählen und die zugehörigen Wochenpläne drucken, während der dritte Bereich dem Druck der Raumbelegungspläne dient.<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Die Auswahl des Zeitraums erfolgt über drei Kombinationsfelder. Alle Felder werden vom Programm automatisch beim öffnen des Formulars jeweils mit einer Werteliste gefüllt.<\/p>\n Das Füllen des Kombinationsfeldes zur Auswahl des Jahres erfolgt mittels der Funktion JahreslisteFuellen (s. Quellcode 5).<\/p>\n Die Prozedur setzt über die Funktion GetJahresliste (s. Quellcode 6) die Werteliste zusammen, weist sie dem Kombinationsfeld zu und fragt es neu ab. Anschließend wird noch das aktuelle Jahr im Formular angezeigt.<\/p>\n Die Werteliste wird über eine For Next-Schleife in der Funktion GetJahresliste zusammengefügt. Dabei werden rückwirkend die letzten 20 Jahre genauso wie die nächsten fünf Jahre berücksichtigt.<\/p>\n <\/b><\/p>\n Bild 8: Das Auswahlformular frmWochenplanDrucken<\/span><\/b><\/p>\n Die Einschränkung des Zeitraums erfolgt weiter durch die Kombinationsfelder zur Auswahl der Kalenderwochen. Die Zusammenstellung der Wertelisten für diese Kombinationsfelder ist prinzipiell mit der für die Jahre identisch.<\/p>\n In einer Schleife werden die Zahlen 1 bis 52 mit Semikolon getrennt zur Werteliste zusammengefügt. <\/p>\n Allerdings sollen zusätzlich zur Kalenderwoche auch die genauen Daten der Woche im folgenden Format angezeigt werden:<\/p>\n Leider bietet Access keine eingebaute Funktion, um für eine Kalenderwoche das Datum eines bestimmten Tages der Woche auszugeben – für den vorliegenden Fall den Montag. Deshalb benötigen Sie eine eigene Funktion, die diese Aufgabe erledigt. Die Funktion hat den Namen GetKWMontag (Quellcode 7).<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Als übergabeparameter erwartet die Funktion eine Kalenderwoche und eine Jahreszahl. Mit diesen beiden Parametern berechnet die Funktion zunächst einen beliebigen Tag in der angegebenen Woche, ausgehend vom 01.01. des gewünschten Jahres.<\/p>\n Anschließend ermittelt die Funktion den Wochentag des zuvor berechneten Datums. Nachdem ein Datum der Woche und der Wochentag bekannt sind, müssen Sie zur Bestimmung des Montags-Datums lediglich beide Werte voneinander subtrahieren. <\/p>\n Die Funktion GetKWMontag verwenden Sie jetzt, um die Werteliste nach dem gewünschten Muster zusammenzustellen. Die Funktion GetKWListe erstellt in einer Schleife eine zweispaltige Werteliste. Pro Kalenderwoche bestimmt die Funktion das Montags-Datum der Woche und fügt es zusammen mit dem Sonntags-Datum in die Liste ein (s. Quellcode 8).<\/p>\n Zum Schluss müssen Sie noch die Werteliste den beiden Kombinationsfeldern cmbKWVon und cmbKWBis zuweisen und die aktuelle Woche einstellen (s. Quellcode 9).<\/p>\n Die Auswahl des Kursleiters, für den Sie Wochenpläne drucken möchten, erfolgt über ein Kombinationsfeld, in dem alle Kursleiter alphabetisch aufgelistet sind. <\/p>\n Wenn kein Kursleiter ausgewählt worden ist, werden alle Kursleiter im Bericht ausgegeben (siehe Bild 9).<\/p>\n Damit der Anwender das Kombinationsfeld nicht manuell leeren muss, befindet sich auf dem Formular die Schaltfläche btnAlleKursleiter. Die Ereignisprozedur löscht den Inhalt des Kombinationsfeldes und besteht nur aus einer Zeile:<\/p>\n <\/b><\/p>\n Bild 9: Drucken der Wochenpläne<\/span><\/b><\/p>\n Quellcode 10<\/b><\/p>\n <\/b><\/p>\n Bild 10: Wochenplan für einen Kursleiter<\/span><\/b><\/p>\n Die Prozedur prüft zunächst, ob alle Felder zur Bestimmung des Zeitraums ausgefüllt sind. Anschließend wird, abhängig vom Inhalt des Kombinationsfeldes, die Bedingung für den Bericht zusammengesetzt. Wenn ein Kursleiter ausgewählt ist, wird über die KursleiterID gefiltert, damit nur der gewählte Leiter berücksichtigt wird. Im anderen Fall werden alle Kurseinheiten ausgegeben, bei denen ein beliebiger Kursleiter eingetragen ist. Den Druck startet der Anwender über die Schaltfläche btnKursplanDrucken. Die Ereignisprozedur der Schaltfläche ist in Quellcode 10 abgebildet.<\/p>\n Bild 11 zeigt beispielhaft einen Wochenplan über mehrere Kalenderwochen für einen Kursleiter.<\/p>\n Der Druck der Raumbelegungspläne ist mit dem Druck der Wochenpläne nahezu identisch. Die Auswahl erfolgt wieder über ein Kombinationsfeld, in dem alle Raumnummern aufgeführt werden (siehe Bild 12). Außerdem können Sie den Belegungsplan entweder für einen Raum oder für alle Räume drucken. <\/p>\n Für die Ausgabe wird der Bericht repWochenplanDrucken_Raeume verwendet. Ein mögliches Ergebnis sehen Sie in Bild 13.<\/p>\n <\/b><\/p>\n Bild 11: Wochenplan für einen Schulungsleiter<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 12: Drucken der Raumbelegung<\/span><\/b><\/p>\n In diesem Beitrag haben Sie die Schulungsverwaltung um eine Raum- und Kursleiterplanung ergänzt. Der Schwerpunkt lag dabei auf der Prüfung der Verfügbarkeit eines Raumes bzw. Kursleiters, um Doppelbuchungen zu vermeiden. <\/p>\n <\/b><\/p>\n Bild 13: Belegungsplan für den Raum 7B01<\/span><\/b><\/p>\n Ferner haben Sie aufbauend auf dem neuen Datenmodell ein Formular zum Druck von Stundenplänen für Kursleiter und Raumbelegungsplänen entwickelt, über das sich ein Kursleiter schnell die benötigten Informationen zusammenstellen kann.<\/p>\n Neben den hier beschriebenen Ergänzungen können insbesondere Auswertungen zusätzlich in die Software integriert werden. So ist zum Beispiel eine Auslastungsübersicht wünschenswert, 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 Ebenso wichtig ist eine Erfolgsübersicht, in der Sie sich die Kursliste eines Mitarbeiters mit Durchschnittsnote und der Erfolgsquote (Bestanden\/nicht bestanden) ausgeben lassen können.<\/p>\n","protected":false},"excerpt":{"rendered":" Mit den Anleitungen des ersten Teils dieses Beitrags aus der letzten Ausgabe können Sie eine Schulungsverwaltung erstellen, mit der Schulungsprogramme sowie die angemeldeten Teilnehmer und deren Abschlüsse verwaltet werden. In dieser Ausgabe lernen Sie, wie Sie die Software um eine Raum- und Kursleiterplanung erweitern können. Außerdem erfahren Sie, wie Sie ein Auswahlformular zum Druck von Stunden- und Raumbelegungsplänen entwerfen können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66042003,44000027],"tags":[],"class_list":["post-55000118","post","type-post","status-publish","format-standard","hentry","category-662003","category-66042003","category-Loesungen"],"yoast_head":"\nAnpassung der Datenstruktur<\/h2>\n
Das neue FormularfrmTermineBearbeiten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic003.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
Verfügbarkeit prüfen<\/h2>\n
Hinweis<\/h3>\n
Der Prüfmechanismus<\/h3>\n
Public Function IstRaumVerfügbar(RaumID, Startdatum, Enddatum) As Boolean\r\n Dim WhereKlausel As String\r\n If IsNull(Startdatum) Or IsNull(Enddatum) Then\r\n IstRaumVerfügbar = False\r\n Else\r\n WhereKlausel = \"RaumID = \" & Nz(RaumID, 0) _\r\n & \" AND ((\" & SQLDatum(Startdatum) _ & \" Between DateAdd(\"\"s\"\",1,[Startdatum]) \" _ & \"And DateAdd(\"\"s\"\",-1,[Enddatum]))\" _\r\n & \" OR (\" & SQLDatum(Enddatum) & \" Between \" _ & \"DateAdd(\"\"s\"\",1,[Startdatum]) And DateAdd(\"\"s\"\",-1,[Enddatum]))\" _ & \" OR (\" & SQLDatum(Startdatum) & \"=[Startdatum])\" _\r\n & \" OR (\" & SQLDatum(Enddatum) & \"=[Enddatum]))\"\r\n If IsNull(DLookup(\"TermindetailID\", \"tblTermindetails\", WhereKlausel)) Then\r\n IstRaumVerfügbar = True\r\n Else\r\n IstRaumVerfügbar = False\r\n End If\r\n End If\r\nEnd Function<\/pre>\n
SQLDatum(Startdatum) & \" Between DateAdd(\"s\",1,[Startdatum]) And DateAdd(\"s\",-1,[Enddatum])\"<\/pre>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
Einbau in die Funktion TermindetailsAnlegen<\/h3>\n
If IstRaumVerfügbar(RaumID, MyStartdatum, MyEnddatum) = False Then\r\n MyRaumID = \"Null\"\r\n RaumErrorstring = RaumErrorstring & MyStartdatum & \" - \" & MyEnddatum & vbCrLf\r\nElse\r\n MyRaumID = RaumID\r\nEnd If<\/pre>\n
Errorstring = \"\"\r\nIf RaumErrorstring <> \"\" Then\r\n Errorstring = Errorstring & \"Bei den folgenden Kursentermine konnte kein \" & _\r\n \"Raum angelegt werden, da der vorgegebene Raum bereits belegt war:\"\r\n Errorstring = Errorstring & vbCrLf & vbCrLf & RaumErrorstring & vbCrLf & vbCrLf\r\nEnd If\r\nIf KursleiterErrorstring <> \"\" Then\r\n Errorstring = Errorstring & \"Bei den folgenden Kursentermine konnte kein \" & _\r\n \"Kursleiter angelegt werden, da der vorgegebene Kursleiter bereits einen \" & _ \"anderen Kurs hat:\"\r\n Errorstring = Errorstring & vbCrLf & vbCrLf & KursleiterErrorstring\r\nEnd If\r\nIf Errorstring <> \"\" Then\r\n MsgBox Errorstring, vbOKOnly + vbExclamation, \"Fehler...\"\r\nEnd If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic004.png\")
<\/p>\nPrüfen bei änderung von Kursdaten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic006.png\")
<\/p>\nIf IstRaumVerfügbar(Me!RaumID, Me!Startdatum, _ Me!Enddatum) = False Then\r\n MsgBox \"Der ausgewählte Raum ist zum angegebenen \" _ & \"Zeitraum bereits besetzt. Bitte wählen \" _ & \"Sie einen anderen Raum aus.\", _\r\n vbOKOnly + vbExclamation, \"Fehler...\"\r\n Cancel = True\r\nEnd If<\/pre>\n
Die Datenquelle für die Berichte<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic007.png\")
<\/p>\nAnzahlTeilnehmer: GetAnzahlAngemeldeteTeilnehmer([tblTermindetails].[TerminID])<\/pre>\n
Kalenderwoche: Format([tblTermindetails].[Startdatum];\"ww\")\r\nKalenderwocheJahr: Jahr([tblTermindetails].[Startdatum])<\/pre>\n
Erstellen der Berichte<\/h2>\n
Wochenplan für Kursleiter<\/h3>\n
=Format([Startdatum];\"hh:nn\") & \" - \" & Format([Enddatum];\"hh:nn\")<\/pre>\n
Raumbelegungsplan<\/h3>\n
Das Auswahlformular<\/h2>\n
Sub JahreslisteFuellen()\r\n Me!cmbJahr.RowSource = GetJahresliste()\r\n Me!cmbJahr.Requery\r\n Me!cmbJahr = Year(Date)\r\nEnd Sub<\/pre>\n
Function GetJahresliste() As String\r\n Dim i As Integer\r\n Dim Jahresliste As String\r\n For i = Year(Date) - 20 To Year(Date) + 5\r\n Jahresliste = Jahresliste & CStr(i) & \";\"\r\n Next i\r\n GetJahresliste = Jahresliste\r\nEnd Function<\/pre>\n
Datumsauswahl<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic008.png\")
<\/p>\n25 (16.06.2003 - 22.06.2003)<\/pre>\n
Public Function GetKWMontag(MyKW, MyJahr)\r\n Dim Wochendatum As Variant\r\n Dim Wochentag As Variant\r\n Wochendatum = DateSerial(MyJahr, 1, 1) + 7 * (MyKW - 1)\r\n Wochentag = WeekDay(Wochendatum, vbMonday)\r\n GetKWMontag = Wochendatum - Wochentag + 1\r\nEnd Function<\/pre>\n
For i = 1 To 52\r\n Wochentag = GetKWMontag(i, Nz(Me!cmbJahr, Date))\r\n KWliste = KWliste & CStr(i) & \";\" & CStr(i) & _\r\n \" (\" & Wochentag & \"-\" & DateAdd(\"d\", 6, Wochentag) & \");\"\r\nNext i<\/pre>\n
Sub KWlistenFuellen()\r\n Me!cmbKWVon.RowSource = GetKWListe()\r\n Me!cmbKWVon.Requery\r\n Me!cmbKWVon = Format(Date, \"ww\")\r\n Me!cmbKWBis.RowSource = GetKWListe()\r\n Me!cmbKWBis.Requery\r\n Me!cmbKWBis = Format(Date, \"ww\")\r\nEnd Sub<\/pre>\n
Kursplan drucken<\/h3>\n
Me!cmbKursleiter = Null<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic009.png\")
<\/p>\nPrivate Sub btnKursplanDrucken_Click()\r\n Dim SQL As String\r\n If IsNull(Me!cmbJahr) Or IsNull(Me!cmbKWVon) Or IsNull(Me!cmbKWBis) Then\r\n MsgBox \"Bitte füllen SIe die Felder Jahr, Von KW und Bis KW aus.\", _\r\n vbOKOnly + vbInformation, \"Fehler...\"\r\n Else\r\n If IsNull(Me!cmbKursleiter) Then\r\n SQL = \"KursleiterID Is Not Null AND Kalenderwoche Between \" & _\r\n Me!cmbKWVon & \" And \" & Me!cmbKWBis & _\r\n \" AND Kalenderwochejahr=\" & Me!cmbJahr\r\n Else\r\n SQL = \"KursleiterID=\" & Me!cmbKursleiter & _\r\n \" AND Kalenderwoche Between \" & Me!cmbKWVon & \" And \" & _\r\n Me!cmbKWBis & \" AND Kalenderwochejahr=\" & Me!cmbJahr\r\n End If\r\n DoCmd.OpenReport \"repWochenplanDrucken_Kursleiter\", acViewPreview, , SQL\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic010.png\")
<\/p>\nRaumbelegungsplan drucken<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{CB8EEEEE-F6A4-433C-AE49-036DD787D04B}\/pic013.png\")
<\/p>\n