<\/p>\n
Unterberichte bergen oft spannende Herausforderungen in sich – vor allem, wenn die Inhalte sich über mehr als eine Seite erstrecken. Die Aufgabe, die ein Leser mir diesmal stellt, hatte allerdings einen anderen Charakter: Er wünschte sich, dass die Benutzer einzelne Unterberichte je nach Anforderung aktivieren oder deaktivieren konnten. Wir suchen also eine Möglichkeit, um festzulegen, welche von verschiedenen Unterberichten im Hauptbericht angezeigt werden und welche nicht. Wie das gelingt, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Unterberichte ein- und ausblenden<\/b><\/p>\n
Im ersten Schritt wollen wir uns ansehen, ob sich Unterberichte überhaupt ein- und ausblenden lassen. Dazu erstellen wir vier Unterberichte, die wir einfach rptUnterbericht1<\/b>, rptUnterbericht2<\/b>, rptUnterbericht3 <\/b>und rptUnterbericht4 <\/b>nennen.<\/p>\n
Diese sollen jeweils nur einen Detailbereich mit einem Bezeichnungsfeld enthalten, das den Namen des Unterberichts angibt – siehe Beispiel für den Bericht rptUnterbericht1 <\/b>in Bild 1.<\/p>\n
![\"Einer](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_001.png\")
<\/p>\n
Bild 1: Einer der vier Unterberichte<\/span><\/b><\/p>\n In einen Hauptbericht namens rptHauptbericht <\/b>fügen wir dann die Unterberichte im Detailbereich ein. Das Ergebnis sieht wie in Bild 2 aus. Damit können wir nun herausfinden, ob sich die Unterberichte überhaupt auf einfache Weise ein- oder ausblenden lassen.<\/p>\n Bild 2: Hauptbericht mit den vier Unterberichten<\/span><\/b><\/p>\n Wenn wir nun in die Seitenansicht wechseln, erscheinen die vier Unterberichte genau so, wie wir sie angeordnet haben (siehe Bild 3).<\/p>\n Bild 3: Anzeige aller vier Unterberichte<\/span><\/b><\/p>\n Unterberichte ausblenden<\/b><\/p>\n Wir beginnen mit dem statischen Umstellen der Sichtbarkeit eines der Unterberichte, indem wir die Eigenschaft Sichtbar <\/b>des zweiten Unterbericht-Steuerelements namens rptUnterbericht2<\/b> auf Nein <\/b>einstellen und öffnen den Bericht in der Seitenansicht.<\/p>\n Das Ergebnis sieht wie in Bild 4 aus und ist noch nicht zufriedenstellend.<\/p>\n Bild 4: Der zweite Unterbericht wurde ausgeblendet.<\/span><\/b><\/p>\n Der Unterbericht wird einfach ausgeblendet, aber es bleibt eine leere Stelle, an der sich der ausgeblendete Unterbericht befindet.<\/p>\n Leerraum verhindern<\/b><\/p>\n Um den leeren Zwischenraum zwischen dem ersten und dem dritten Unterbericht zu verhindern, stellen wir die Eigenschaft Verkleinerbar <\/b>des Unterbericht-Steuerelements Untergeordnet2 <\/b>auf Ja <\/b>ein.<\/p>\n Danach erhalten wir nach dem Wechseln in die Seitenansicht das Resultat aus Bild 5. Der leere Zwischenraum ist verschwunden und wir finden zwischen dem ersten und dem dritten Unterbericht nur noch die beiden Leerräume zwischen dem ersten und zweiten und dem zweiten und dritten Unterbericht vor.<\/p>\n Bild 5: Ausblendete Berichte, die verkleinerbar sind, schaffen Platz für die darunter befindlichen Steuerelemente.<\/span><\/b><\/p>\n Das bedeutet wiederum, dass wir, wenn wir beim Ausblenden mehrerer Unterberichte keine Zwischenräume kumulieren wollen, die Unterberichte direkt untereinander anordnen müssen, also etwa so wie in Bild 6.<\/p>\n Bild 6: Unterberichte ohne Zwischenräume<\/span><\/b><\/p>\n Wenn Sie Zwischenräume zwischen den Unterberichten benötigen, können Sie dort beispielsweise Rectangle<\/b>-Steuerelemente der gewünschten Größe einfügen. Die Rahmenfarbe der Rectangle<\/b>-Steuerelemente müssen Sie dann natürlich auf Weiß <\/b>einstellen, damit man diese nicht sieht.<\/p>\n Die Eigenschaft Verkleinerbar <\/b>stellen sie genau wie bei den Unterbericht-Steuerelementen auf Ja <\/b>ein. Wenn Sie dann beispielsweise den ersten Unterbericht ausblenden, indem Sie seine Eigenschaft Sichtbar <\/b>auf den Wert Nein <\/b>einstellen, müssen Sie auch das Rectangle<\/b>-Steuerelement zwischen dem ersten und dem zweiten Unterbericht-Steuerelement ausblenden. Gleiches gilt für den zweiten und dritten Unterbericht und das dazwischen befindliche Rectangle<\/b>-Steuerelement so weiter.<\/p>\n Wir gehen allerdings der Einfachheit halber davon aus, dass wir keine Platzhalter zwischen den Unterberichten benötigen.<\/p>\n Unterberichte beim Öffnen per Code ausblenden<\/b><\/p>\n Wir nehmen nun an, dass der Benutzer vor dem Öffnen des Berichts mit den Unterberichten festgelegt hat, welche der Unterberichte angezeigt und welche ausgeblendet werden sollen. Dann müssen wir ein Ereignis finden, das beim Öffnen des Berichts ausgelöst wird und in dem wir das Ausblenden der gewünschten Unterberichte implementieren können.<\/p>\n Dazu eignet sich die Ereigniseigenschaft Beim Laden<\/b>. Für diese hinterlegen wir testweise die folgende Ereignisprozedur:<\/p>\n Und damit erhalten wir genau das gewünschte Ergebnis, wie Bild 7 zeigt.<\/p>\n Bild 7: Bericht mit zwei per VBA ausgeblendeten Unterberichten<\/span><\/b><\/p>\n Öffnen des Berichts mit ausgeblendeten Unterberichten per Formular<\/b><\/p>\n Nun wollen wir dem Benutzer die Möglichkeit geben, vor dem Öffnen des Berichts festzulegen, welche Unterberichte im Bericht angezeigt werden sollen. Dazu legen wir ein Formular an, das die Unterberichte in einem Listenfeld anzeigt.<\/p>\n Dieses Formular sieht in der Entwurfsansicht wie in Bild 8 aus. Es enthält ein Listenfeld namens lstUnterberichte<\/b>. Für den Unterbericht stellen Sie die Eigenschaft Herkunftsart <\/b>auf Wertliste <\/b>ein und geben für die Eigenschaft Datensatzherkunft <\/b>die folgende Liste ein:<\/p>\n Bild 8: Formular mit Listenfeld zur Auswahl der Unterberichte<\/span><\/b><\/p>\n Der erste, dritte, fünfte und siebte Eintrag enthält die Namen der auszuwählenden Unterberichte, die nicht im Listenfeld angezeigt werden sollen, sondern nur zum Referenzieren der Unterbericht-Steuerelemente dienen sollen. Der zweite, vierte, sechste und achte Eintrag enthält die Namen der Berichte, die im Listenfeld angezeigt werden sollen.<\/p>\n Damit die Einträge mit ungeradem Index nicht angezeigt werden, sondern nur die mit geradem Index, stellen wir die Eigenschaft Spaltenanzahl <\/b>des Listenfeldes auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. So wird die erste Spalte ausgeblendet und die zweite auf der verbleibenden Breite angezeigt.<\/p>\n Damit der Benutzer mehrere Einträge gleichzeitig markieren kann, stellen wir außerdem die Eigenschaft Mehrfachauswahl <\/b>auf Einzeln <\/b>ein. Schließlich blenden wir Elemente wie Datensatzmarkierer, Navigationsschaltflächen und Bildlaufleisten durch Einstellen der gleichnamigen Eigenschaften auf den Wert Nein <\/b>aus.<\/p>\n Die Schaltfläche Bericht öffnen <\/b>heißt cmdBerichtOeffnen <\/b>und erhält die folgende Prozedur für die Ereigniseigenschaft Beim Klicken<\/b>:<\/p>\n Damit öffnen wir beim Anklicken der Schaltfläche wie in Bild 9 allerdings einfach nur den Bericht in der Seitenansicht. Die Aufgabe, die im Listenfeld ausgewählten Unterberichte anzuzeigen und die übrigen auszublenden, delegieren wir in diesem Fall an das Beim Öffnen<\/b>-Ereignis des Hauptberichts.<\/p>\n Bild 9: Auswahl der Unterberichte<\/span><\/b><\/p>\n Die benötigte Prozedur deklariert dann eine Laufvariable namens i <\/b>und eine Variable zum Referenzieren des ListBox<\/b>-Steuerelements im aufrufenden Formular:<\/p>\n <\/p>\n Dann referenziert sie mit der Variablen lst das Listenfeld lstUnterberichte <\/b>im Formular frmUnterberichteAuswaehlen<\/b>:<\/p>\n Anschließend durchläuft sie in einer For Next<\/b>-Schleife alle Werte von 0 <\/b>bis zur Anzahl der Listeneinträge minus 1<\/b>.<\/p>\n Darin prüft sie, ob der entsprechende Eintrag im Listenfeld markiert ist. Falls ja, wird die Eigenschaft Visible <\/b>des passenden Unterbericht-Steuerelements auf True <\/b>eingestellt, sonst auf False<\/b>:<\/p>\n Wenn wir das Formular nun in der Formularansicht öffnen, ein paar Unterberichte auswählen und auf die Schaltfläche Bericht öffnen <\/b>klicken, erhalten wir das Ergebnis aus Bild 10. Es funktioniert also wie gewünscht.<\/p>\n Bild 10: Anzeige der ausgewählten Unterberichte<\/span><\/b><\/p>\n Unterberichte in beliebiger Reihenfolge anzeigen<\/b><\/p>\n Nun gehen wir noch einen Schritt weiter und wollen dem Benutzer ermöglichen, nicht nur auszuwählen, welche Unterberichte überhaupt angezeigt werden sollen, sondern auch noch, in welcher Reihenfolge dies geschehen soll. <\/p>\n Dazu erstellen wir ein neues Formular, dem wir zwei Listenfelder zuweisen – eines, dass die nicht ausgewählten Unterberichte anzeigt und eines, dass die ausgewählten Einträge enthält. Das erste ist beim Öffnen des Formulars mit allen zur Verfügung stehenden Unterberichten gefüllt.<\/p>\n Damit wir die Information, welcher Unterbericht angezeigt werden soll und in welcher Reihenfolge, irgendwo speichern können, erstellen wir eine Tabelle namens tblUnterberichte<\/b>, welche die Namen aller Unterberichte enthält und ein weiteres Feld, das die Position der anzuzeigenden liefert. Der Entwurf der Tabelle sieht wie in Bild 11 aus.<\/p>\n Bild 11: Tabelle zum Speichern der Unterberichte<\/span><\/b><\/p>\n Für das Feld Unterbericht <\/b>legen wir einen eindeutigen Index an, damit jeder Bericht nur einmal aufgenommen werden kann.<\/p>\n Danach tragen wir die Berichte rptUnterbericht1<\/b>, rptUnterbericht2<\/b>, rptUnterbericht3 <\/b>und rptUnterbericht4 <\/b>in die Tabelle ein. Das Feld Position <\/b>wird automatisch mit dem Standardwert 0 <\/b>gefüllt.<\/p>\n Formular zur Auswahl der Unterberichte mit Reihenfolge<\/b><\/p>\n Das Formular, mit dem wir die anzuzeigenden Berichte und ihre Reihenfolge festlegen wollen, sieht wie in Bild 12 aus. Die beiden Listenfelder heißen lstVerfuegbareUnterberichte <\/b>und lstAnzuzeigendeUnterberichte<\/b>.<\/p>\n Bild 12: Formular mit Listenfeldern zum Auswählen der anzuzeigenden Unterberichte<\/span><\/b><\/p>\n Das Listenfeld lstVerfuegbareUnterberichte <\/b>verwendet die Abfrage qryVerfuegbareUnterberichte <\/b>als Datensatzherkunft. Diese ist in Bild 13 abgebildet. Sie liefert alle Einträge der Tabelle tblUnterberichte<\/b>, deren Feld Position <\/b>den Wert 0 <\/b>enthält, und zwar in aufsteigender Reihenfolge nach dem Feld Unterbericht<\/b>.<\/p>\n Bild 13: Abfrage zum Ermitteln der verfügbaren Unterberichte<\/span><\/b><\/p>\n Das zweite Listenfeld soll die Abfrage qryAnzuzeigendeUnterberichte <\/b>als Datensatzquelle verwenden (siehe Bild 14). Diese liefert alle Einträge der Tabelle tblUnterberichte<\/b>, deren Feld Position <\/b>einen Wert ungleich 0 <\/b>enthält, und zwar in aufsteigender Reihenfolge nach dem Feld Position<\/b>.<\/p>\n Bild 14: Abfrage zum Ermitteln der anzuzeigenden Unterberichte<\/span><\/b><\/p>\n Für beide Listenfelder stellen wir die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 2 <\/b>und 0cm <\/b>ein. Damit wird das Feld mit dem Primärschlüsselfeld zwar als gebundene Spalte verwendet, aber nicht angezeigt – dafür erscheint dann der Name der Unterberichte im Listenfeld.<\/p>\n Unterberichte hinzufügen<\/b><\/p>\n Wir wollen das Verschieben der Unterberichte zwischen den Listenfeldern allein per Doppelklick realisieren. Wenn der Benutzer auf einen Eintrag des linken Listenfeldes klickt, wird es unten an das rechte Listenfeld angehängt. Wenn der Benutzer auf einen Eintrag des rechten Listenfeldes klickt, wird es in das linke Listenfeld verschoben.<\/p>\n Die Prozedur, die durch einen Doppelklick auf das linke Listenfeld lstVerfuegbareUnterberichte <\/b>ausgelöst wird, finden Sie in Listing 1. Dort ermitteln wir als Erstes den Index des angeklickten Eintrags und speichern diesen in der Variablen lngAngeklickt<\/b>. Dann lesen wir über die Eigenschaft ItemData <\/b>mit diesem Wert als Parameter den Wert der gebundenen Spalte des angeklickten Elements aus.<\/p>\n Listing 1: Hinzufügen eines Unterberichts zur Liste der anzuzeigenden Unterberichte<\/span><\/b><\/p>\n Um das Element an der richtigen Stelle in der Datensatzherkunft des rechten Listenfeldes einzuordnen, müssen wir die Position des untersten dort angezeigten Elements ermitteln. Das erledigen wir per DMax<\/b>-Funktion für die Werte des Feldes Position<\/b>.<\/p>\n Dann weisen wir der Variablen db <\/b>einen Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank zu. Dann verwenden wir seine Execute<\/b>-Methode, um den Wert des Feldes Position <\/b>des zu verschiebenden Datensatzes auf den Wert von lngPosition <\/b>plus eins zu ändern.<\/p>\n Schließlich aktualisieren wir noch die beiden Listenfelder mit der Requery<\/b>-Methode, damit beide den neuen Stand der Daten anzeigen (siehe Bild 15).<\/p>\n Bild 15: Listenfelder zur Auswahl der Unterberichte in Aktion<\/span><\/b><\/p>\n Unterberichte entfernen<\/b><\/p>\n Die Prozedur, die durch einen Doppelklick auf einen Eintrag des rechten Listenfeldes ausgelöst wird, sieht wie in Listing 2 aus. Sie arbeitet so ähnlich wie die zum Hinzufügen von Unterberichten zum rechten Listenfeld. Wir deklarieren die gleichen Variablen und lesen dann ebenfalls den Index des zu verschiebenden Elements und darüber dann den Primärschlüsselwert des Datensatzes der Tabelle tblUnterberichte <\/b>aus. Dann ermitteln wir per DLookup <\/b>für die Variable lngPosition <\/b>den Wert des Feldes Position des zu verschiebenden Datensatzes.<\/p>\n Listing 2: Entfernen eines Unterberichts aus der Liste der anzuzeigenden Unterberichte<\/span><\/b><\/p>\n Nun folgen zwei Execute<\/b>-Anweisungen, mit denen wir zuerst den Wert des Feldes Position <\/b>des aus der Liste der anzuzeigenden Unterberichte zu entfernenden Datensatzes auf 0 <\/b>einstellen. Damit wird dieser gleich wieder im linken Listenfeld angezeigt. Die zweite Execute<\/b>-Anweisung stellt den Wert des Feldes Position<\/b> für alle Datensätze, bei denen dieses Feld einen Wert größer als den aus lngPosition <\/b>enthält, auf den vorherigen Wert dieses Feldes minus 1 <\/b>ein. Auch hier aktualisieren wir die beiden Listenfelder anschließend wieder durch den Aufruf der Requery<\/b>-Methode.<\/p>\n Um den Bericht mit den Unterberichten aufzurufen, verwenden wir diese Ereignisprozedur:<\/p>\n Bericht für Auswahl mit Reihenfolge<\/b><\/p>\n Nun erstellen wir einen neuen Hauptbericht, indem wir den bisher verwendeten Hauptbericht rptHauptbericht1 <\/b>in rptHauptberichtReihenfolge<\/b> kopieren.<\/p>\n Die Unterbericht-Steuerelemente behalten wir bei und merken uns, dass ihre Namen rptUnterbericht1 <\/b>bis rptUnterbericht4 <\/b>lauten. Das sind zwar genau die Namen, die wir auch für die als Unterberichte zu verwendenden Berichte vergeben haben, aber in diesem Fall gibt es dort keinen Zusammenhang mehr – deshalb benennen wir diese, um Verwechslungen zu vermeiden, nun in rptSub1 <\/b>bis rptSub4 <\/b>um.<\/p>\n Außerdem leeren wir die Eigenschaft Herkunftsobjekt <\/b>für alle vier Unterbericht-Steuerelemente, damit klarer wird, dass es keine feste Bindung mehr von einem Unterbericht-Steuerelement zu einem der als Unterbericht zu verwendenden Berichte gibt.<\/p>\n Schließlich entfernen wir die Ereignisprozedur für das Ereignis Report_Load<\/b>, denn die Aktion, die wir nun beim Öffnen des Berichts durchführen wollen, können wir nicht mehr im Ereignis Report_Load <\/b>durchführen. Stattdessen legen wir eine neue Ereignisprozedur für das Ereignis Beim Öffnen <\/b>des Berichts an. Diese Prozedur finden Sie in Listing 3.<\/p>\n Listing 3: Ein- und Ausblenden von Unterberichten<\/span><\/b><\/p>\n Die Prozedur füllt die Variable db <\/b>mit einem Database<\/b>-Objekt für die aktuelle Datenbank und ein Recordset, dass alle Datensätze der Tabelle tblUnterberichte <\/b>enthält, deren Feld Position <\/b>einen Wert größer als 0 <\/b>enthält. Die Abfrage sortiert die Datensätze außerdem in aufsteigender Reihenfolge nach dem Wert des Feldes Position<\/b>.<\/p>\n Dann durchläuft die Prozedur alle Datensätze dieses Recordsets, was dem Durchlaufen aller Einträge des rechten Listenfelds des Formulars frmUnterberichteMitReihenfolge <\/b>entspricht. Dabei weisen wir der SubForm<\/b>-Variablen rptUnterbericht <\/b>einen Verweis auf das Unterformular-Steuerelement zu, dessen Name dem Ausdruck rptSub <\/b>plus dem Wert der Eigenschaft AbsolutePosition + 1 <\/b>des aktuellen Datensatzes entspricht. AbsolutePosition <\/b>für den ersten Datensatz lautet 0<\/b>, sodass wir im ersten Durchlauf das Unterbericht-Steuerelement mit dem Namen rptSub1 <\/b>referenzieren.<\/p>\n Aber warum verwenden wir überhaupt den Objekttyp SubForm<\/b>, obwohl wir mit einem Unterbericht arbeiten Ganz einfach: Es gibt keine Klasse namens SubReport<\/b>, denn SubForm <\/b>wird sowohl für Unterformulare als auch für Unterberichte verwendet.<\/p>\n Danach stellen wir den Wert der Eigenschaft SourceObject<\/b>, die der Eigenschaft Herkunftsobjekt <\/b>entspricht, die wir oben für alle Unterbericht-Steuerelemente geleert haben, auf den Wert des Feldes Unterbericht <\/b>ein. Außerdem machen wir das Unterbericht-Steuerelement, das wir weiter oben durch Einstellen der Eigenschaft Sichtbar <\/b>auf den Wert Nein <\/b>ausgeblendet haben, durch Setzen der Eigenschaft Visible <\/b>auf den Wert True <\/b>wieder sichtbar.<\/p>\n Damit wechseln wir mit MoveNext <\/b>zum nächsten Datensatz des Recordsets und füllen die folgenden Unterbericht-Steuerelemente, bis wir alle Datensätze durchlaufen haben.<\/p>\n Da wir im Entwurf des Berichts für alle Unterberichte die Eigenschaft Herkunftsobjekt <\/b>geleert und die Eigenschaft Sichtbar <\/b>auf Nein <\/b>eingestellt haben, sind wir an dieser Stelle bereits fertig – die Unterbericht-Steuerelemente zeigen alle ausgewählten Unterberichte an.<\/p>\n Das Ergebnis sehen Sie in Bild 16.<\/p>\n![\"Hauptbericht](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_002.png\")
<\/p>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_003.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_004.png\")
<\/p>\n![\"Ausblendete](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_005.png\")
<\/p>\n![\"Unterberichte](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_006.png\")
<\/p>\nPrivate Sub <\/span>Report_Load()\r\n Me!rptUnterbericht2.Visible = False<\/span>\r\n Me!rptUnterbericht4.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Bericht](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_007.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_008.png\")
<\/p>\n\"rptUnterbericht1\";\"Unterbericht 1\";\"rptUnterbericht2\";\"Unterbericht 2\";\"rptUnterbericht3\";\"Unterbericht 3\";\"rptUnterbericht4\";\"Unterbericht 4\"<\/pre>\n
Private Sub <\/span>cmdBerichtOeffnen_Click()\r\n DoCmd.OpenReport \"rptHauptbericht1\", acViewPreview\r\nEnd Sub<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_009.png\")
<\/p>\nPrivate Sub <\/span>Report_Load()\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>lst As <\/span>ListBox<\/pre>\n Set<\/span> lst = _\r\n Forms!frmUnterberichteAuswaehlen!lstUnterberichte<\/pre>\n For i = 0 To lst.ListCount - 1\r\n If <\/span>lst.Selected(i) Then<\/span>\r\n Me(\"rptUnterbericht\" & i + 1).Visible = True<\/span>\r\n Else<\/span>\r\n Me(\"rptUnterbericht\" & i + 1).Visible = False<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_010.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_011.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_014.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_012.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_013.png\")
<\/p>\nPrivate Sub <\/span>lstVerfuegbareUnterberichte_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>lngAngeklickt As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngPositionMax As Long<\/span>\r\n lngAngeklickt = Me!lstVerfuegbareUnterberichte.ItemsSelected(0)\r\n lngID = Me!lstVerfuegbareUnterberichte.ItemData(lngAngeklickt)\r\n lngPositionMax = Nz(DMax(\"Position\", \"tblUnterberichte\"), 0)\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblUnterberichte SET Position = \" & lngPositionMax + 1 & \" WHERE UnterberichtID = \" & lngID, _\r\n dbFailOnError\r\n Me!lstVerfuegbareUnterberichte.Requery\r\n Me!lstAnzuzeigendeUnterberichte.Requery\r\nEnd Sub<\/span><\/pre>\n![\"Listenfelder](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_015.png\")
<\/p>\nPrivate Sub <\/span>lstAnzuzeigendeUnterberichte_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>lngAngeklickt As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngPosition As Long<\/span>\r\n lngAngeklickt = Me!lstAnzuzeigendeUnterberichte.ItemsSelected(0)\r\n lngID = Me!lstAnzuzeigendeUnterberichte.ItemData(lngAngeklickt)\r\n lngPosition = DLookup(\"Position\", \"tblUnterberichte\", \"UnterberichtID = \" & lngID)\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblUnterberichte SET Position = 0 WHERE UnterberichtID = \" & lngID, dbFailOnError\r\n db.Execute \"UPDATe tblUnterberichte SET Position = Position - 1 WHERE Position > \" & lngPosition, dbFailOnError\r\n Me!lstAnzuzeigendeUnterberichte.Requery\r\n Me!lstVerfuegbareUnterberichte.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdBerichtAnzeigen_Click()\r\n DoCmd.OpenReport \"rptHauptberichtReihenfolge\", _\r\n acViewPreview\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Report_Open(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rptUnterbericht As <\/span>SubForm\r\n Dim <\/span>intUnterberichte As Integer<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblUnterberichte WHERE Position > 0 ORDER BY Position\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> rptUnterbericht = Me(\"rptSub\" & rst.AbsolutePosition + 1)\r\n rptUnterbericht.SourceObject = rst!Unterbericht\r\n rptUnterbericht.Visible = True<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2020_05\/pic_1255_016.png\")
<\/p>\n