<\/p>\n
In der vorherigen Folge dieser Beitragsreihe haben wir begonnen, das übersichtsformular für die angelegten Tickets zu entwickeln und ein Detailformular zu erstellen, mit welchem der Ablauf eines Tickets eingesehen werden kann – und das auch zur Abarbeitung der Tickets dienen soll. Im vorliegenden Teil wollen wir diese Formulare und die dafür notwendigen Tabellen weiterentwickeln und die Lösung endlich einsatzbereit machen.<\/b><\/p>\n
Das Ergebnis der Vorüberlegungen für den Aufbau des Formulars zur detaillierten Anzeige eines Tickets mit den damit verbundenen Aktionen war auch eine Erweiterung des Datenmodells.<\/p>\n
Dabei steht im Vordergrund, wie wir mit einem Ticket umgehen wollen. Im vorherigen Teil haben wir schon angerissen, dass wir als Reaktionen auf ein Ticket eine Gruppe von Aktionen vorsehen, wobei die Aktionen selbst auf bestimmten Aktionstypen basieren und für jeden Fall verschiedene Kombinationen von Aktionstypen in einer Tabelle namens tblAktionsgruppen <\/b>zusammengefasst werden.<\/p>\n
Noch nicht klar war im vorherigen Teil der Beitragsreihe, welche Felder wir in den verschiedenen Tabellen speichern und wie wir mit diesen arbeiten. Grundsätzlich soll der Ablauf so aussehen:<\/p>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_001.png\")
<\/p>\n
Bild 1: Entwurf der Tabelle tblAktionsgruppen<\/span><\/b><\/p>\n Bild 2: Entwurf der Tabelle tblAktionstypen<\/span><\/b><\/p>\n Bild 3: Entwurf der Tabelle tblAktionsgruppenAktionstypen<\/span><\/b><\/p>\n Bild 4: Beispieldatensätze der Tabellen tblAktionstypen, tblAktionsgruppen und tblAktionsgruppenAktionstypen<\/span><\/b><\/p>\n Beim Erstellen der E-Mails sollen noch die Daten des jeweiligen Kunden herangezogen und in die Platzhalter der Texte für Betreff, Inhalt <\/b>und Empfaenger <\/b>eingetragen werden. Dann werden die E-Mails angezeigt, damit der Benutzer diese gegebenenfalls noch anpassen kann.Manchmal möchte man vielleicht den Text ändern, den Kunden nicht siezen, sondern duzen oder auch eine Anlage zur E-Mail hinzufügen. Wichtig ist hier, dass erst der tatsächliche Text der E-Mail nach dem Absenden in der Tabelle tblAktionen <\/b>gespeichert wird.<\/p>\n Die Tabelle tblAktionen<\/b> ist wie in Bild 5 aufgebaut.<\/p>\n Bild 5: Entwurf der Tabelle tblAktionen<\/span><\/b><\/p>\n Einen überblick über die neu hinzugekommenen Tabellen und ihre Verbindung zur Tabelle tblTickets <\/b>finden Sie in Bild 6. Hier können Sie auch gut erkennen, dass die Tabelle tblAktionsgruppenAktionstypen <\/b>als Verknüpfungstabelle zur Herstellung einer m:n-Beziehung zwischen den Tabellen tblAktionsgruppen <\/b>und tblAktionstypen <\/b>dient.<\/p>\n Bild 6: Datenmodell der vorgestellten Tabellen<\/span><\/b><\/p>\n Den Aktionstyp wollen wir mit jeder Aktion speichern, um schnell erkennen zu können, um welchen Aktionstyp es sich handelt. Nun kann es auch sein, dass der Kunde auf eine Mail erneut antwortet. Solche Aktionen sollen auch in der Tabelle tblAktionen <\/b>gespeichert werden. Nur: Welchem Aktionstyp ordnen wir dies zu Wir legen dazu einen einzigen Aktionstyp an, der sich von den übrigen Aktionstypen unterscheidet. Sein Wert im Feld Aktionstyp <\/b>lautet schlicht Kundenantwort<\/b>, die übrigen Felder bleiben leer.<\/p>\n Damit der Benutzer die Aktionstypen und Aktionsgruppen anlegen und bearbeiten kann, legen wir einige Formulare an. Das erste heißt frmAktionstyp<\/b> und liefert die Detailansicht eines Aktionstyps zur Bearbeitung (s. Bild 7).<\/p>\n Bild 7: Eingabe der Daten eines Aktionstyps<\/span><\/b><\/p>\n Das Formular frmAktionsgruppen<\/b> zeigt jeweils eine Gruppe und die dazugehörigen Aktionstypen in einem Unterformular an. über dieses Formular kann man den Namen der Aktionsgruppe festlegen sowie die einzelnen Aktionstypen hinzufügen (s. Bild 8). Mit einem Doppelklick auf eine der Einträge der zugeordneten Aktionstypen wird dieser im Formular frmAktionstyp <\/b>angezeigt. Die Aktionstypen können durch einfache Auswahl aus dem Kombinationsfeld zur Aktionsgruppe hinzugefügt werden.<\/p>\n Bild 8: Zusammenfassen der Aktiontypen zu einer Aktionsgruppe<\/span><\/b><\/p>\n Das Formular frmAktionstyp<\/b> sieht im Entwurf wie in Bild 9 aus und verwendet die folgende Abfrage als Datenherkunft:<\/p>\n Bild 9: Entwurf des Formulars frmAktionstyp<\/span><\/b><\/p>\n Das entspricht der Tabelle tblAktionstypen<\/b>, die Abfrage fügt jedoch noch eine Sortierung nach dem Inhalt des Feldes Aktionstyp <\/b>hinzu. Außerdem soll der Eintrag mit dem Wert Kundenantwort <\/b>im Feld Aktionstyp <\/b>ausgeschlossen werden, da dieser nicht durch den Benutzer bearbeitet werden darf.<\/p>\n Ein Blättern in den Datensätzen ist nicht vorgesehen, daher stellen wir die Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>ein. Oben im Formular finden Sie ein Kombinationsfeld namens cboAuswahl<\/b>, welches die folgende Abfrage als Datensatzherkunft nutzt:<\/p>\n Damit das erste Feld mit dem Primärschlüsselfeld ausgeblendet und nur als gebundene Spalte genutzt wird, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. Auch hier schließen wir den Eintrag Kundenantwort <\/b>für das Feld Aktionstyp <\/b>aus.<\/p>\n Außerdem soll das Kombinationsfeld beim öffnen des Formulars immer gleich den Wert der Datensatzherkunft anzeigen, der auch im Formular angezeigt wird. Deshalb hinterlegen wir für das Ereignis Beim Laden<\/b> des Formulars die folgende Ereignisprozedur:<\/p>\n Nach dem Auswählen eines der Einträge des Kombinationsfeldes soll der entsprechende Eintrag auch im Formular angezeigt werden. Dazu fügen wir eine weitere Ereignisprozedur hinzu, die diesmal durch das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes ausgelöst wird:<\/p>\n Unten im Formular befinden sich zwei Schaltflächen namens cmdLoeschen <\/b>und cmdNeu<\/b>. Mit der Schaltfläche cmdLoeschen <\/b>können Sie logischerweise den aktuellen Eintrag löschen. Die entsprechende Ereignisprozedur finden Sie in Listing 1. Vor dem Löschen fragt die Prozedur per Meldungsfenster ab, ob der Datensatz tatsächlich gelöscht werden soll.<\/p>\n Listing 1: Ereignisprozedur zum Löschen eines Aktionstyps über die Schaltfläche cmdLoeschen<\/span><\/b><\/p>\n Falls ja, erfolgt dies per RunCommand accmdDeleteRecord<\/b>. Für diese Anweisung haben wir die Fehlerbehandlung deaktiviert, da es sein kann, dass der aktuell angezeigte Aktionstyp bereits über die Tabelle tblAktionsgruppenAktionstypen <\/b>mit einer der Aktionsgruppen verknüpft ist. Wegen der referenziellen Integrität für die Verknüpfung zwischen diesen beiden Tabellen löst der Versuch, einen verknüpften Datensatz zu löschen, den Fehler mit der Nummer 3200 <\/b>aus. Diesen fangen wir ab und geben in diesem Fall eine entsprechende Meldung aus.<\/p>\n Außerdem haben wir hier die Anzahl von Warnungen deaktiviert, die je nach Einstellung angezeigt werden können. Sollte beim Löschen kein Fehler auftreten, aktualisiert die Prozedur die Datensatzherkunft des Kombinationsfeldes, springt zum ersten Datensatz des Formulars und stellt auch das Kombinationsfeld auf diesen Datensatz ein.<\/p>\n Die Schaltfläche cmdNeu <\/b>löst die folgende Ereignisprozedur aus:<\/p>\n Damit wird der Datensatzzeiger auf einen neuen Datensatz verschoben.<\/p>\n Wenn der Benutzer den aktuell angezeigten Datensatz auf eine andere Weise als durch Auswahl über das Kombinationsfeld cboAuswahl <\/b>festlegt, also beispielsweise durch Neuanlegen eines Datensatzes, muss das Kombinationfeld natürlich aktualisiert werden. Dies erledigt die folgende Prozedur, die durch das Ereignis Nach Aktualisierung <\/b>des Formulars augelöst wird:<\/p>\n Einen möglichen Fehler haben wir noch außer Acht gelassen: Es kann geschehen, dass der Benutzer beim Anlegen eines neuen Aktionstyps einen Wert für das eindeutig indizierte Feld Aktionstyp <\/b>eingibt, der bereits in einem anderen Datensatz vorhanden ist. In diesem Fall löst dies den Fehler 3022 <\/b>aus, allerdings können Sie diesen nur im Ereignis Bei Fehler <\/b>des Formulars abfangen. Die dafür benötigte Ereignisprozedur haben wir in Listing 2 abgebildet. Wir prüfen dort in einer Select Case<\/b>-Bedingung den Wert des Parameters DataErr <\/b>mit der Fehlernummer. Im Falle des Wertes 3022 <\/b>kann es sich nur um das Feld Aktionstyp <\/b>handeln, da wir nur dafür einen eindeutigen Index festgelegt haben. Es erscheint eine entsprechende Meldung und der Fokus wird auf dieses Feld verschoben.<\/p>\n Listing 2: Diese Prozedur wird beispielsweise ausgelöst, wenn der Benutzer einen bereits vorhandenen Aktionstyp eingibt.<\/span><\/b><\/p>\n Das Formular frmAktionsgruppen <\/b>enthält genau wie das Formular frmAktionstyp <\/b>ein Kombinationsfeld zur Auswahl des aktuellen Datensatzes (s. Bild 10). Die Datenquellen für das Formular sowie das Kombinationsfeld sollen wieder nach dem gleichen Feld sortiert sein. Die Abfrage für die Datenherkunft des Formulars lautet:<\/p>\n <\/p>\n Bild 10: Entwurf des Formulars frmAktionsgruppe<\/span><\/b><\/p>\n Das Kombinationsfeld verwendet die gleiche Datenherkunft, da die Tabelle tblAktionsgruppen <\/b>ja ohnehin nur das Primärschlüsselfeld sowie das anzuzeigende Feld Aktionsgruppe <\/b>enthält.<\/p>\n Das Unterformular sfmAktionsgruppe <\/b>verwendet die Tabelle tblAktionsgruppenAktionstypen <\/b>als Datenherkunft. Es zeigt jedoch nur das Nachschlagefeld AktionstypID<\/b> dieser Tabelle an. Seine Eigenschaft Standardansicht <\/b>haben wir auf Datenblatt <\/b>eingestellt (s. Bild 11). Die Datensatzherkunft des Nachschlagefeldes ändern wir auf folgende SQL-Abfrage, damit der Eintrag Kundenantwort<\/b> nicht zur Auswahl angeboten wird:<\/p>\n Bild 11: Entwurf des Unterformulars sfmAktionsgruppe<\/span><\/b><\/p>\n Wenn Sie das Unterformular erstellt haben und dieses aus dem Navigationsbereich in den Detailbereich des Hauptformulars ziehen, das bereits mit der Tabelle tblAktionsgruppen <\/b>verknüpft ist, sollten die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>automatisch mit dem Wert AktionsgruppeID <\/b>gefüllt worden sein (s. Bild 12).<\/p>\n Bild 12: Eigenschaften des Unterformular-Steuerelements sfmAktionsgruppe<\/span><\/b><\/p>\n Nach der Auswahl eines der Einträge des Kombinationsfeldes cboAuswahl <\/b>wird diese Ereignisprozedur ausgelöst und zeigt den gewählten Datensatz an:<\/p>\n Wenn der Benutzer eine Aktionsgruppe löschen will, kann er das mit der folgenden Ereignisprozedur erledigen, die durch einen Klick auf die Schaltfläche cmdLoeschen <\/b>ausgelöst wird:<\/p>\n Auch hier tritt allerdings ein Fehler auf, wenn Sie einen Datensatz löschen, der bereits von der Verknüpfungstabelle tblAktionsgruppenAktionstypen <\/b>referenziert wird. In diesem Fall wollen wir dies allerdings nicht verhindern, sondern im Gegenteil die referenzierten Einträge der Tabelle tblAktionsgruppenAktionstypen <\/b>ebenfalls löschen. Dazu nehmen wir eine kleine änderung an den Beziehungseigenschaften zwischen den beiden Tabellen vor, und zwar im Beziehungen-Fenster (s. Bild 13). Hier aktivieren wir die Option Löschweitergabe an verwandte Datensätze<\/b>. Dadurch werden die verknüpften Datensätze der Tabelle tblAktionsgruppenAktionstypen <\/b>automatisch mitgelöscht.<\/p>\n Bild 13: Einstellen der Beziehungseigenschaften<\/span><\/b><\/p>\n Damit beim Löschen nicht die lange Meldung aus Bild 14 erscheint, deaktivieren wir vor dem Löschen mit DoCmd.SetWarnings False <\/b>die Warnhinweise. Damit verhindern wir auch, dass noch der Fehler mit der Nummer 2501 <\/b>folgt, wenn der Benutzer dann verunsichert auf Nein <\/b>klickt. Außerdem soll das Formular nach dem Löschen eines Datensatzes den ersten enthaltenen Datensatz anzeigen und das Kombinationsfeld cboAuswahl <\/b>ebenfalls auf diesen Eintrag einstellen.<\/p>\n Bild 14: Meldung beim Löschen verknüpfter Datensätze<\/span><\/b><\/p>\n Genau wie beim Formular frmAktionstypen <\/b>legen Sie mit der Methode GoToRecord <\/b>des DoCmd<\/b>-Objekts über die Schaltfläche cmdNeu <\/b>einen neuen Datensatz an:<\/p>\n Nach der Aktualisierung soll immer auch das Kombinationsfeld aktualisiert werden. <\/p>\n Schließlich soll auch dieses Formular beim Laden direkt den aktuellen Datensatz im Kombinationsfeld cboAuswahl <\/b>anzeigen:<\/p>\n Wenn der Benutzer doppelt auf einen der Einträge des Unterformulars sfmAktionsgruppe <\/b>klickt, soll das Formular frmAktionstyp <\/b>geöffnet werden und den angeklickten Datensatz anzeigen.<\/p>\n Dazu fügen wir für das Steuerelement AktionstypID <\/b>im Unterformular die folgende Ereignisprozedur hinzu:<\/p>\n Die auf diese Weise angelegten Aktionsgruppen und Aktionstypen nutzen wir nun, um Aktionen zu Tickets hinzuzufügen.<\/p>\n Nun kommen wir zurück zum Formular frmTicket<\/b>, das wir bereits im vorherigen Teil dieser Beitragsreihe vorgestellt haben (Ticketsystem, Teil III<\/b>, www.access-im-unternehmen.de\/1075<\/b>). Dieses hat dort zunächst die Detaildaten jeweils eines Datensatzes der Tabelle tblTickets <\/b>angezeigt.<\/p>\n Nun erweitern wir dieses Formular so, dass es in einem Unterformular auch die einzelnen Aktionen anzeigt, die in Zusammenhang mit der Bearbeitung eines Tickets durchgeführt werden. Außerdem soll dieses Formular auch dazu dienen, die notwendigen Einträge zur Liste der Aktionen hinzuzufügen. Beides sehen Sie in der Formularansicht in Bild 15.<\/p>\n Bild 15: Erweitertes Formular zur Anzeige der Ticketdetails<\/span><\/b><\/p>\n Mit dem dortigen Kombinationsfeld Neue Aktion <\/b>wählt der Benutzer einen Eintrag der Tabelle tblAktionsgruppen <\/b>aus, deren Bezeichnungen im Kombinationsfeld angezeigt werden. Die damit über die Tabelle tblAktionsgruppenAktionstypen <\/b>verknüpften Einträge der Tabelle tblAktionstypen <\/b>werden dann herangezogen, um auf Basis der Aktionstypen tatsächliche Aktionen zu erzeugen und in der Tabelle tblAktionen <\/b>zu speichern.<\/p>\n Gleichzeitig sollen dabei auch die resultierenden E-Mails erstellt, mit den Standardtexten für den jeweiligen Aktionstyp gefüllt und geöffnet werden (s. Bild 16). Der Benutzer kann die Inhalte der E-Mails dann noch bearbeiten und diese dann versenden.<\/p>\n Bild 16: E-Mail auf Basis eines Aktionstyps<\/span><\/b><\/p>\n Nach dem Versenden liest das Formular noch die gegebenenfalls geänderten Inhalte von Betreff und Body der E-Mail ein und schreibt diese in die Tabelle tblAktionen<\/b>.<\/p>\n Deren Datensätze landen dann schließlich im Unterformular des Formulars frmTickets <\/b>und können dort eingesehen und gegebenenfalls per Doppelklick in der Detailansicht geöffnet werden.<\/p>\n Um das Formular frmTickets <\/b>auf den Stand aus der Abbildung zu bringen, fehlen im Wesentlichen zwei Steuerelemente. Das erste ist das Kombinationsfeld cboNeueAktion<\/b>, mit dem der Benutzer die Gruppe der neu hinzuzufügenden Aktionen auswählt (Entwurfsansicht s. Bild 17).<\/p>\n Bild 17: Das Formular frmTickets in der Entwurfsansicht<\/span><\/b><\/p>\n Die Datensatzherkunft des Kombinationsfeldes sieht so aus:<\/p>\n Wie Sie sehen, verwenden wir hier eine UNION-Abfrage. Diese sorgt dafür, dass das Kombinationsfeld als Inhalt immer den Eintrag Bild 18: Aufgeklapptes Auswahlfeld für die neuen Aktionen<\/span><\/b><\/p>\n Damit dieser Eintrag angezeigt wird, legen Sie die folgende Ereignisprozedur für das Ereignis Beim Laden <\/b>an:<\/p>\n Interessant wird es, wenn Sie einen der Einträge des Kombinationsfeldes ausgewählt haben. Dies löst dann nämlich die Prozedur aus Listing 3 aus.<\/p>\n Listing 3: Ereignisprozedur zum Hinzufügen der Aktionen einer Aktionsgruppe zu einem Ticket<\/span><\/b><\/p>\n Die Prozedur erstellt zunächst ein Recordset auf Basis der Tabellen tblAktionstypen <\/b>und tblAktionsgruppenAktionstypen<\/b>, für die der Wert des Feldes AktionsgruppeID <\/b>der Tabelle tblAktionsgruppenAktionstypen <\/b>mit dem Wert des im Kombinationsfeld cboNeueAktion <\/b>ausgewählten Eintrags übereinstimmt.<\/p>\n Ein zweites Recordset soll die Daten des Datensatzes der Tabelle tblKunden <\/b>für den Kunden enthalten, der das Ticket eröffnet hat. Dieses liefert neben allen Feldern der Tabelle tblKunden <\/b>auch noch die Tabelle tblAnreden<\/b>, der wir das Feld Anrede <\/b>entnehmen – wozu, erläutern wir später. Hier verwenden wir als Parameter das Feld KundeID <\/b>und gleichen dies mit dem gleichnamigen Feld der Datenherkunft des Formulars frmTickets <\/b>ab.<\/p>\n Anschließend durchläuft die Prozedur alle Datensätze des Recordsets rst <\/b>mit den Aktionsgruppen\/Aktionstypen, das ja durchaus mehrere Aktionstypen für die ausgewählte Aktionsgruppe enthalten kann.<\/p>\n Die erste Anweisung innerhalb der entsprechenden Do While<\/b>-Schleife trägt per INSERT INTO<\/b>-Anweisung einen neuen Datensatz in die Tabelle tblAktionen <\/b>ein. Dabei werden zunächst einmal die Felder Ticket-ID<\/b>, AktionstypID <\/b>und Aktionsdatum <\/b>gefüllt – der Rest folgt später. Der Wert für das Feld TicketID <\/b>kommt aus dem gleichnamigen Feld der Datenherkunft des Formulars frmTicket<\/b>, der Aktionstyp stammt aus dem Recordset rst <\/b>und das Datum ermitteln wir mit der Funktion Now <\/b>und wandeln es mit der Hilfsfunktion ISODatum <\/b>in ein SQL-fähiges Datum um.<\/p>\n Warum aber tragen wir zunächst nur einige Daten in den neuen Datensatz der Tabelle tblAktionen <\/b>ein Der Hauptgrund ist, dass wir dem Betreff der E-Mail eine eindeutige Ticket-ID zuweisen wollen, damit der Kunde auf diese antworten kann und wir die Antwort direkt der Aktion zuordnen können.<\/p>\n Und warum tragen wir nicht direkt alle Informationen zu dieser Aktion in die Tabelle tblAktionen <\/b>ein Weil wir nun erst einmal die E-Mail erstellen, dem Benutzer anzeigen und diesem die Möglichkeit geben, noch änderungen am Betreff vorzunehmen. Erst danach sollen der endgültige Betreff und Inhalt in der Tabelle tblAktionen <\/b>gespeichert werden.<\/p>\n Zwischendurch stellen wir uns die Frage, ob es ausreicht, wenn wir bei einer Antwort per E-Mail nur den Betreff und den Inhalt der Mail in der Tabelle tblAktionen <\/b>speichern oder ob wir die komplette E-Mail inklusive eventuell hinzugefügter Anhänge noch speichern beziehungsweise referenzieren müssen. Wir entscheiden uns der Einfachheit halber dafür, die E-Mails nicht noch separat zu speichern. Eine solche Funktion könnten wir immer noch nachträglich hinzufügen.<\/p>\n Weiter im Code: Dort stellen wir nun eine Support-ID zusammen, welche wir dem Betreff der E-Mail voranstellen. Diese soll in eckige Klammern eingefasst sein und mit amv <\/b>(für André Minhorst Verlag<\/b>) beginnen – ersetzen Sie hier einfach ein Kürzel Ihrer Wahl. Außerdem sollen die TicketID <\/b>und die ID der Aktion enthalten sein:<\/p>\n Die Support-ID lautet dann beispielsweise [amv123_456]<\/b>.<\/p>\n Die nächste Zeile verwendet eine Hilfsfunktion namens PlatzhalterErsetzen<\/b>, um den Inhalt des Feldes Empfaenger <\/b>der Tabelle tblAktionstypen <\/b>zu ersetzen. Aber warum sollten wir einen Platzhalter im Feld Empfaenger unterbringen – gehört hier nicht ohnehin immer die E-Mail-Adresse des Kunden hin<\/p>\n Nein: Es gibt ja auch Aktionsgruppen, die mehrere Aktionstypen zusammenfassen. So kann beispielsweise die Beanstandung einer E-Mail durch den Kunden nach sich ziehen, dass der Kunde eine Antwort-Mail erhält mit dem Hinweis, dass eine neue Rechnung erstellt und versendet wird. Gleichzeitig aber soll auch eine Mail an die Buchhaltung versendet werden, damit diese einen Auftrag zum Erstellen einer neuen Rechnung erhält. Deshalb enthalten die Vorlagen auch wahlweise den Eintrag [Email] <\/b>oder eine feste Adresse wie buchhaltung@minhorst.com <\/b>(s. Bild 19).<\/p>\n Bild 19: Tabelle tblAktionstypen mit festen und variablen E-Mail-Adressen<\/span><\/b><\/p>\n Die Funktion PlatzhalterErsetzen <\/b>sieht wie in Listing 4 aus und erwartet zwei Parameter:<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_002.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_003.png\")
<\/p>\n![\"Beispieldatensätze](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_004.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_005.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_009.png\")
<\/p>\nAktionstyp-Sonderfall Kundenantwort<\/h2>\n
Bearbeiten von Aktionstypen und Aktionsgruppen<\/h2>\n
![\"Eingabe](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_007.png\")
<\/p>\n![\"Zusammenfassen](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_008.png\")
<\/p>\nErstellen des Formulars frmAktionstyp<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_006.png\")
<\/p>\nSELECT AktionstypID, Aktionstyp, Betreff, Inhalt, Empfaenger \r\nFROM tblAktionstypen \r\nWHERE Not<\/span> Aktionstyp=\"Kundenantwort\"\r\nORDER BY Aktionstyp;<\/pre>\nSELECT AktionstypID, Aktionstyp \r\nFROM tblAktionstypen \r\nWHERE Not<\/span> Aktionstyp=\"Kundenantwort\"\r\nORDER BY Aktionstyp;<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboAuswahl = Me!AktionstypID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboAuswahl_AfterUpdate()\r\n Me.Recordset.FindFirst \"AktionstypID = \" & Me!cboAuswahl\r\nEnd Sub<\/span><\/pre>\nAktionstyp löschen<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n If <\/span>MsgBox<\/span>(\"Datensatz wirklich löschen\", vbYesNo, \"Datensatz löschen\") = vbYes Then<\/span>\r\n On Error Resume Next<\/span>\r\n DoCmd.SetWarnings False<\/span>\r\n RunCommand acCmdDeleteRecord\r\n DoCmd.SetWarnings True<\/span>\r\n Select Case Err.Number\r\n Case <\/span>3200\r\n MsgBox<\/span> \"Der Eintrag kann nicht gelöscht werden, da er bereits mit einer Aktionsgruppe verknüpft ist.\"\r\n Case <\/span>0\r\n Me!cboAuswahl.Requery\r\n Me.Recordset.MoveFirst\r\n Me!cboAuswahl = Me!AktionstypID\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & Err.Number & vbCrLf<\/span> & Err.Description\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nNeuen Aktionstyp anlegen<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n DoCmd.GoToRecord Record:=acNewRec\r\nEnd Sub<\/span><\/pre>\nKombinationsfeld aktualisieren<\/h2>\n
Private Sub <\/span>Form_AfterUpdate()\r\n Me!cboAuswahl.Requery\r\n Me!cboAuswahl = Me!AktionstypID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3022\r\n MsgBox<\/span> \"Es ist bereits ein Aktionstyp mit der Bezeichnung ''\" & Me.Aktionstyp & \"'' vorhanden.\"\r\n Me!Aktionstyp.SetFocus\r\n Response = acDataErrContinue\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & DataErr & vbCrLf<\/span> & AccessError(DataErr)\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nErstellen des Formulars frmAktionsgruppe<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_010.png\")
<\/p>\nSELECT AktionsgruppeID, Aktionsgruppe \r\nFROM tblAktionsgruppen \r\nORDER BY Aktionsgruppe;<\/pre>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_011.png\")
<\/p>\nSELECT AktionstypID, Aktionstyp \r\nFROM tblAktionstypen \r\nWHERE Not<\/span> Aktionstyp=\"Kundenantwort\";<\/pre>\n![\"Eigenschaften](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_012.png\")
<\/p>\nAktionsgruppe auswählen<\/h2>\n
Private Sub <\/span>cboAuswahl_AfterUpdate()\r\n Me.Recordset.FindFirst \"AktionsgruppeID = \" & Me!cboAuswahl\r\nEnd Sub<\/span><\/pre>\nLöschen einer Aktionsgruppe<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n If <\/span>MsgBox<\/span>(\"Eintrag wirklich löschen\", vbYesNo, \"Eintrag löschen\") = vbYes Then<\/span>\r\n DoCmd.SetWarnings False<\/span>\r\n RunCommand acCmdDeleteRecord\r\n DoCmd.SetWarnings True<\/span>\r\n Me.Recordset.MoveFirst\r\n Me!cboAuswahl.Requery\r\n Me!cboAuswahl = Me!AktionsgruppeID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_013.png\")
<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_014.png\")
<\/p>\nNeue Aktionsgruppe anlegen<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n DoCmd.GoToRecord Record:=acNewRec\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_AfterUpdate()\r\n Me!cboAuswahl = Me!AktionsgruppeID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboAuswahl = Me!cboAuswahl.ItemData(0)\r\nEnd Sub<\/span> <\/pre>\nöffnen eines Aktionstyps per Doppelklick<\/h2>\n
Private Sub <\/span>AktionstypID_DblClick(Cancel As Integer<\/span>)\r\n DoCmd.OpenForm \"frmAktionstyp\", WhereCondition:=\"AktionstypID = \" & Me!AktionstypID\r\nEnd Sub<\/span><\/pre>\nTickets und Details<\/h2>\n
![\"Erweitertes](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_015.png\")
<\/p>\n![\"E-Mail](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_016.png\")
<\/p>\nFormular frmTickets erweitern<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_017.png\")
<\/p>\nSELECT 0, \"<Auswählen>\" AS Aktionsgruppe \r\nFROM tblAktionsgruppen \r\nUNION \r\nSELECT AktionsgruppeID, Aktionsgruppe \r\nFROM tblAktionsgruppen\r\nORDER BY Aktionsgruppe;<\/pre>\n
![\"Aufgeklapptes](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_018.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboNeueAktion = Me!cboNeueAktion.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboNeueAktion_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objSendMail As <\/span>clsSendMail\r\n Dim <\/span>strAn As String<\/span>, strBetreff As String<\/span>\r\n Dim <\/span>strInhalt As String<\/span>\r\n Dim <\/span>strMailVon As String<\/span>, strMailAn As String<\/span>\r\n Dim <\/span>lngAktionID As Long<\/span>\r\n Dim <\/span>rstKunde As <\/span>DAO.Recordset\r\n Dim <\/span>strSupportID As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT tblAktionstypen.*, tblAktionsgruppenAktionstypen.AktionsgruppeID FROM tblAktionstypen INNER JOIN tblAktionsgruppenAktionstypen ON tblAktionstypen.AktionstypID = tblAktionsgruppenAktionstypen.AktionstypID WHERE tblAktionsgruppenAktionstypen.AktionsgruppeID = \" & Me!cboNeueAktion, dbOpenDynaset)\r\n Set<\/span> rstKunde = db.OpenRecordset(\"SELECT tblKunden.*, tblAnreden.Anrede FROM tblKunden INNER JOIN tblAnreden ON tblKunden.AnredeID = tblAnreden.AnredeID WHERE KundeID = \" & Me!KundeID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n db.Execute \"INSERT INTO tblAktionen(TicketID, AktionstypID, Aktionsdatum) VALUES(\" & Me!TicketID & \", \" & rst!AktionstypID & \", \" & ISODatum(Now) & \")\", dbOpenDynaset\r\n lngAktionID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n strSupportID = \"[amv\" & Me.TicketID & \"_\" & lngAktionID & \"]\"\r\n strAn = PlatzhalterErsetzen(rstKunde, rst!Empfaenger)\r\n strBetreff = PlatzhalterErsetzen(rstKunde, rst!Betreff)\r\n strBetreff = Replace<\/span>(strBetreff, \"[TicketID]\", strSupportID)\r\n strInhalt = PlatzhalterErsetzen(rstKunde, rst!Inhalt)\r\n strInhalt = Replace<\/span>(strInhalt, \"[TicketID]\", strSupportID)\r\n strInhalt = Replace<\/span>(strInhalt, \"[Ticketinhalt]\", Me!Ticketinhalt)\r\n Set<\/span> objSendMail = New<\/span> clsSendMail\r\n With<\/span> objSendMail\r\n .EMailAn = strAn\r\n .Betreff = strBetreff\r\n .Inhalt = strInhalt\r\n .MailSchicken\r\n strBetreff = .Betreff\r\n strInhalt = .Inhalt\r\n strMailAn = .EMailAn\r\n strMailVon = .EMailVon\r\n End With<\/span>\r\n db.Execute \"UPDATE tblAktionen SET Betreff = ''\" & strBetreff & \"'', Inhalt = ''\" & strInhalt & \"'' WHERE AktionID = \" & lngAktionID, dbFailOnError\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Me!sfmAktionen.Form.Requery\r\n Me!cboNeueAktion = Me!cboNeueAktion.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nstrSupportID = \"[amv\" & Me.TicketID & \"_\" & lngAktionID & \"]\"<\/pre>\n
Flexibler Empfänger<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2017_02\/pic_1076_019.png\")
<\/p>\nPlatzhalter ersetzen<\/h2>\n
Public Function <\/span>PlatzhalterErsetzen(rst As <\/span>DAO.Recordset, strAlt As String<\/span>) As String<\/span>\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n