![\"Datenmodell](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_001.png\")
<\/p>\nIm Beitrag „Serienmails versenden mit CDO“ haben wir einige Prozeduren und Funktionen vorgestellt, mit denen Sie Serien-E-Mails über die CDO-Bibliothek von Windows versenden können. Das macht natürlich nur halb soviel Spaß, wenn nur die nackten Routinen vorliegen. Also zeigen wir im vorliegenden Beitrag auch noch, wie Sie eine praktische Benutzeroberfläche zum Verwalten der für den Versand einer Serienmail benötigten Daten programmieren.<\/b><\/p>\nDatenmodell der Anwendung<\/h2>\n
Die Anwendung zum Versenden von Serienmails enthält einige Tabellen, die wie im Folgenden vorstellen.<\/p>\n
Im Beziehungen<\/b>-Fenster aus Bild 1 sehen Sie die benötigten Tabellen. Die ersten beiden heißen tblKunden <\/b>sowie tblAnreden<\/b>. Die Tabelle tblConfigurations<\/b> enthält die Daten für die Konfiguration des Mailservers und die Tabelle tblMailings <\/b>die Daten zum Mailing selbst, also eine Bezeichnung, die Absenderadresse, den Betreff, den Inhalt und die Anlagen. Der Tabelle tblMailings <\/b>haben wir ein Fremdschlüsselfeld namens ConfigurationID <\/b>hinzugefügt, mit dem wir die für das jeweilige Mailing verwendete Konfiguration speichern können. Außerdem enthält die Tabelle tblMailings <\/b>zwei Felder, mit denen die Adressaten des Mailings definiert werden. SQLSource <\/b>nimmt den SQL-Ausdruck auf, der die Empfängeradressen liefert und Mailfield <\/b>den Namen des Feldes aus diesem Ausdruck, der festlegt, welches Feld die Mailadresse enthält.<\/p>\n
<\/p>\n
Bild 1: Datenmodell der Anwendung<\/span><\/b><\/p>\n Wir wollen der Lösung einige Formulare hinzufügen, mit der Sie diese komfortabel steuern können. Dazu gehören die folgenden:<\/p>\n Wir beginnen mit dem Formular frmConfigurations<\/b>. Das Formular verwendet die Tabelle tblConfigurations <\/b>als Datensatzquelle. Ziehen Sie alle Felder aus der Feldliste in das Formular und ordnen Sie diese so an wie in Bild 2. Dann fügen Sie noch einige weitere Steuerelemente hinzu:<\/p>\n Bild 2: Entwurf des Formulars frmConfigurations<\/span><\/b><\/p>\n Außerdem passen wir den Namen des Kontrollkästchens für das Feld Standard <\/b>auf chkDefault <\/b>an.<\/p>\n Das Kombinationsfeld cboSchnellauswahl <\/b>verwendet eine Abfrage auf Basis der Tabelle tblConfigurations <\/b>als Datensatzherkunft. Dabei verwenden wir nur die ersten beiden Felder ConfigurationID <\/b>und ConfigurationName<\/b>, wobei wir diese nach dem Feld ConfigurationName <\/b>sortieren wollen:<\/p>\n Damit das Kombinationsfeld nur die Bezeichnung der Konfiguration anzeigt, aber nicht den Inhalt des Autowertfeldes, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. Damit das Kombinationsfeld nach dem Wechsel zu einem anderen Datensatz im Formular den Namen der aktuellen Konfiguration anzeigt, fügen wir die folgende Prozedur hinzu, die durch das Ereignis Beim Anzeigen <\/b>ausgelöst wird:<\/p>\n Gegebenenfalls ändert der Benutzer die Bezeichnung der Konfiguration. Damit sich dies direkt im Kombinationsfeld zur Schnellauswahl wiederspiegelt, aktualisieren wir dieses, wenn der Benutzer Daten im Formular aktualisiert und gespeichert hat:<\/p>\n Beim Öffnen des Formulars soll dieses den ersten Datensatz anzeigen, der im Feld Default <\/b>den Wert True <\/b>enthält – der also als Standardkonfiguration definiert ist. Damit dies geschieht, suchen wir direkt in der Prozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird, mit der FindFirst<\/b>-Methode des Recordsets des Formulars nach diesem Datensatz. Unabhängig davon, ob dies einen Datensatz findet, soll das Kombinationsfeld cboSchnellauswahl <\/b>auf den gleichen Datensatz eingestellt werden, den auch das Formular anzeigt. Dafür stellen wir den Wert von Me!cboSchnellauswahl <\/b>anschließend auf Me!ConfigurationID <\/b>ein:<\/p>\n Damit das Formular nach der Auswahl eines anderen Datensatzes über das Kombinationsfeld cboSchnellauswahl <\/b>den gewünschte Datensatz anzeigt, fügen wir dem Kombinationsfeld eine Prozedur für das Ereignis Nach Aktualisierung <\/b>hinzu. Diese sieht wie folgt aus und prüft zunächst, ob im Kombinationsfeld überhaupt ein Datensatz ausgewählt ist. Falls ja, sucht die Prozedur mit der FindFirst<\/b>-Methode des Recordsets des Formulars nach dem betroffenen Datensatz und stellt diesen ein:<\/p>\n Das Feld Default <\/b>der Tabelle tblConfigurations <\/b>legt fest, welche Konfiguration standardmäßig verwendet werden soll. Das bedeutet schlicht und einfach, dass diese Konfiguration beim Anlegen neuer Mailings für das Fremdschlüsselfeld ConfigurationID <\/b>der Tabelle tblMailings <\/b>festgelegt wird. Außerdem soll diese Konfiguration beim Öffnen des Formulars frmConfigurations <\/b>standardmäßig angezeigt werden, was wir weiter oben bereits realisiert haben.<\/p>\n Mit dem Kontrollkästchen wollen wir dem Benutzer die Möglichkeit bieten, eine andere Konfiguration als Standardkonfiguration festzulegen. Dabei nutzen wir als Erstes die Prozedur, die durch das Ereignis Vor Aktualisierung <\/b>des Kontrollkästchens chkDefault <\/b>ausgelöst wird. Diese prüft, ob der Benutzer soeben den Haken aus dem Kontrollkästchen entfernt hat. Falls ja, soll eine Meldung erscheinen, die den Benutzer darauf hinweist, dass er zum Ändern der Standardkonfiguration erst zu der gewünschten Standardkonfiguration wechseln muss und diese dann mit einem Klick auf das Kontrollkästchen mit dem Text Standard <\/b>festlegen kann. Das Ereignis Vor Aktualisierung <\/b>nutzen wir deshalb, weil wir hier mit dem Cancel<\/b>-Parameter einstellen können, dass die Änderung rückgängig gemacht wird, wenn der Benutzer das Kontrollkästchen deaktiviert hat:<\/p>\n Wenn der Benutzer hingegen das Kontrollkästchen chkDefault <\/b>aktiviert hat, soll die aktuell angezeigte Konfiguration als Standardkonfiguration eingestellt werden. In diesem Fall feuert auch noch das Ereignis Nach Aktualisierung <\/b>des Kontrollkästchens, was die folgende Prozedur auslöst:<\/p>\n Diese Prozedur prüft, ob chkDefault <\/b>den Wert True <\/b>hat, also ob der Benutzer das Kontrollkästchen für diesen Datensatz aktiviert hat. Falls ja, führt die Prozedur mit der Execute<\/b>-Methode des Database<\/b>-Objekts eine Abfrage aus, die den Wert des Feldes Default <\/b>für alle anderen Datensätze der Tabelle tblConfigurations <\/b>auf 0 <\/b>einstellt. Damit ist sichergestellt, dass das Feld Default <\/b>nur für den aktuell angezeigten Datensatz den Wert True <\/b>aufweist. <\/p>\n Mit einem Klick auf die Schaltfläche cmdLoeschen <\/b>kann der Benutzer die aktuelle Konfiguration löschen. Dazu löst die Schaltfläche die folgende Prozedur aus. Diese löscht den aktuellen Datensatz und versucht danach, den Datensatzzeiger auf den ersten Datensatz einzustellen, dessen Feld Default <\/b>den Wert True <\/b>aufweist:<\/p>\n Um eine neue Konfiguration anzulegen, muss der Benutzer nur auf die Schaltfläche cmdNeu <\/b>klicken. Diese springt dann zu einem neuen, leeren Datensatz:<\/p>\n Ein Klick auf die Schaltfläche cmdOK <\/b>ruft die DoCmd.Close<\/b>-Methode auf und schließt das aktuelle Formular:<\/p>\n Wenn Sie in die Formularansicht wechseln und einen Datensatz eingegeben haben, sieht dieses wie in Bild 3 aus.<\/p>\n Bild 3: Das Formular frmConfigurations in der Formularansicht<\/span><\/b><\/p>\n Damit das Textfeld Password <\/b>das Kennwort nicht direkt anzeigt, sondern Sternchen als Platzhalter verwendet, stellen wir die Eigenschaft Eingabeformat <\/b>auf Kennwort <\/b>ein.<\/p>\n Das Formular frmMailings <\/b>dient zum Verwalten der Mailings. Es verwendet die Tabelle tblMailings <\/b>als Datensatzquelle. Aus dieser Tabelle haben wir alle Felder in den Detailbereich der Entwurfsansicht gezogen.<\/p>\n Für die in Bild 4 markierten Felder stellen wir die Eigenschaft Horizontaler Anker <\/b>auf den Wert Beide <\/b>ein. So können wir die Felder vergrößern, indem wir die Breite des Formulars vergrößern. Anschließend müssen Sie die Bezeichnungsfelder dieser Steuerelemente markieren und für diese die Eigenschaft Horizontaler Anker <\/b>auf Links <\/b>einstellen, da diese durch die vorherige Einstellung auf Rechts <\/b>festgelegt wurde.<\/p>\n Bild 4: Das Formulars frmMailings in der Entwurfsansicht<\/span><\/b><\/p>\n Eines der Felder können wir außerdem in der Höhe anpassbar machen. Das ist für das Feld TextBody<\/b> am sinnvollsten. Daher stellen wir seine Eigenschaft Vertikaler Anker <\/b>auf Beide <\/b>ein. Auch hier müssen wir die Eigenschaft Vertikaler Anker <\/b>für das entsprechende Bezeichnungsfeld wieder auf Oben <\/b>festlegen. Außerdem müssen wir die Eigenschaft Vertikaler Anker <\/b>für alle Felder, die sich unterhalb des Textfeldes TextBody <\/b>befinden, auf Unten <\/b>einstellen, da diese sonst beim Vergrößern der Höhe des Formulars vom Textfeld TextBody <\/b>überlappt werden.<\/p>\n Die Beschriftungen der Bezeichnungsfelder wurden bisher von den Feldnamen übernommen, diese passen wir jedoch auch noch an (noch nicht im Screenshot sichtbar).<\/p>\n Sie sehen die geänderten Bezeichnungen in Bild 5. Hier sehen Sie auch, wie Sie das Textfeld für die Anzeige der Daten des Feldes Attachments <\/b>in ein Listenfeld umwandeln können – und zwar über das Kontextmenü. Anschließend ändern Sie noch den Namen des Listenfeldes in lstAttachments<\/b>. Leider können wir die Bindung des Listenfeldes an das Feld Attachments<\/b> danach nicht mehr nutzen, denn ein Listenfeld bindet man in der Regel an eine Datensatzherkunft wie eine Tabelle oder Abfrage. Deshalb bauen wir das Listenfeld ein wenig um. Als Erstes entfernen Sie den Inhalt der Eigenschaft Steuerelementinhalt<\/b>. Dann stellen Sie die Eigenschaft Herkunftstyp <\/b>auf Wertliste <\/b>ein. Schließlich sorgen wir dafür, dass beim Wechseln des Datensatzes im Formular der Inhalt des Feldes Attachments <\/b>als Wert des Listenfeldes eingestellt wird.<\/p>\n Bild 5: Ändern des Textfeldes für die Anhänge in ein Listenfeld<\/span><\/b><\/p>\n Dazu legen wir die Prozedur Form_Current <\/b>mit der folgenden Anweisung an:<\/p>\n Damit zeigt das Listenfeld bei jedem Datensatzwechsel automatisch die enthaltenen Attachments an.<\/p>\n Dem Listenfeld lstAttachments <\/b>stellen wir eine Schaltfläche namens cmdHinzufuegen <\/b>zur Seite, welche die Ereignisprozedur aus Listing 1 auslöst. Diese stellen wir in ähnlicher Form im Beitrag E-Mails mit Anlagen mit Outlook versenden <\/b>(www.access-im-unternehmen.de\/1357<\/b>) vor. Wir mussten allerdings einige Anpassungen vornehmen, da unser Listenfeld wie oben beschrieben nicht die Daten einer eigenen Tabelle oder Abfrage anzeigt, sondern den Inhalt des Feldes Attachment <\/b>als Wertliste. Deshalb arbeiten wir beim Hinzufügen nicht mit der AddItem<\/b>-Methode des Listenfeldes, sondern fügen die im Dateiauswahl-Dialog selektierten Daten dem Text aus dem Feld Attachments <\/b>der Tabelle tblMailings<\/b> hinzu, sofern die jeweilige Datei dort noch nicht enthalten ist. Für die Nutzung des Dateiauswahl-Dialogs fügen Sie dem VBA-Projekt noch einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>hinzu.<\/p>\n <\/p>\n Listing 1: Prozedur zum Hinzufügen von Anlagen<\/span><\/b><\/p>\n Im Gegensatz zu dem Listenfeld für Anlagen aus dem soeben genannten Beitrag wollen wir hier nur eine Schaltfläche zum Leeren des Listenfeldes hinzufügen und nicht das Selektieren einzelner zu entfernender Einträge erlauben. Dazu hinterlegen wir für die Schaltfläche cmdLeeren <\/b>die folgende Ereignisprozedur:<\/p>\n Diese leert sowohl das Feld Attachments <\/b>der Datensatzquelle als auch das Listenfeld lstAttachments<\/b>.<\/p>\n Damit bei einem neuen Mailing direkt die als Standard markierte Konfiguration im Feld cboConfigurationID <\/b>ausgewählt wird, legen wir die folgende Prozedur für das Ereignis Beim Anzeigen<\/b> des Formulars fest:<\/p>\n Die Prozedur prüft zunächst, ob das Formular gerade einen neuen, leeren Datensatz anzeigt. Falls ja, ermittelt Sie den Primärschlüsselwert des Datensatzes der Tabelle tblConfigurations<\/b>, dessen Feld Default <\/b>den Wert True <\/b>aufweist und schreibt diesen in die Variable lngConfigurationID<\/b>. Ist dieser nicht 0<\/b>, stellt die Prozedur den Wert des Kombinationsfeldes cboConfigurationID <\/b>aus lngConfigurationID <\/b>ein.<\/p>\n Das Formular für die Verwaltung der Mailings soll neben einem Kombinationsfeld zur Auswahl der zu verwendenden Konfiguration auch noch die Möglichkeit bieten, die Konfiguration zu öffnen und zu bearbeiten beziehungsweise eine neue Konfiguration anzulegen. Deshalb fügen wir neben dem Kombinationsfeld cboConfigurationID <\/b>noch eine Schaltfläche namens cmdKonfigurationBearbeiten <\/b>hinzu.<\/p>\n Damit diese Schaltfläche beim Ändern der Größe des Formulars nicht hinter anderen Steuerelementen verschwindet, deren Größe ebenfalls angepasst wird, stellen Sie die Eigenschaft Horizontaler Anker <\/b>auf Rechts <\/b>und Vertikaler Anker <\/b>auf Unten <\/b>ein. Die Platzierung der Schaltfläche können Sie Bild 6 entnehmen.<\/p>\n Bild 6: Schaltfläche zum Bearbeiten der Konfiguration<\/span><\/b><\/p>\n Um die Konfiguration bearbeiten und eventuelle Änderungen direkt in das Kombinationsfeld übernehmen zu können, öffnen wir das Formular über die Schaltfläche mit dem Wert acDialog <\/b>für den Parameter WindowMode<\/b>. Außerdem übergeben wir mit dem Parameter OpenArgs <\/b>den Primärschlüsselwert des aktuell ausgewählten Datensatzes der Tabelle tblConfigurations<\/b>.<\/p>\n Durch das Öffnen des Formulars als modalen Dialog wird der aufrufende Code solange angehalten, bis der Benutzer das Formular schließt oder dieses unsichtbar geschaltet wird. Wir wollen dafür sorgen, dass das Formular dann unsichtbar wird, damit wir anschließend noch die ConfigurationID<\/b> der aktuell im Formular selektierten Konfiguration ermitteln können. Danach wollen wir das Formular dann schließen. Dies alles erledigen wir mit der Prozedur aus Listing 2. Wichtig ist hier erst einmal, dass wir das Formular wie angegeben als modalen Dialog öffnen und mit dem aktuellen Wert für ConfigurationID<\/b> als Öffnungsargument anzeigen – den Rest sehen wir uns gleich an.<\/p>\n Listing 2: Prozedur zum Öffnen des Formulars frmConfigurations<\/span><\/b><\/p>\n Das Formular frmConfigurations <\/b>soll beim Laden prüfen, ob ein Öffnungsargument übergeben wurde. Dazu prüfen wir den Wert der Eigenschaft OpenArgs<\/b>, welche das Öffnungsargument gegebenenfalls enthält, auf eine leere Zeichenkette. Ist die Zeichenkette nicht leer, soll das Formular frmConfigurations <\/b>beim Öffnen direkt auf den Datensatz mit der übergebenen ConfigurationID <\/b>eingestellt werden. Anderenfalls verfahren wir so, wie wir es bereits mit der bisherigen Methode getan haben:<\/p>\n Damit das Formular frmConfigurations <\/b>bei unserem Plan mitspielt, müssen wir noch dafür sorgen, dass es beim Klick auf OK <\/b>nicht geschlossen, sondern nur ausgeblendet wird. Auch dafür wollen wir herausfinden, ob es vom Formular frmMailings <\/b>aus geöffnet wurde. Das ist wieder der Fall, wenn das Öffnungsargument in der Eigenschaft OpenArgs <\/b>nicht leer ist. Klickt der Benutzer in diesem Fall auf cmdOK<\/b>, soll aber nicht nur das Formular mit der Einstellung Visible = False <\/b>ausgeblendet werden. In diesem Fall wäre ein eventuell neu angelegter Konfigurationsdatensatz nämlich noch nicht gespeichert. Das holen wir durch das Einstellen der Dirty<\/b>-Eigenschaft auf den Wert False nach, bevor wir das Formular ausblenden:<\/p>\n Nachdem das Formular frmConfiguration <\/b>auf diese Weise ausgeblendet wurde, prüft die aufrufende Prozedur zunächst mit der Hilfsfunktion IstFormularGeoeffnet<\/b>, ob das Formular frmConfigurations <\/b>noch geöffnet ist. Ist das der Fall, aktualisiert sie zuerst den Inhalt des Kombinationsfeldes Zu erstellende Formulare<\/h2>\n
\n
Formular zum Verwalten der Konfigurationen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_002.png\")
<\/p>\n\n
Schnellauswahl für die Konfiguration<\/h2>\n
SELECT ConfigurationID, ConfigurationName FROM tblConfigurations ORDER BY ConfigurationName;<\/pre>\n
Private Sub <\/span>Form_Current()\r\n Me!cboSchnellauswahl = Me!ConfigurationID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_AfterUpdate()\r\n Me!cboSchnellauswahl.Requery\r\nEnd Sub<\/span><\/pre>\nAktionen beim Laden des Formulars<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Me.Recordset.FindFirst \"Default = True\"\r\n Me!cboSchnellauswahl = Me!ConfigurationID\r\nEnd Sub<\/span><\/pre>\nAuswahl einer anderen Konfiguration per Kombinationsfeld<\/h2>\n
Private Sub <\/span>cboSchnellauswahl_AfterUpdate()\r\n If <\/span>Not<\/span> Nz(Me!cboSchnellauswahl, 0) = 0 Then<\/span>\r\n Me.Recordset.FindFirst \"ConfigurationID = \" & Me!cboSchnellauswahl\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEinstellen der Standardkonfiguration<\/h2>\n
Private Sub <\/span>chkDefault_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> Me!chkDefault Then<\/span>\r\n MsgBox<\/span> \"Um eine andere Konfiguration zur Standardkonfiguration zu machen, aktivieren Sie diese Option für die gewünschte Konfiguration.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chkDefault_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n If <\/span>Me!chkDefault Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblConfigurations SET Default = 0 WHERE NOT ConfigurationID = \" & Me!ConfigurationID, dbFailOnError\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nLöschen einer Konfiguration<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n RunCommand acCmdDeleteRecord\r\n Me.Recordset.FindFirst \"Default = True\"\r\nEnd Sub<\/span><\/pre>\nAnlegen einer neuen Konfiguration<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n DoCmd.GoToRecord Record:=acNewRec\r\nEnd Sub<\/span><\/pre>\nSchließen des Formulars<\/h2>\n
Private Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_004.png\")
<\/p>\nKennwort verbergen<\/h2>\n
Formular zum Verwalten der Mailings<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_003.png\")
<\/p>\nListenfeld für die Anhänge<\/h2>\n
![\"Ändern](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_005.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Me!lstAttachments.RowSource = Me!Attachments\r\nEnd Sub<\/span><\/pre>\nAttachments hinzufügen<\/h2>\n
Private Sub <\/span>cmdHinzufuegen_Click()\r\n Dim <\/span>objFileDialog As <\/span>FileDialog\r\n Dim <\/span>l As Long<\/span>, Dim m As Long<\/span>\r\n Dim <\/span>bolVorhanden As Boolean<\/span>\r\n Dim <\/span>strAttachments As String<\/span>\r\n Dim <\/span>varAttachment As Variant<\/span>\r\n strAttachments = Me!lstAttachments.RowSource\r\n Set<\/span> objFileDialog = FileDialog(msoFileDialogFilePicker)\r\n With<\/span> objFileDialog\r\n .AllowMultiSelect = True<\/span>\r\n .Title = \"Anlagen auswählen\"\r\n .Filters.Clear\r\n .Filters.Add \"Alle Dateien\", \"*.*\"\r\n .ButtonName = \"Hinzufügen\"\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n For l = 1 To .SelectedItems.Count\r\n If <\/span>Not<\/span> Len<\/span>(Me!lstAttachments.RowSource + .SelectedItems(l)) > 32750 Then<\/span>\r\n bolVorhanden = False<\/span>\r\n For Each varAttachment In Split<\/span>(strAttachments, \";\")\r\n If <\/span>varAttachment = .SelectedItems(l) Then<\/span>\r\n bolVorhanden = True<\/span>\r\n Exit For<\/span>\r\n End If<\/span>\r\n Next<\/span> varAttachment\r\n If <\/span>Not<\/span> bolVorhanden Then<\/span>\r\n strAttachments = strAttachments & \";\" & .SelectedItems(l)\r\n End If<\/span>\r\n If <\/span>Left<\/span>(strAttachments, 1) = \";\" Then<\/span>\r\n strAttachments = Mid<\/span>(strAttachments, 2)\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Es können keine weiteren Dateien hinzugefügt werden.\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Next<\/span> l\r\n End If<\/span>\r\n End With<\/span>\r\n Me!lstAttachments.RowSource = strAttachments\r\n Me!Attachments = strAttachments\r\nEnd Sub<\/span><\/pre>\nAttachments leeren<\/h2>\n
Private Sub <\/span> cmdLeeren_Click()\r\n Me!Attachments = Null\r\n Me!lstAttachments. RowSource = \"\"\r\nEnd Sub<\/span><\/pre>\nKonfiguration automatisch auswählen<\/h2>\n
Private Sub <\/span>Form_Current()\r\n Dim <\/span>lngConfigurationID As Long<\/span>\r\n If <\/span>Me.NewRecord Then<\/span>\r\n lngConfigurationID = Nz(DLookup(\"ConfigurationID\", \"tblConfigurations\", \"Default = True\"), 0)\r\n If <\/span>Not<\/span> lngConfigurationID = 0 Then<\/span>\r\n Me!cboConfigurationID.DefaultValue = lngConfigurationID\r\n End If<\/span>\r\n End If<\/span>\r\n Me!lstAttachments.RowSource = Me!Attachments\r\nEnd Sub<\/span><\/pre>\nAktuelle Konfiguration bearbeiten<\/h2>\n
![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2022_03\/pic_1372_006.png\")
<\/p>\nPrivate Sub <\/span>cmdKonfigurationBearbeiten_Click()\r\n Dim <\/span>lngConfigurationID As Long<\/span>\r\n DoCmd.OpenForm \"frmConfigurations\", OpenArgs:=Nz(Me!cboConfigurationID), WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmConfigurations\") Then<\/span>\r\n Me!cboConfigurationID.Requery\r\n lngConfigurationID = Nz(Forms!frmConfigurations!ConfigurationID, 0)\r\n If <\/span>Not<\/span> lngConfigurationID = 0 Then<\/span>\r\n Me!cboConfigurationID = lngConfigurationID\r\n End If<\/span>\r\n DoCmd.Close acForm, \"frmConfiguration\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n If <\/span>Not<\/span> Nz(Me.OpenArgs, \"\") = \"\" Then<\/span>\r\n Me.Recordset.FindFirst \"ConfigurationID = \" & Me.OpenArgs\r\n Else<\/span>\r\n Me.Recordset.FindFirst \"Default = True\"\r\n End If<\/span>\r\n Me!cboSchnellauswahl = Me!ConfigurationID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdOK_Click()\r\n If <\/span>Not<\/span> Nz(Me.OpenArgs, \"\") = \"\" Then<\/span>\r\n Me.Dirty = False<\/span>\r\n Me.Visible = False<\/span>\r\n Else<\/span>\r\n DoCmd.Close acForm, Me.Name\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n