<\/p>\n
Autor: Martin Hoffmann, Düsseldorf<\/p>\n
<\/b>!<\/p>\n
In der letzten Ausgabe wurde eine Literaturverwaltung vorgestellt, mit der Sie Literatur erfassen, bewerten und suchen können. In diesem Beitrag ergänzen Sie diese Datenbank um benutzerabhängige Literaturlisten sowie um die Ausgabe einer Signaturliste und eines Literaturanhangs in Word.<\/b><\/p>\n
Eine der wichtigsten Zusatzfunktionen des Literatur-Managers ist die Verwaltung von Literaturlisten. Diese versetzen den Anwender in die Lage, die bestehenden Literatur-Datensätze nach Belieben zu selektieren und zu gruppieren. Jeder Benutzer kann dabei seine eigenen Listen führen.<\/p>\n
Neben dem Zusammenstellen der Literaturlisten kann die Datenbank aus diesen Listen eine Signaturübersicht erstellen. Auf diese Weise kann man sich alle Standorte der gewünschten Literatur übersichtlich ausgeben lassen. Außerdem kann für jede Liste ein Literaturanhang in Word generiert werden. So können Sie beispielsweise die Literatur für eine Publikation in der Datenbank sammeln und anschließend automatisch den Literaturanhang für diese Publikation erzeugen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 2: Die Datenbasis des Kombinationsfeldes cmbListe<\/span><\/b><\/p>\n Die folgenden Abschnitte zeigen Ihnen Schritt für Schritt die Entwicklung der oben aufgeführten Funktionen.<\/p>\n Zunächst soll die Verwaltung der Literaturlisten entwickelt werden. Legen Sie dazu ein neues Formular mit dem Namen frmLiteraturliste an. Fügen Sie in das Formular ein Kombinationsfeld mit dem Namen cmbListe ein. Dieses soll alle Listen eines Benutzers zur Auswahl stellen. zeigt den Aufbau der Datenherkunft für das Kombinationsfeld. <\/p>\n Die Funktion getCurrentUserID ermittelt den aktuell angemeldeten Benutzernamen und sucht anschließend in der Tabelle tblBenutzer die zugehörige BenutzerID heraus. Dadurch liefert das Abfrageergebnis nur die Listen des aktuellen Benutzers.<\/p>\n Die Elemente einer Liste sollen in einem Listenfeld angezeigt werden. Legen Sie dazu ein neues Listenfeld mit dem Namen lstPositionen an. Achten Sie darauf, dass die Datenherkunft das Datenfeld LiteraturID enthält, damit später per Doppelklick auf einen Eintrag das Literatur-Formular mit dem passenden Werk geöffnet werden kann. Ferner sollten Sie die Bedingung LiteraturListeID=0 einfügen, damit zunächst keine Listeneinträge angezeigt werden. Die Vorgehensweise entspricht derjenigen beim Suchen-Dialog.<\/p>\n Quellcode 1<\/b><\/p>\n Damit das Listenfeld nur die zu einer Liste gehörenden Elemente anzeigt, muss nach Auswahl einer Literaturliste im Kombinationsfeld cmbListe die Datensatzherkunft des Listenfeldes lstPositionen geändert werden. Zu diesem Zweck legen Sie eine Prozedur beim Nach Aktualisierung-Ereignis des Kombinationsfeldes an. Tragen Sie dort den Aufruf der globalen Prozedur UpdatePositionen ein.<\/p>\n Die Prozedur (s. Quellcode 1) liest zunächst die LiteraturlistenID aus dem Kombinationsfeld aus. Anschließend verwendet sie die identische Datenherkunft des Listenfeldes und ergänzt diese um eine Bedingung, mit der die Datensätze auf die Positionen mit passender LiteraturlisteID gefiltert werden. Zum Schluss weist die Prozedur dem Listenfeld die neue Datensatzherkunft zu und fragt es erneut ab.<\/p>\n Nachdem Sie die Anzeige von Listen und Positionen geregelt haben, benötigen Sie noch Funktionen, um neue Listen hinzuzufügen, umzubenennen oder zu löschen.<\/p>\n Fügen Sie in das Formular die Schaltfläche btnNeu ein. Diese übernimmt die Neuanlage von Literaturlisten. <\/p>\n <\/b><\/p>\n Bild 3: Die Schaltflächen btnNeu und btnLöschen<\/span><\/b><\/p>\n Die Ereignisprozedur der Schaltfläche enthält die folgenden zwei Prozeduraufrufe:<\/p>\n Mit dem ersten Aufruf wird ein neuer Datensatz angelegt. Der zweite, schon bekannte Aufruf aktualisiert lediglich das Listenfeld.<\/p>\n Die Anlage einer neuen Liste (s. Quellcode 2) gestaltet sich recht einfach. Zunächst wird der Name der neuen Liste über eine InputBox abgefragt. Gibt der Benutzer einen Namen ein, wird in der Tabelle tblLiteraturlisten ein neuer Datensatz mit dem Listennamen und der BenutzerID angelegt.<\/p>\n Quellcode 2<\/b><\/p>\n Damit nach der Anlage im Kombinationsfeld direkt die neue Liste angezeigt wird, muss sich die Prozedur die neue ID merken. Dazu wird die ID über die Zuweisung<\/p>\n in der Variablen ListeID gespeichert. Wichtig ist, dass dieser Ausdruck vor der Update-Anweisung des Recordsets steht, da sonst die neue ID verloren geht und später nicht mehr zugewiesen werden kann.<\/p>\n Da sich die Daten des Kombinationsfeldes geändert haben, muss dieses mit der Requery-Methode neu abgefragt werden. Danach wird dem Kombinationsfeld die neue ID zugewiesen.<\/p>\n Im Quellcode wird vor der Aktualisierung des Kombinationsfeldes über den Ausdruck IsLoaded(„frmLiteraturliste“) = True abgefragt, ob das Literaturlisten-Formular geöffnet ist. Diese Abfrage scheint hier überflüssig zu sein, da die Prozedur ja von genau diesem Formular aus aufgerufen wird. Der Vorteil dieser Methode ist jedoch, dass die Funktion zum Anlegen einer neuen Liste so von überall aus aufgerufen werden kann – zum Beispiel über einen Menübefehl; und in diesem Fall muss das Formular nicht geöffnet sein. <\/p>\n <\/p>\n Am Ende der Prozedur wird noch ein Kombinationsfeld cmbListe aktualisiert, das sich im Literatur-Formular befindet. Dieses ist mit dem Kombinationsfeld im Literaturlisten-Formular identisch. Es dient dazu, Bücher direkt aus dem Literatur-Formular einer bestimmten Liste zuzuordnen (s. a. Abschnitt Listeneinträge hinzufügen).<\/p>\n Zum Löschen einer Literaturliste fügen Sie die Schaltfläche btnLöschen in das Formular ein. Die Ereignisprozedur fragt zunächst über eine Msgbox ab, ob die Liste wirklich gelöscht werden soll. Diese Sicherheitsabfrage ist wichtig, da für die Beziehung zwischen den Tabellen tblLiteraturlisten und tblLiteraturlistenPositionen die Löschweitergabe aktiviert ist. Wenn also eine Liste gelöscht wird, werden automatisch auch alle Positionen entfernt.<\/p>\n Quellcode 3<\/b><\/p>\n Bestätigt der Anwender die Meldung mit Ja, führt die Prozedur die folgende DELETE-SQL-Anweisung aus:<\/p>\n Da die Liste inklusive aller Positionen nach dieser Anweisung nicht mehr existiert, müssen sowohl das Kombinations- als auch das Listenfeld aktualisiert werden. Außerdem wird die Auswahl im Kombinationsfeld aufgehoben:<\/p>\n Auch nach dem Löschen muss wieder das Kombinationsfeld cmbListe im Literatur-Formular aktualisiert werden:<\/p>\n Das Umbenennen einer Liste könnte ebenfalls über eine Schaltfläche ausgeführt werden. In der Beispieldatenbank wird ein Eintrag jedoch per Doppelklick auf das Kombinationsfeld umbenannt.<\/p>\n <\/b><\/p>\n Bild 4: Umbenennen einer Liste per Doppelklick<\/span><\/b><\/p>\n Legen Sie dazu die Prozedur aus Quellcode 3 im Ereignis Beim Doppelklicken an.<\/p>\n Die Prozedur liest zunächst die LiteraturlistenID und den Namen der Liste aus dem Kombinationsfeld aus. Anschließend wird der neue Name über eine InputBox abgefragt. Gibt der Benutzer einen neuen Namen ein, führt die Prozedur die folgende Aktualisierungsabfrage aus und fragt alle Kombinationsfelder neu ab:<\/p>\n Neue Listeneinträge gelangen nicht über das Literaturlisten-Formular in die Listen, sondern direkt über das Literatur-Formular. Die Benutzerführung sieht vor, dass man zunächst ein Werk sucht und anschließend die Liste auswählt, in die das Werk übernommen werden soll. Die übernahme erfolgt dabei automatisch nach Auswahl der Liste.<\/p>\n <\/b><\/p>\n Bild 5: Das Kombinationsfeld zur Auswahl einer Literaturliste<\/span><\/b><\/p>\n Zu diesem Zweck fügen Sie in das Formular frmLiteratur das bereits angesprochene Kombinationsfeld cmbListe ein, das Sie aus dem Formular frmLiteraturlisten kopieren können.<\/p>\n In der Beispieldatenbank ist das Kombinationsfeld so angelegt, dass es nicht direkt sichtbar ist, sondern über eine Schaltfläche mit dem Namen btnübernahmeöffnen geöffnet wird. Daher gewinnt man den Eindruck, die Schaltfläche habe eine eigene Liste. Der Vorteil liegt darin, dass zum einen die Schaltfläche größer als die Drop-Down-Schaltfläche des Kombinationsfeldes ist. Zum anderen ist der Inhalt des Kombinationsfeldes nicht sichtbar, wodurch der Eindruck vermieden wird, dass es sich um ein Datenfeld des aktuellen Datensatzes handelt.<\/p>\n Das Kombinationsfeld sollte die Höhe 0 und die gleiche Breite wie die Schaltfläche haben. Richten Sie das Kombinationsfeld dann am unteren Rand der Schaltfläche aus. Um das Kombinationsfeld über die Schaltfläche zu öffnen, legen Sie die folgenden Programmzeilen im Beim Klicken-Ereignis der Schaltfläche ab:<\/p>\n Die erste Zeile setzt den Fokus auf das Kombinationsfeld. Die SendKeys-Anweisung sendet anschließend den Tastaturbefehl der Funktionstaste F4, der ja der Shortcut für das öffnen einer Kombinationsfeldliste ist.<\/p>\n <\/b><\/p>\n Bild 6: öffnen des Kombinationsfeldes über eine Schaltfläche<\/span><\/b><\/p>\n Durch das Kontrollkästchen chkListeöffnen kann der Benutzer wählen, ob nach der übernahme eines Eintrags die Literaturliste geöffnet werden soll. Das Kontrollkästchen ist standardmäßig aktiviert.<\/p>\n Nach Auswahl eines Eintrags wird im Nach Aktualisierung-Ereignis des Kombinationsfeldes die globale Prozedur LiteraturInListeübernehmen aufgerufen (s. Quellcode 4).<\/p>\n Die Prozedur prüft zunächst, ob das Buch bereits in der ausgewählten Liste vorhanden ist. Jedes Buch soll schließlich nur einmal in jeder Liste auftauchen. Ist das Buch noch nicht in der Liste, wird es mittels einer Insert Into-Abfrage in die Tabelle tblLiteraturlistenPositionen eingefügt.<\/p>\n Quellcode 4<\/b><\/p>\n Im nächsten Schritt prüft die Prozedur, ob das Kontrollkästchen chkListeöffnen aktiviert ist, und öffnet ggf. das Formular frmLiteraturliste. Am Ende wird noch die Anzeige im Literaturlisten-Formular aktualisiert.<\/p>\n Das öffnen und Löschen von Positionseinträgen erfolgt hier aus Platzgründen nicht über Schaltflächen, sondern über das Kontextmenü der Liste.<\/p>\n Wie Sie die Kontextmenüs anlegen, zuweisen und mit dem Prozeduraufruf verknüpfen, erfahren Sie im Beitrag Arbeiten mit Kontextmenüs in Heft 4\/2002 von Access im Unternehmen. <\/p>\n Im Vorfeld seien hier jedoch schon einmal die verwendeten Prozeduren beschrieben. Das öffnen erfolgt über die Prozedur Positionöffnen. Sie verwendet die bereits behandelte Prozedur Literaturöffnen, die schon im Suchen-Dialog Anwendung fand.<\/p>\n <\/b><\/p>\n Bild 7: öffnen und Löschen von Einträgen über Kontextmenüs<\/span><\/b><\/p>\n Die Prozedur zum Löschen einer Position heißt PositionLöschen und ist vom Aufbau her nahezu identisch mit der Prozedur zum Löschen einer Literaturliste. Nach einer Sicherheitsabfrage wird eine Löschabfrage ausgeführt, die die gewählte Position aus der Tabelle tblLiteraturPositionen entfernt.<\/p>\n Während bisher Aufbau und Zusammenstellung der Literaturlisten beschrieben wurden, wird in den folgenden Abschnitten näher auf die Weiterverarbeitung eingegangen.<\/p>\n <\/b><\/p>\n Bild 8: Datenbasis für den Signaturbericht<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Ausgeben einer Signaturliste<\/span><\/b><\/p>\n Die erste Form der Weiterverarbeitung stellt die Ausgabe einer Signaturliste dar. <\/p>\n Die Liste ist als tabellarischer Bericht mit dem Namen repSignaturliste aufgebaut. Als Datenbasis dient die Abfrage qrySignaturliste (siehe Bild 7).<\/p>\n Der Bericht wird im Literaturlisten-Formular über eine Schaltfläche mit der folgenden Anweisung geöffnet: <\/p>\n Das Ergebnis sehen Sie in Bild 9.<\/p>\n <\/b><\/p>\n Bild 10: Literaturanhang in Word<\/span><\/b><\/p>\n Außerdem kann über die Literaturverwaltung ein Literaturanhang angelegt werden. Die Ausgabe erfolgt dabei per OLE-Automation in Word.<\/p>\n Das Erzeugen des Anhangs übernimmt die Prozedur LiteraturAnhangAusgeben (s. Quellcode 5), der als Parameter die LiteraturListeID übergeben wird, für die der Anhang erstellt werden soll.<\/p>\n Als Basis für die Prozedur wird die Abfrage qryLiteraturverzeichnis verwendet, die alle Felder enthält, die im Anhang ausgegeben werden sollen.<\/p>\n Die Prozedur filtert zunächst die Abfrage, sodass nur die Positionen der gewählten Liste übrig bleiben. Anschließend durchläuft die Prozedur alle Datensätze in einer Schleife und fügt für jeden Datensatz eine passende Zeile in Word ein.<\/p>\n Um den gewünschten Text in Word einzufügen, muss zunächst eine neue Instanz von Word gestartet werden, was über den folgenden Aufruf erfolgt:<\/p>\n Anschließend wird ein neues Dokument in Word angelegt:<\/p>\n Nachdem der Text für einen Datensatz in der Variablen Literatureintrag zusammengesetzt wurde, kann er über die Methode TypeText in Word eingefügt werden:<\/p>\n Wenn die Schleife alle Datensätze durchlaufen hat, muss Word nur noch eingeblendet werden:<\/p>\n Als Ergebnis erhalten Sie einen Literaturanhang, wie er in Bild 10 zu sehen ist.<\/p>\n Quellcode 5<\/b><\/p>\n In diesem Beitrag wurde beschrieben, wie Sie die Funktionen und Formulare zur Erstellung von benutzerdefinierten Literaturlisten programmieren. Ferner wurden zwei praktische Verwendungsformen für die Listen vorgestellt. Eine Möglichkeit war dabei die Ausgabe eines Berichts in Form einer Signaturliste, die alle Standorte der aufgeführten Werke ausgibt. Die zweite Variante war die Ausgabe eines Literaturanhangs in Word mittels OLE-Automation.<\/p>\n Die Ausgabe des Literaturanhangs könnte man beispielsweise noch durch ein Konfigurationsmodul erweitern, in dem verschiedene Standardformate für Literaturlisten abgespeichert und eigene Formate definiert werden können.<\/p>\n","protected":false},"excerpt":{"rendered":" In der letzten Ausgabe wurde eine Literaturverwaltung vorgestellt, mit der Sie Literatur erfassen, bewerten und suchen können. In diesem BEitrag ergänzen Sie diese Datenbank um benutzerabhängige Literaturlisten sowie um die Ausgabe einer Signaturliste und eines Literaturanhangs in Word.<\/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":[662002,66042002,44000027],"tags":[],"class_list":["post-55000076","post","type-post","status-publish","format-standard","hentry","category-662002","category-66042002","category-Loesungen"],"yoast_head":"\nPublic Sub UpdatePositionen()\r\n Dim SQL As String\r\n Dim NeueListenID As Variant\r\n NeueListenID = Forms!frmLiteraturliste!cmbListe.Value\r\n If Nz(NeueListenID) <> \"\" Then\r\n SQL = \"SELECT LiteraturListenPositionID, Titel, \" _ & \"tblLiteraturlistenPositionen.LiteraturID, getAutorenliste\" _ & \"([tblLiteratur].[LiteraturID],2) AS Autoren FROM tblLiteratur \" _\r\n & \"INNER JOIN tblLiteraturlistenPositionen \" _ & \"ON tblLiteratur.LiteraturID=tblLiteraturlistenPositionen.LiteraturID\" _\r\n & \" WHERE LiteraturListeID=\" & NeueListenID & \";\"\r\n Forms!frmLiteraturliste!lstPositionen.RowSource = SQL\r\n Forms!frmLiteraturliste!lstPositionen.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Verknüpfen von Kombinations- und Listenfeld<\/h3>\n
Listen anlegen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic002.png\")
<\/p>\nNeueLiteraturlisteAnlegen\r\nUpdatePositionen<\/pre>\n
Public Sub NeueLiteraturlisteAnlegen()\r\n Dim SQL, NeuerName As String\r\n Dim db As Database\r\n Dim rstLiteraturlisten As Recordset\r\n Dim ListeID As Integer\r\n NeuerName = InputBox(\"Bitte geben Sie den neuen \" _ & \"Namen ein:\", \"Literaturliste eingeben\", _ \"<Neue Literaturliste>\")\r\n If NeuerName <> \"\" Then\r\n Set db = CurrentDb()\r\n Set rstLiteraturlisten = _ db.OpenRecordset(\"tblLiteraturListen\")\r\n With rstLiteraturlisten\r\n .AddNew\r\n !ListenName = NeuerName\r\n !BenutzerID = GetCurrentUserID()\r\n ListeID = !LiteraturlisteID\r\n .Update\r\n End With\r\n If IsLoaded(\"frmLiteraturliste\") = True Then\r\n Forms!frmLiteraturliste!cmbListe.Requery\r\n Forms!frmLiteraturliste!cmbListe = ListeID\r\n End If\r\n If IsLoaded(\"frmLiteratur\") = True Then\r\n Forms!frmLiteratur!cmbListe.Requery\r\n End If\r\n End If\r\nEnd Sub<\/pre>\n
ListeID = !LiteraturlisteID<\/pre>\n
Hinweis<\/h3>\n
Listen löschen<\/h2>\n
Private Sub cmbListe_DblClick(Cancel As Integer)\r\n Dim AlterName As String\r\n Dim NeuerName As Variant\r\n Dim ListenID As Integer\r\n If Not IsNull(cmbListe.Value) Then\r\n ListenID = cmbListe.Value\r\n AlterName = cmbListe.Column(1)\r\n NeuerName = InputBox(\"Bitte geben Sie den neuen Namen ein:\", _ \"Literaturliste umbenennen\", AlterName)\r\n If NeuerName <> \"\" And NeuerName <> AlterName Then\r\n SQL = \"UPDATE tblLiteraturListen SET ListenName=\"\"\" & NeuerName _ & \"\"\" WHERE LiteraturListeID=\" & ListenID\r\n CurrentDb().Execute SQL\r\n cmbListe.Requery\r\n cmbListe.Value = ListenID\r\n End If\r\n End If\r\nEnd Sub<\/pre>\n
Set db = CurrentDb()\r\nSQL = \"DELETE * \" _ & \"FROM tblLiteraturListen \" _ & \"WHERE LiteraturListeID = \" & Me!cmbListe\r\ndb.Execute SQL<\/pre>\n
Me!cmbListe.Requery\r\nUpdatePositionen\r\nMe!cmbListe = Null<\/pre>\n
If IsLoaded(\"frmLiteratur\") = True Then\r\n Forms!frmLiteratur!cmbListe.Requery\r\nEnd If<\/pre>\n
Listen umbenennen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic003.png\")
<\/p>\nUPDATE tblLiteraturListen SET ListenName=\"\"\" & NeuerName & \"\"\" WHERE LiteraturListeID=\" & ListenID<\/pre>\n
Listeneinträge hinzufügen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic004.png\")
<\/p>\nMe!cmbListe.SetFocus\r\nSendKeys \"{F4}\"<\/pre>\n![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic005.png\")
<\/p>\nPublic Sub LiteraturInListeübernehmen(LiteraturID As Long, ListeID As Long, _ OpenListe As Boolean)\r\n Dim db As Database\r\n Dim SQL As String\r\n If Nz(DLookup(\"LiteraturlistenPositionID\", \"tblLiteraturlistenPositionen\", _ \"LiteraturlisteID=\" & ListeID & \" And LiteraturID=\" & LiteraturID)) = \"\" Then\r\n Set db = CurrentDb()\r\n SQL = \"INSERT INTO tblLiteraturlistenPositionen (LiteraturlisteID, \" _ & \"LiteraturID) Values (\" & ListeID & \", \" & LiteraturID & \")\"\r\n db.Execute SQL\r\n End If\r\n If OpenListe = True Then\r\n If IsLoaded(\"frmLiteraturliste\") = False Then\r\n DoCmd.OpenForm \"frmLiteraturliste\"\r\n End If\r\n End If\r\n If IsLoaded(\"frmLiteraturliste\") = True Then\r\n Forms!frmLiteraturliste!cmbListe.Requery\r\n Forms!frmLiteraturliste!cmbListe = ListeID\r\n UpdatePositionen\r\n End If\r\nEnd Sub<\/pre>\n
Listeneinträge öffnen und löschen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic008.png\")
<\/p>\nDoCmd.OpenReport \"repSignaturliste\", acViewPreview, , \"LiteraturListeID=\" & Me!cmbListe<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{957CD0EE-52F1-4E50-BB8C-DB82E2F41D0A}\/pic009.png\")
<\/p>\nWord ansteuern<\/h3>\n
Dim WordApp As Word.Application\r\nSet WordApp = CreateObject(\"Word.Application\")<\/pre>\n
WordApp.Documents.Add<\/pre>\n
WordApp.Selection.TypeText Literatureintrag<\/pre>\n
WordApp.Visible = True<\/pre>\n
Public Sub LiteraturAnhangAusgeben(LiteraturlisteID As Long)\r\n Dim WordApp As Word.Application\r\n Dim db As Database\r\n Dim rstLiteratur As Recordset\r\n Dim SQL, Literatureintrag As String\r\n Dim i As Integer\r\n SQL = \"SELECT * FROM qryLiteraturverzeichnis\"\r\n SQL = SQL & \" WHERE qryLiteraturverzeichnis.LiteraturlisteID=\" & LiteraturlisteID\r\n Set db = CurrentDb()\r\n Set rstLiteratur = db.OpenRecordset(SQL)\r\n With rstLiteratur\r\n If .RecordCount > 0 Then\r\n Set WordApp = CreateObject(\"Word.Application\")\r\n WordApp.Documents.Add\r\n i = 0\r\n While Not .EOF\r\n i = i + 1\r\n Literatureintrag = \"\/\" & CStr(i) & \"\/ \"\r\n If Nz(!Autoren, \"\") <> \"\" Then Literatureintrag = Literatureintrag _ & Nz(!Autoren, \"\") & \", \"\r\n If Nz(!Titel, \"\") <> \"\" Then Literatureintrag = Literatureintrag _ & Nz(!Titel, \"\") & \", \"\r\n If Nz(!Jahr, \"\") <> \"\" Then Literatureintrag = Literatureintrag _ & Nz(!Jahr, \"\") & \", \"\r\n If Nz(!Verlag, \"\") <> \"\" Then Literatureintrag = Literatureintrag _ & Nz(!Verlag, \"\") & \", \"\r\n If Nz(!Ort, \"\") <> \"\" Then Literatureintrag = Literatureintrag _ & Nz(!Ort, \"\") & \", \"\r\n If Right(Literatureintrag, 2) = \", \" Then Literatureintrag = _\r\n Left(Literatureintrag, Len(Literatureintrag) - 2)\r\n Literatureintrag = Literatureintrag & vbCrLf\r\n WordApp.Selection.TypeText Literatureintrag\r\n .MoveNext\r\n Wend\r\n WordApp.Visible = True\r\n End If\r\n End With\r\nEnd Sub<\/pre>\n