<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Adressverwaltung von Access im Unternehmen erhält eine weitere neue Funktion: Nach dem Drucken von Etiketten ist nun die Erstellung von Serienbriefen die nächste Erweiterung der Musterlösung, die auf die gespeicherten Adressdaten zugreift. Die nachfolgenden Seiten enthalten eine Beschreibung, wie man die im Beitrag Serienbriefe mit Word und Access vorgestellten Methoden in die Adressverwaltung integriert.<\/b><\/p>\n
Die auf der Heft-CD befindlichen und im Internet unter der Adresse www.access-im-unternehmen.de herunterzuladenden Datenbankdateien AdressSB97.mdb (für Access 97) und AdressSB00.mdb (für Access 2000 und höher) enthalten die komplette Adressverwaltung inklusive der Funktionen zum Erstellen von Serienbriefen auf Basis der gespeicherten Adressdaten.<\/p>\n
Neueinsteiger bezüglich dieser Adressverwaltung können direkt die aktuelle Version verwenden und mit den im Kapitel 2 vorgestellten Funktionen beginnen. Wer genauere Informationen zur Herstellung und zu den verschiedenen Techniken des zur Auswahl der Serienbriefadressaten dienenden Formulars sucht, wird in Kapitel 3 und 4 fündig werden.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Aufruf des Formulars frmSerienbriefe<\/span><\/b><\/p>\n Wer schon vorher mit der Adressverwaltung gearbeitet hat, möchte möglicherweise die vorhandenen Adressen weiterbenutzen – in dem Fall kann man einfach die relevanten Tabellen löschen und aus der alten Datenbank importieren.<\/p>\n Nach der Erstellung einer Adressverwaltung mit den grundlegenden Funktionen und Schnittstellen für den Austausch von Adressdaten mit Outlook in Ausgabe 4\/2003 und 6\/2003 und der Erweiterung um die Fähigkeit, individuelle Adressetiketten zu drucken in Ausgabe 3\/2004, stellt der vorliegende Artikel die Möglichkeit vor, die gespeicherten Adressen als Grundlage für die Erstellung von Serienbriefen zu verwenden. Dabei beschreibt dieser Beitrag nicht die eigentliche Erstellung der Serienbriefe, sondern speziell die Auswahl der gewünschten Adressaten. <\/p>\n Die Grundlagen für die Verwendung von Serienbriefen und für den Aufbau der notwendigen Routinen für die Fernsteuerung von Word durch eine Access-Anwendung vermittelt der Beitrag Serienbriefe mit Word und Access, der ebenfalls in der vorliegenden Ausgabe von Access im Unternehmen enthalten ist.<\/p>\n <\/b><\/p>\n Bild 2: Dialog zum Erstellen von Serienbriefen<\/span><\/b><\/p>\n Für die Erstellung von Serienbriefen bringt die aktuelle Version der Adressverwaltung einen neuen Menüeintrag mit, über den man das Formular zur Durchführung der weiteren Schritte öffnen kann (siehe Bild 1).<\/p>\n Anschließend erscheint direkt das Formular aus Bild 2. Es beinhaltet als Hauptsteuerelement ein Unterformular, das alle vorhandenen Personen, Unternehmen sowie Kombinationen aus Unternehmen und Personen als Ansprechpartner anzeigt. Dabei kann man die unterschiedlichen Kategorien nur dadurch unterscheiden, dass eine Person keinen Eintrag in der Spalte Unternehmen aufweist, dass ein Unternehmen ohne Ansprechpartner keinen Ansprechpartner aufweist und dass für Unternehmen mit Ansprechpartner beide Versionen vorhanden sind.<\/p>\n Die Unterschiede treten deutlicher zu Tage, wenn man mit den entsprechenden Kontrollkästchen die einzelnen Kontaktarten herausfiltert. Die jeweiligen Einträge haben in der letzten Zeile je ein Feld, in dem man durch Setzen eines Häkchens festlegen kann, ob der aktuelle Eintrag als Adressat für den zu erstellenden Serienbrief in Frage kommt. Mit den Optionen unter der überschrift Ein-\/Ausblenden von Kontaktarten kann man jeweils alle, nur die aktivierten oder nur die nicht aktivierten Einträge anzeigen lassen.<\/p>\n Die beiden Schaltflächen Alle markieren und Keinen markieren dienen jeweils den der Aufschrift zu entnehmenden Aktionen.<\/p>\n Nach erfolgter Auswahl der zu verwendenden Adressaten legt man über die beiden Textfelder im unteren Bereich zwei Pfade fest. Der erste gibt an, aus welchem Verzeichnis man die Vorlage auswählt und im zweiten wird das Ergebnis gespeichert – sprich die Steuerungsdatei für den Serienbrief sowie der resultierende Serienbrief.<\/p>\n Nach einem Klick auf die Schaltfläche Serienbrief erstellen geht es dann rund: Access fragt zunächst, ob man eine vorhandene Vorlage verwenden oder eine neue Vorlage erstellen möchte (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 3: Neue oder vorhandene Vorlage<\/span><\/b><\/p>\n Nach der Auswahl einer neuen Vorlage mit Hilfe eines Datei öffnen-Dialoges öffnet die Adressverwaltung eine Instanz von Microsoft Word mit der gewünschten Serienbriefvorlage (siehe Bild 4). Genau genommen passiert im Hintergrund eine Menge mehr. Access erledigt nämlich alle Schritte, die bis zum eigentlichen Ausgeben der einzelnen Briefe an den Drucker oder in ein neues Dokument erforderlich sind. Der Benutzer muss an dieser Stelle nur noch auf die Schaltfläche Seriendruck in neues Dokument oder auf eine der anderen möglichen Schaltflächen klicken, dann erstellt Word die gewünschten Dokumente.<\/p>\n <\/b><\/p>\n Bild 4: Erstellen des Serienbriefes<\/span><\/b><\/p>\n Das Formular mit der Entwurfsansicht aus Bild 5 dient der Auswahl der Adressaten eines Serienbriefes und dem anschließenden Starten der Serienbrieferstellung. Die nachfolgenden Abschnitte erläutern die Erstellung dieses Formulars. Das Hauptsteuerelement des Formulars ist das Unterformular sfmSerienbriefe zur Anzeige der Adressaten eines Serienbriefes. Das Unterformular ist wie in Bild 6 aufgebaut.<\/p>\n Die im Unterformular sfmSerienbriefe anzuzeigenden Daten stammen aus zwei Tabellen: der Tabelle tblPersonen und der Tabelle tblUnternehmen.<\/p>\n Die nachfolgend beschriebene Vorgehensweise ermöglicht es, die Daten aus den beiden Tabellen gleichzeitig als Adressaten eines Serienbriefes zu verwenden. Um aus den bei-den Tabellen die drei unterschiedlichen Kontaktarten Per-sonen, Unternehmen ohne und Unternehmen mit Ansprechpartnern zu ermitteln, benötigt man zunächst drei Abfragen namens qrySerienbriefPersonen, qrySerienbriefUnternehmen und qrySerienbriefUnternehmenAnsprechpartner.<\/p>\n Diese drei Abfragen sind völlig gleich aufgebaut, damit man ihre Daten in einer weiteren Abfrage namens qrySerienbriefeAlle per UNION-Schlüsselwort zusammenführen kann. Zuletzt fasst die Abfrage qrySerienbriefeQuelle den Inhalt dieser Abfrage mit der Tabelle tblSerienbriefeJaNein zusammen, die Informationen darüber speichert, ob der jeweilige Kontakt den entsprechenden Serienbrief erhalten soll oder auch nicht.<\/p>\n Die Abfrage qrySerienbriefPerson enthält die Daten aller Einzelpersonen aus der Tabelle tblPersonen sowie – falls vorhanden – die ausgewählte Anrede und Briefanrede (siehe Bild 7).<\/p>\n <\/b><\/p>\n <\/p>\n Bild 5: Entwurfsansicht des Formulars zur Auswahl von Serienbriefadressaten<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Aufbau des Unterformulars sfmSerienbriefe<\/span><\/b><\/p>\n Der komplette SQL-Ausdruck der Abfrage ist in Quellcode 1 dargstellt, da die Abbildung nicht alle vorhandenen Felder anzeigt.<\/p>\n Der Grund für den neu kreierten eindeutigen Index besteht darin, dass man später zu jeder Person, zu jedem Unternehmen ohne und jedem Unternehmen mit Ansprechpartner einen Eintrag in der Tabelle tblSerienbriefJaNein erstellen können soll. <\/p>\n <\/b><\/p>\n Bild 7: Aufbau der Abfrage qrySerienbriefPersonen<\/span><\/b><\/p>\n Da jeweils die Autowert-Funktion für die Erstellung der Primärschlüsselwerte der beiden zugrunde liegenden Tabellen tblPersonen und tblUnternehmen verantwortlich ist, kann es dazu kommen, dass ein Index in beiden Tabellen vorkommt. Damit man für jede Person, jedes Unternehmen und die unterschiedlichen Kombinationen aus Unternehmen und Ansprechpartnern einen Eintrag in der Tabelle tblSerienbriefJaNein erzeugen kann, bilden die drei Abfragen qrySerienbriefPersonen, qrySerienbriefUnternehmen und qrySerienbriefUnternehmenAnsprechpartner jeweils einen eigenen, eindeutigen Index. Dieser stammt aus einem Kürzel für die jeweilige Art und aus dem Primärindex aus der Tabelle tblPersonen oder tblUnternehmen. <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n <\/b><\/p>\n Bild 8: Zusammenfassung der Personen, Unternehmen ohne und Unternehmen mit Ansprechpartner<\/span><\/b><\/p>\n Um das zu veranschaulichen, zeigt Abb. 8 vorab die Datenblattansicht der Abfrage qrySerienbriefAlle. Wie deutlich zu erkennen ist, enthält das Ergebnis drei unterschiedliche Arten von Werten für das Feld UniqueID, das entweder den Primärindex der Tabelle tblPersonen, der Tabelle tblUnternehmen oder beide enthält. Die beiden weiteren Abfragen zur Auswahl der Unternehmen und der Unternehmen mit den unterschiedlichen Ansprechpartnern sind genauso wie die Abfrage qrySerienbriefPersonen aufgebaut, enthalten aber mitunter andere Werte für die Felder Unternehmen, Anrede, Briefanrede, Vorname und Nachname. Die Quellcodes 2 und 3 enthalten die entsprechenden SQL-Ausdrücke.<\/p>\n Quellcode 4<\/b><\/p>\n <\/b><\/p>\n Bild 9: Auswahl der richtigen Verknüpfungsart<\/span><\/b><\/p>\n Die Abfrage qrySerienbriefAlle fasst die drei Abfragen qrySerienbriefPersonen, qrySerienbriefUnternehmen und qrySerienbriefUnternehmenAnsprechpartner zusammen. Wie Quellcode 4 zeigt, ist die Abfrage relativ einfach aufgebaut.<\/p>\n Im letzten Schritt verknüpft die Abfrage qrySerienbriefe die Abfrage qrySerienbriefeAlle mit der Tabelle tblSerienbriefJaNein. Wichtig ist dabei die Art der Verknüpfung, wie Bild 9 zeigt.<\/p>\n Durch den hier verwendeten LEFT JOIN erreicht man, dass die Abfrage alle Datensätze der Abfrage qrySerienbriefe anzeigt, egal ob eine Verknüpfung zur Tabelle tblSerienbriefJaNein besteht oder nicht.<\/p>\n Dadurch ist das Ja\/Nein-Feld der Tabelle tblSerienbriefJaNein immer sichtbar, sodass man in dieser Abfrage leicht festlegen kann, welcher Kontakt beim Serienbrief berücksichtigt werden soll und welcher nicht.<\/p>\n Die Frage, warum man nicht einfach ein Ja\/Nein-Feld an die beiden Tabellen tblPersonen und tblUnternehmen anhängen kann und statt dessen diesen komplizierten Weg geht, ist leicht beantwortet:<\/p>\n Es wäre kein Problem, wenn jeder Datensatz der beiden Tabellen nur je einmal in der resultierenden Abfrage vorkäme.<\/p>\n Durch die mögliche Kombination aus Unternehmen und Personen als Ansprechpartner können aber Datensätze aus beiden Tabellen theoretisch mehrmals auftreten, sodass es für jede Kombination die Möglichkeit geben muss, diese entweder dem Serienbrief hinzuzufügen oder auch nicht.<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Mit dem Formular kann man nicht nur eine manuelle Auswahl der Adressaten treffen, sondern auch nach der Kontaktart filtern oder Kontakte ein- oder ausblenden.<\/p>\n Die Optionsgruppe mit der Beschriftung Filtern nach Kontaktart dient dazu, die Gruppen Unternehmen, Personen oder Unternehmen mit Ansprechpartner ein- oder auszublenden. Das Betätigen eines der drei Kontrollkästchen löst jeweils – wie in Quellcode 5 – die Ereigniseigenschaft Nach Aktualisierung aus.<\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Die durch diese Prozedur aufgerufene Routine KontakteFiltern sieht wie in Quellcode 6 aus. Die Routine stellt in Abhängigkeit der drei Kontrollkästchen einen SQL-Ausdruck zusammen, der anschließend als Filter des Unterformulars zur Anzeige der Serienbriefempfänger dient.<\/p>\n Die zweite Optionsgruppe mit der überschrift Ein-\/Ausblenden von Kontakten dient der Anzeige entweder aller, nur der ausgewählten oder nur der nicht ausgewählten Kontakte.<\/p>\n Auch hier bewirkt die änderung einer der Optionen den Aufruf einer Routine, die der Aktualisierung des Filters des Unterformulars dient. Dazu ist in dem Fall allerdings nur eine einzige Prozedur erforderlich, die durch das ändern des Wertes der Optionsgruppe ausgelöst wird und wie in Quellcode 7 aufgebaut ist. Die einzelnen Teile der dort vorhandenen Select Case-Anweisung stellen den Filter der Datenherkunft jeweils auf den entsprechenden Wert ein.<\/p>\n Schließlich stellt das Formular noch zwei Schaltflächen bereit, die jeweils der Auswahl aller Einträge oder keines Eintrages dienen.<\/p>\n Zuständig für die Durchführung der entsprechenden Operationen sind die beiden Prozeduren aus Quellcode 8 und 9.<\/p>\n Um der Datenquelle für den Serienbrief alle Adressen hinzuzufügen, schreibt eine INSERT INTO-Aktionsabfrage zu jedem Datensatz der Abfrage qrySerienbriefAlle einen Eintrag in die Tabelle tblSerienbriefeJaNein und aktualisiert anschließend die Datenherkunft des Unterformulars.<\/p>\n Die Prozedur cmdKeinenMarkieren_Click sorgt genau für das Gegenteil: Mit einer DELETE-Anweisung lässt sie alle Einträge aus der Tabelle tblSerienbriefeJaNein verschwinden und aktualisiert anschließend ebenfalls die Datenherkunft des Unterformulars, damit die änderungen sich auch auf den sichtbaren Bereich auswirken.<\/p>\n Für die Auswahl der benötigten Pfade für die Dokumentvorlagen und die zu speichernden Dateien sind zwei Textfelder erforderlich, die an die Tabelle tblPfade gebunden sind. Zum Anlegen der Textfelder stellt man zunächst die Tabelle tblPfade als Datenherkunft des Formulars ein und zieht dann aus der Feldliste die beiden Felder PfadVorlagen und PfadDokumente in den Entwurf des Formulars. Neben diese Felder platziert man zwei Schaltflächen namens cmdPfadVorlagenAuswaehlen und cmdPfadDokumenteAuswaehlen, die zum Auswählen der jeweiligen Verzeichnisse dienen. Die beiden Schaltflächen sehen am besten aus, wenn man sie mit einem Symbol bestückt, das man über die Eigenschaft Bild und den darüber zu öffnenden Dialog Bild-Generator auswählt. Der Name des gesuchten Symbols lautet Verzeichnis öffnen.<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Nun fehlen noch die Routinen, die den Dialog zur Auswahl eines Verzeichnisses öffnen und in die entsprechenden Textfelder schreiben.<\/p>\n Da diese für beide Schaltflächen mit Ausnahme des Zieltextfeldes gleich aussehen, enthält Quellcode 10 nur die Ereignisprozedur für die Schaltfläche cmdPfadVorlagenAuswaehlen.<\/p>\n Die Funktion ChooseFolder dient der Anzeige eines Dialogs zur Auswahl eines Verzeichnisses.<\/p>\n Weitere Informationen zum Aufrufen des Dialogs zum Auswählen von Verzeichnissen finden Sie unter folgendem Link: http:\/\/www.access-im-unternehmen.de\/210.0.html <\/p>\n Nun benötigt nur noch die Schaltfläche cmdSerienbriefErstellen eine Ereignisprozedur, die dafür sorgt, dass Access den gewünschten Serienbrief erzeugt. Die entsprechende Routine (s. Quellcode 11) erfragt zunächst, ob der Benutzer eine neue Serienbriefvorlage erstellen oder eine bestehende Vorlage verwenden möchte. <\/p>\n Abhängig von der Antwort ruft die Routine die Funktion WordSeriendruck mit unterschiedlichen Parametern auf. Was dort weiter passiert, wird ausführlich im Beitrag Serienbriefe mit Access und Word in der vorliegenden Ausgabe von Access im Unternehmen beschrieben.<\/p>\n Mit der Serienbrieffunktion ist die Adressverwaltung wieder ein Stückchen gewachsen. Die Funktion kann man zudem leicht erweitern, beispielsweise um eine Historie, welchen Serienbrief man wann an welchen Empfänger gesendet hat.<\/p>\n Auch die Adressverwaltung im Allgemeinen ist natürlich noch lange nicht perfekt.<\/p>\n Access im Unternehmen wird der Adressverwaltung in loser Folge in den kommenden Ausgaben weitere Funktionen hinzufügen.<\/p>\n Denkbar wäre beispielsweise der Anbau der in dieser Ausgabe vorgestellten Funktion zum Versenden von E-Mails direkt via SMTP, um Serienmails an mehrere Empfänger gleichzeitig zu versenden. <\/p>\n","protected":false},"excerpt":{"rendered":" Die Adressverwaltung von Access im Unternehmen erhält eine weitere neue Funktion: Nach dem Drucken von Etiketten ist nun die Erstellung von Serienbriefen die nächste Erweiterung der Musterlösung, die auf die gespeicherten Adressdaten zugreift. Die nachfolgenden Seiten enthalten eine Beschreibung, wie man die im Beitrag Serienbriefe mit Word und Access vorgestellten Methoden in die Adressverwaltung integriert.<\/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":[662004,66042004,44000034,44000027,44000031],"tags":[],"class_list":["post-55000227","post","type-post","status-publish","format-standard","hentry","category-662004","category-66042004","category-ImportExport","category-Loesungen","category-Word"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic002.png\")
<\/p>\nVorgehensweise zur Erstellung von Serienbriefen mit derAdressverwaltung<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic004.png\")
<\/p>\nDatenherkunft des Unterformulars sfmSerienbriefe<\/h2>\n
Die Abfragen im Detail<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic007.png\")
<\/p>\nSELECT \"P\" & [tblAdressen].[AdressID] AS UniqueID, tblAdressen.AdressID AS ID,\"tblAdressen\" AS Herkunftstabelle, \"\" AS Unternehmen, tblAnreden.Anrede, tblBriefanreden.Briefanrede, tblAdressen.Vorname, tblAdressen.Nachname, tblAdressen.Strasse, [PLZ] & \" \" & [Ort] AS PLZUndOrt, tblAdressen.LandFROM tblBriefanreden RIGHT JOIN (tblAnreden RIGHT JOIN tblAdressen ON tblAnreden.AnredeID = tblAdressen.AnredeID) ON tblBriefanreden.BriefanredeID = tblAdressen.BriefanredeID;<\/pre>\n
SELECT \"U\" & [tblUnternehmen].[UnternehmenID] AS UniqueID, tblUnternehmen.UnternehmenID AS ID, \"tblUnternehmen\" AS Herkunftstabelle, tblUnternehmen.Unternehmen, \"\" AS Anrede, \"\" AS Briefanrede, \"\" AS Vorname, \"\" AS Nachname, tblUnternehmen.Strasse, [PLZ] & \" \" & [Ort] AS PLZUndOrt, tblUnternehmen.Land\r\nFROM tblUnternehmen;<\/pre>\n
SELECT \"U\" & [tblUnternehmen].[UnternehmenID] & \"A\" & [tblAdressen].[AdressID] AS UniqueID, tblAdressen.AdressID AS ID, \"tblAdressen\" AS Herkunftstabelle, tblUnternehmen.Unternehmen, tblAnreden.Anrede, tblBriefanreden.Briefanrede, tblAdressen.Vorname, tblAdressen.Nachname, tblUnternehmen.Strasse, [tblUnternehmen].[PLZ] & \" \" & [tblUnternehmen].[Ort] AS PLZUndOrt, tblUnternehmen.Land\r\nFROM tblBriefanreden RIGHT JOIN \r\n (tblAnreden RIGHT JOIN \r\n (tblUnternehmen INNER JOIN tblAdressen ON tblUnternehmen.UnternehmenID = _ tblAdressen.UnternehmenID) \r\n ON tblAnreden.AnredeID = tblAdressen.AnredeID) \r\nON tblBriefanreden.BriefanredeID = tblAdressen.BriefanredeID;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic008.png\")
<\/p>\nZusammenfassen derunterschiedlichen Kontakte<\/h2>\n
SELECT * FROM qrySerienbriefPersonen UNION\r\nSELECT * FROM qrySerienbriefUnternehmen UNIONSELECT * FROM qrySerienbriefUnternehmenAnsprechpartner;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3B49849D-A911-4819-B355-32DCC19C9848}\/pic009.png\")
<\/p>\nMarkieren der Daten für den Serienbrief<\/h2>\n
Private Sub ctlUnternehmen_AfterUpdate()\r\n KontakteFiltern\r\nEnd Sub<\/pre>\n
Private Sub KontakteFiltern()\r\n Dim strFilter As String\r\n If Me!ctlPerson = False Then\r\n strFilter = \"AND NOT (UNIQUEID LIKE ''P*'' AND Herkunftstabelle = \" _ & \"''tblAdressen'')\"\r\n End If\r\n If Me!ctlUnternehmen = False Then\r\n strFilter = strFilter & \"AND NOT (UNIQUEID LIKE ''U*'' AND Herkunftstabelle \" _ & \"= ''tblUnternehmen'')\"\r\n End If\r\n If Me!ctlUnternehmenMitAnsprechpartner = False Then\r\n strFilter = strFilter & \"AND NOT (UNIQUEID LIKE ''U*'' AND Herkunftstabelle \" _ & \"= ''tblAdressen'')\"\r\n End If\r\n strFilter = Mid(strFilter, 5)\r\n Me!sfmEtiketten.Form.Filter = strFilter\r\n Me!sfmEtiketten.Form.FilterOn = True\r\nEnd Sub<\/pre>\n
Private Sub ogrEinAusblenden_AfterUpdate()\r\n Select Case Me!ogrEinAusblenden\r\n Case 1\r\n Me!sfmEtiketten.Form.FilterOn = False\r\n Case 2\r\n Me!sfmEtiketten.Form.Filter = \"Serienbrief = True\"\r\n Me!sfmEtiketten.Form.FilterOn = True\r\n Case 3\r\n Me!sfmEtiketten.Form.Filter = \"Serienbrief = false OR Serienbrief IS NULL\"\r\n Me!sfmEtiketten.Form.FilterOn = True\r\n End Select\r\n Me!sfmEtiketten.Form.Requery\r\nEnd Sub<\/pre>\n
Weitere Steuerelemente desFormulars<\/h2>\n
Filtern nach der Kontaktart<\/h3>\n
Private Sub cmdAlleMarkieren_Click()\r\n Dim db As Database\r\n Dim strSQL As String\r\n Set db = CurrentDb\r\n strSQL = \"INSERT INTO tblSerienbriefeJaNein(ID, \" _ & \" Serienbrief) SELECT UNIQUEID, True FROM \" _ & \" qrySerienbriefAlle\"\r\n db.Execute strSQL\r\n Me!sfmEtiketten.Form.Requery\r\nEnd Sub<\/pre>\n
Private Sub cmdKeinenMarkieren_Click()\r\n Dim db As Database\r\n Dim strSQL As String\r\n Set db = CurrentDb\r\n strSQL = \"DELETE * FROM tblSerienbriefeJaNein\"\r\n db.Execute strSQL\r\n Me!sfmEtiketten.Form.Requery\r\nEnd Sub<\/pre>\n
Filtern nach aktuellenEmpfängern\/Nicht-Empfängern<\/h3>\n
Alle oder keiner<\/h3>\n
Auswahl der Pfade für die Vorlagen und zu erstellenden Serienbriefe<\/h3>\n
Private Sub cmdPfadVorlagenAuswaehlen_Click()\r\n Dim strPfad As String\r\n strPfad = Nz(ChooseFolder(\"Vorlagenordner \" _ & \"auswählen\", Me.hWnd), \"\")\r\n If strPfad <> \"\" Then\r\n Me.PfadVorlagen = Pfad\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdSerienbriefErstellen_Click()\r\n Dim strMeldung As String\r\n strMeldung = \"Wollen Sie eine Vorlage für den \" _ & \"Seriendruck auswahlen\" & vbCrLf & _ & \"Drücken Sie <Nein>, um ein neues Dokument \" _ & \"zu erstellen.\"\r\n Select Case MsgBox(strMeldung, vbYesNoCancel, _ \"Seriendruck\")\r\n Case vbYes\r\n WordSeriendruck VorlageAuswählen, _ Me.PfadDokumente, Me.PfadVorlagen\r\n Case vbNo\r\n WordSeriendruck MitStandardvorlage, _ Me.PfadDokumente, Me.PfadVorlagen\r\n End Select\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n