<\/p>\n
Wer den Anlagen-Datentyp und das dazugehörige Steuerelement mag, möchte vielleicht die Funktionen des Dialogs zum Verwalten von Anlagen gleich in eigene Formulare integrieren. Damit würde man auch die etwas unübersichtliche Darstellung in den Griff bekommen. Wie Sie ein solches Formular erstellen und einsetzen, lesen Sie in diesem Beitrag.<\/b><\/p>\n
Das Anlage-Feld ist in der Standardansicht nicht besonders übersichtlich, erst nach dem Öffnen des Anlagen-Dialogs erscheint eine Liste der im Anlagefeld enthaltenen Dateien (s. Bild 1).<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_01\/AnlagendialogSelbstgebaut-web-images\/pic001.png\")
<\/p>\n
Bild 1: Anlage-Feld mit Anlagen-Dialog<\/span><\/b><\/p>\n Ziel dieses Beitrags ist, alle im Anlage-Feld gespeicherten Dateien gleich in einer Liste anzuzeigen und die Schaltflächen bereitzustellen, um Dateien hinzuzufügen, zu entfernen, zu öffnen, unter einem anderen Dateinamen zu speichern oder alle enthaltenen Dateien zu speichern – also genau wie im Standarddialog zur Verwaltung von Anlagen.<\/p>\n Um dieses Element einfach wiederverwertbar zu machen, verwenden wir dazu ein Unterformular, dem wir beim Öffnen einen Parameter mit dem Verweis auf das entsprechende Anlage-Feld übergeben. Das Unterformular soll die Dateien dann im einfachsten Fall in einem Listenfeld anzeigen. Denkbar wäre natürlich auch der Einsatz eines ListView-Steuerelements, das zusätzlich noch dem Dateityp entsprechende Icons anzeigen könnte.<\/p>\n Das benötigte Unterformular sieht im Entwurf wie in Bild 1 – mit Ausnahme der Schaltfläche Abbrechen<\/b>, die ohnehin keinen anderen Nutzen als die OK<\/b>-Schaltfläche besitzt.<\/p>\n Bild 2: Entwurf des Anlagen-Unterformulars<\/span><\/b><\/p>\n Das Hauptformular muss dem Unterformular irgendwie mitteilen, aus welchem Feld die anzuzeigenden Dateien eingelesen werden sollen. Da das übergeordnete Formular vermutlich einen Datensatz der Tabelle anzeigt, in dem sich das Anlagenfeld befindet, greifen wir entweder vom Unterformular auf das Hauptformular zu oder übergeben vom Hauptformular aus eine Referenz auf dieses Feld. Für den Moment verwenden wir im Unterformular zwei Objektvariablen namens m_AttachmentRecordset <\/b>und m_Attachmentfield<\/b>, die wie folgt im Klassenmodul des Formulars deklariert sind:<\/p>\n Außerdem brauchen wir einen Verweis auf das Hauptformular, damit wir später auf das Wechseln des Datensatzes reagieren können:<\/p>\n Zusätzlich definieren wir eine öffentliche Prozedur zum Initialisieren des Formulars (s. Listing 1<\/a><\/span>).<\/p>\n Listing 1: Initialisieren des Anlagen-Formulars<\/p>\n Diese Prozedur speichert den Verweis auf das Formular, in dem sich das Unterformular befindet. Die Variable m_AttachmentRecordset <\/b>wird mit einem Verweis auf den RecordsetClone <\/b>des Hauptformulars gefüllt und m_AttachmentField <\/b>mit einem Verweis auf das Anlage-Feld selbst.<\/p>\n Schließlich ruft die Prozedur noch eine weitere Routine namens AnlagenAktualisieren <\/b>auf, die dafür verantwortlich ist, das Listenfeld mit den im Anlagefeld des aktuellen Datensatzes enthaltenen Anlagen zu füllen – dazu später mehr.<\/p>\n Listing 2: Anlagefeld aktualisieren<\/p>\n Da das Formular frmAnlagen <\/b>später als Unterformular dienen soll, fügen Sie es auch während der Entwicklung in ein weiteres Formular ein. In unserem Fall heißt dieses Formular frmKunden <\/b>und zeigt die Daten der Tabelle tblKunden <\/b>der Beispieldatenbank an (s. Bild 3).<\/p>\n Bild 3: Das Anlageformular als Unterformular<\/span><\/b><\/p>\n Fügen Sie das Unterformular in das Hauptformular ein und legen Sie für das Hauptformular eine Ereignisprozedur für die Eigenschaft Beim Laden <\/b>an, die wie folgt aussieht:<\/p>\n Diese Prozedur übergibt nur einen Verweis auf das Hauptformular sowie den Namen des Anlage-Feldes an die Initialize<\/b>-Prozedur des Unterformulars.<\/p>\n Anlagen aktualisieren<\/b><\/p>\n Die oben referenzierte Prozedur AnlagenAktualisieren <\/b>fasst einige Anweisungen zusammen, die sowohl beim erstmaligen Anzeigen des Anlagen-Listenfeldes, als auch beim späteren Datensatzwechsel im Hauptformular aufgerufen werden sollen (s. Listing 2<\/a><\/span>). Die Prozedur prüft zunächst, ob das Hauptformular überhaupt einen Datensatz anzeigt. Falls ja, verschiebt es den Datensatzzeiger des unter m_AttachmentRecordset <\/b>referenzierten Recordsets auf den aktuell im Formular angezeigten Datensatz und ruft die Routine AnlagenAuflisten <\/b>auf, welche die Anlagen ausliest und das Listenfeld mit deren Dateinamen füllt. Zeigt das Formular einen neuen Datensatz an, wird lediglich das Listenfeld geleert. In beiden Fällen ruft die Prozedur die gleich vorgestellte Routine SchaltflaechenAktualisieren <\/b>auf.<\/p>\n Listing 3: Füllen des Listenfeldes mit den Anlagen<\/p>\n Liste mit Anlagen füllen<\/b><\/p>\n Die Prozedur AnlagenAuflisten<\/b> füllt das Listenfeld des Formulars, das wir lstAnlagen <\/b>nennen, mit den Dateinamen der im übergebenen Feld enthaltenen Dateien. Damit wir die AddItem <\/b>und die RemoveItem<\/b>-Methoden des Listenfeldes verwenden können, stellen wir die Eigenschaft Herkunftsart <\/b>dieses Steuerelements auf Wertliste <\/b>ein. Die Prozedur füllt dann das Listenfeld mit den Namen der im Anlagenfeld gespeicherten Dateien – und zwar in alphabetischer Reihenfolge (s. Listing 3<\/a><\/span>). Das zukünftige Unterformular gestalten wir noch ein wenig übersichtlicher, indem wir die Eigenschaften Navigationsschaltfläche<\/b>, Datensatzmarkierer <\/b>und Bildlaufleisten <\/b>jeweils auf den Wert Nein <\/b>einstellen.<\/p>\n Listing 5: Auslösen des Hinzufügens einer Anlage aus einer Datei<\/p>\n Steuerelemente aktivieren und deaktivieren<\/p>\n Bevor wir die Steuerelemente selbst mit Leben füllen, sollen diese zunächst, je nach den angezeigten Daten, aktiviert oder deaktiviert werden. Die Hinzufügen<\/b>-Schaltfläche etwa ist immer aktiviert. Die Schaltfläche Entfernen <\/b>hingegen soll nur benutzbar sein, wenn die Liste Dateien anzeigt und mindestens eine davon markiert ist. Das gleiche gilt für die Schaltflächen Öffnen <\/b>und Speichern unter…<\/b>. Die Schaltfläche Alle speichern <\/b>wiederum darf ebenfalls immer aktiviert sein – außer wenn die Liste keinerlei Anlagen anzeigt.<\/p>\n Die Prüfung des Zustands des Listenfeldes und die davon abhängige Aktivierung\/Deaktivierung der Schaltflächen nimmt die folgende Prozedur vor, die Sie ebenfalls im Klassenmodul des Formulars anlegen (s. Listing 4<\/a><\/span>).<\/p>\n Listing 4: Aktiviere und Deaktivieren der Schaltflächen<\/p>\n <\/p>\n Diese Routine rufen wir zu verschiedenen Gelegenheiten auf, zum Beispiel in der Prozedur AnlagenAktualisieren<\/b>. Auch nach dem ändern der Auswahl im Listenfeld sollen die Schaltflächen aktiviert beziehungsweise deaktiviert werden. Dies erledigt die Prozedur, die durch das Ereignis Nach Aktualisierung <\/b>des Listenfeldes ausgelöst wird:<\/p>\n Hinzufügen von Anlagen<\/b><\/p>\n Ein Klick auf die Schaltfläche Hinzufügen… <\/b>soll einen Datei auswählen<\/b>-Dialog anzeigen, mit dem der Benutzer einen oder mehrere Dateien auswählt. Die Logik zum Anzeigen der Dateidialoge (wir werden später auch noch einen Datei speichern<\/b>– und Verzeichnis auswählen<\/b>-Dialog benötigen) liefert die Klasse clsFiles<\/b>, die wir im Beitrag Dateidialog-Klasse <\/b>vorstellen (www.access-im-unternehmen.de\/<\/b>)756.<\/p>\n Die Prozedur aus Listing 5<\/a><\/span> instanziert die Klasse, stellt einige Werte wie den Filter, den Titel, das Startverzeichnis und die Mehrfachauswahl ein und ruft den Dateidialog auf.<\/p>\n Listing 9: Öffnen der in einer Anlage enthaltenen Datei<\/p>\n Das Ergebnis, das in einer durch Tabulator-Zeichen getrennten Zeichenkette erscheint, wird dann mit der Split<\/b>-Funktion in die einzelnen Dateinamen zerlegt. Das Speichern der angegebenen Dateien im Anlagefeld übernimmt dann die Prozedur AnlageHinzufuegen <\/b>(mehr dazu gleich).<\/p>\n Die Prozedur AnlageHinzufuegen<\/b> (s. Listing 6<\/a><\/span>) fügt jeweils eine Anlage zum Anlagefeld hinzu. Dabei erwartet sie Pfad und Dateiname der hinzuzufügenden Anlage. Anlagefelder speichern die Anlagen in einer eigenen Tabelle, über die man genau wie auf eine normale Tabelle per Recordset2<\/b>-Objekt zugreifen kann (die neue Variante des Recordset<\/b>-Objekts). Dieses Recordset2<\/b>-Objekte füllen Sie schlicht durch Zuweisen der Value<\/b>-Eigenschaft des Feldes mit dem Datentyp Anlage<\/b>. Dieses Recordset2<\/b>-Objekt enthält dann bestimmte Felder wie FileData<\/b>, FileName <\/b>et cetera, auf die Sie ganz normal wie auf handelsübliche Recordset<\/b>-Felder zugreifen können.<\/p>\n Listing 6: Hinzufügen einer einzelnen Datei als Anlage<\/p>\n Um aber die Datensätze des Recordsets eines Attachment-Feldes mit DAO-Befehlen wie AddNew<\/b>, Edit <\/b>oder Update <\/b>zu bearbeiten, müssen Sie zunächst das Recordset mit Edit <\/b>in den Bearbeitungsmodus versetzen, welches das Attachment<\/b>-Feld enthält, und Sie müssen anschließend die änderungen mit Update <\/b>in die Tabelle schreiben. Dies geschieht auch in der Prozedur AnlageHinzufuegen<\/b>. Das Recordset m_AttachmentRecordset <\/b>enthält Datensätze der eigentlichen Tabelle, rstAttachments <\/b>die Datensätze des Attachment<\/b>-Feldes.<\/p>\n Die Prozedur durchsucht das Feld FileName <\/b>der Attachment<\/b>-Datensätze nach dem Namen der hinzuzufügenden Datei. Ist bereits eine Anlage mit diesem Namen vorhanden, soll der Benutzer entscheiden, ob diese überschrieben werden soll. Falls ja, löschen wir diesen Datensatz kurzerhand mit der Delete<\/b>-Methode, anderenfalls ist die Prozedur hier zuende.<\/p>\n War noch kein gleichnamiges Attachment vorhanden oder soll das vorhandene überschrieben werden, wird im Attachment<\/b>-Recordset ein neuer Datensatz angelegt. Das Hinzufügen der Datei erledigt dann die Methode LoadFromFile <\/b>des Feldes FileData<\/b>.<\/p>\n Hier kann lediglich noch ein kleines Problem auftauchen: Access erlaubt nicht alle Dateiendungen für Anlagefelder. Da es aber nicht untersucht, was sich tatsächlich in einer Datei befindet, ändert die Prozedur die Dateiendung einfach, indem sie .dat <\/b>an den Dateinamen anhängt. Danach erfolgt das Hinzufügen der Datei ohne Probleme, sodass die Prozedur nur noch den Namen der Ursprungsdatei zurückändern und die im Feld FileName <\/b>gespeicherte Information entsprechend anpassen muss.<\/p>\n Schließlich müssen noch die beiden Recordsets mit der Update<\/b>-Methode gespeichert werden.<\/p>\n Anlagen entfernen<\/b><\/p>\n Das Entfernen von Anlagen gelingt wesentlich einfacher. Die Prozedur aus Listing 7<\/a><\/span> durchläuft alle aktuell markierten Einträge des Listenfeldes. An dieser Stelle sei darauf hingewiesen, dass die Eigenschaft Mehrfachauswahl <\/b>des Listenfeldes den Wert Einfach <\/b>enthält.<\/p>\n Listing 7: Ein Klick auf die Entfernen-Schaltfläche löst diese Prozedur aus.<\/p>\n Innerhalb dieser Schleife speichert die Prozedur den Namen des aktuell durchlaufenen Eintrags in der Variablen strAnlage<\/b>. Diese dient schließlich als Parameter beim Aufruf der Prozedur AnlageEntfernen<\/b>, welche die eigentliche Arbeit übernimmt. Danach aktualisiert ein Aufruf der Routine AnlagenAuflisten <\/b>den Inhalt des Listenfeldes.<\/p>\n Die Prozedur AnlageEntfernen <\/b>(s. Listing 8<\/a><\/span>) ermittelt wiederum ein Recordset2<\/b>-Objekt aus der Value<\/b>-Eigenschaft des Attachment<\/b>-Feldes. Es durchsucht die Datensatzgruppe nach einem Eintrag, dessen Feld FileName <\/b>den im Parameter strAnlage <\/b>übergebenen Wert enthält und löscht ein eventuell gefundenes Exemplar mit der Delete<\/b>-Methode.<\/p>\n Listing 8: Entfernen einer Anlage<\/p>\n Anlage öffnen<\/b><\/p>\n Das Öffnen der aktuell markierten Anlage übernimmt die Prozedur AnlageOeffnen<\/b>, die von der Ereignisprozedur Beim Klicken <\/b>der Schaltfläche cmdOeffnen <\/b>aufgerufen wird:<\/p>\n Die Prozedur AnlageOeffnen <\/b>(s. Listing 9<\/a><\/span>) verwendet wiederum die im Beitrag Dateidialog-Klasse <\/b>(www.access-im-unternehmen.de\/756<\/b>) vorgestellte Klasse; in diesem Fall ihre Methode OpenDocument <\/b>zum Öffnen einer Datei mit der dafür festgelegten Anwendung. <\/p>\n Sollte aktuell mehr als eine Anlage im Listenfeld markiert sein, weist die Prozedur darauf hin, dass nur der erste Eintrag geöffnet wird. Dessen Name wird in der Variablen strAnlage<\/b> abgelegt und an eine weitere Prozedur namens AnlageSpeichern <\/b>übergeben. Diese im Anschluss beschriebene Prozedur übernimmt das eigentliche Speichern der Anlage im Dateisystem – mehr dazu weiter unten.<\/p>\n Ist die Datei gespeichert (im aktuellen Datenbankverzeichnis), wird diese mit der OpenDocument<\/b>-Methode der Klasse clsFiles <\/b>geöffnet.<\/p>\n Anlage unter einem bestimmten Namen speichern<\/p>\n Ein Klick auf die Schaltfläche cmdSpeichernUnter <\/b>löst die Prozedur aus Listing 10<\/a><\/span> aus. Diese Prozedur ermittelt hauptsächlich den Namen der zu speichernden Datei, wobei der Dateiname selbst vorgegeben und im einfachsten Fall nur das Verzeichnis ausgewählt werden soll. Der Benutzer kann jedoch auch einen alternativen Dateinamen eingeben.<\/p>\n Listing 10: Speichern einer Anlage im Dateisystem<\/p>\n Auch hier wird nur die erste markierte Datei behandelt und ein entsprechender Hinweis ausgegeben, wenn mehr als eine Anlage im Listenfeld markiert ist. Die Methode GetSaveFile <\/b>der Klasse clsFiles <\/b>liefert einen Datei speichern<\/b>-Dialog zur Auswahl beziehungsweise Eingabe des Namens der zu speichernden Datei. Die im Anschluss beschriebene Prozedur AnlageSpeichern <\/b>erledigt schließlich den eigentlichen Speichervorgang.<\/p>\n Anlage speichern<\/b><\/p>\n Die Prozedur aus Listing 11<\/a><\/span> speichert eine Anlage. Sie erwartet als Parameter den Namen der Anlage und den Dateinamen, unter dem die in der Anlage befindliche Datei gespeichert werden soll.<\/p>\n Listing 11: Speichern einer Anlage im Dateisystem<\/p>\n Die Prozedur öffnet das gewohnte Recordset auf Basis der im Anlagefeld enthaltenen Datensätze und durchsucht dieses nach der betroffenen Anlage. Sie prüft dann, ob bereits eine Datei mit dem angegebenen Speichernamen vorhanden ist und fragt den Benutzer, ob diese überschrieben werden soll. Schließlich sorgt die SaveToFile<\/b>-Methode des Anlage-Feldes für das Speichern der Anlage im Dateisystem.<\/p>\n Alle Anlagen speichern<\/b><\/p>\n Fehlt noch die Schaltfläche zum Speichern aller Anlagen des Anlage-Feldes: Diese soll nach einem Mausklick die Prozedur cmdAllesSpeichern<\/b> auslösen (s. Listing 12<\/a><\/span>) und zunächst einen Verzeichnis auswählen<\/b>-Dialog öffnen. Die Anlagen sollen ohne änderung der Dateinamen im ausgewählten Verzeichnis landen.<\/p>\n Listing 12: Auswahl eines Verzeichnisses zum Speichern aller Anlagen<\/p>\n Nach dem Ermitteln des Verzeichnisses ruft die Prozedur eine weitere Routine namens AlleAnlagenSpeichern <\/b>auf (s. Listing 13<\/a><\/span>).<\/p>\n Listing 13: Speichern aller Anlagen im Dateisystem<\/p>\n Diese öffnet erneut das Recordset aller im Anlagen-Feld gespeicherten Anlagen und durchläuft diese.<\/p>\n Dabei prüft sie für jede Datei, ob sie bereits vorhanden ist und fragt gegebenenfalls beim Benutzer nach, ob eine vorhandene Datei überschrieben werden soll. Falls ja, wird die Datei gelöscht und neu angelegt.<\/p>\n Öffnen der Anlagen per Doppelklick<\/b><\/p>\n Das letzte Feature ist der Doppelklick auf einen der Einträge des Listenfeldes. Dies soll den angeklickten Eintrag öffnen, was die folgende Prozedur erledigt:<\/p>\n Dabei ist wiederum zu beachten, dass bei Auswahl mehrerer Anlagen nur die jeweils erste in der Liste aufgeführte Anlage geöffnet wird.<\/p>\n Anlagenformular in Hauptformular integrieren<\/p>\n Für die reibungslose Zusammenarbeit zwischen Haupt- und Unterformular fehlt noch, dass das Unterformular auf Datensatzwechsel im Hauptformular reagiert.<\/p>\n Dazu wurde die Variable m_Form<\/b>, die ja auf das Hauptformular verweist, mit dem Schlüsselwort WithEvents <\/b>deklariert.<\/p>\n Die Prozedur Initialize<\/b> (s. Listing 1<\/a><\/span>) sorgt mit der folgenden Anweisung dafür, dass wir im Klassenmodul des Unterformulars Ereignisse des Hauptformulars erkennen können:<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_01\/AnlagendialogSelbstgebaut-web-images\/pic002.png\")
<\/p>\nDim m_Attachmentfield As DAO.Field2\r\nDim m_AttachmentRecordset As DAO.Recordset<\/pre>\n
Dim WithEvents m_Form As Form<\/pre>\n
Public Sub Initialize(frm As Form, strAttachmentfield As String)\r\n Set m_Form = frm\r\n m_Form.OnCurrent = "[Event Procedure]"\r\n Set m_AttachmentRecordset = frm.RecordsetClone\r\n Set m_Attachmentfield = rstAttachment.Fields(strAttachmentfield)\r\n AnlagenAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub AnlagenAktualisieren()\r\n m_AttachmentRecordset.Bookmark = m_Form.Recordset.Bookmark\r\n If Not m_Form.NewRecord Then\r\n AnlagenAuflisten\r\n Me!lstAnlagen = Me!lstAnlagen.ItemData(0)\r\n Else\r\n Me!lstAnlagen.RowSource = ""\r\n End If\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_01\/AnlagendialogSelbstgebaut-web-images\/pic004.png\")
<\/p>\nPrivate Sub Form_Load()\r\n Me!frmAnlagen.Form.Initialize Me, "Dateianlagen"\r\nEnd Sub<\/pre>\n
Public Sub AnlagenAuflisten()\r\n Dim db As DAO.Database\r\n Dim rstAttachments As Recordset2\r\n Dim rstAttachmentsSortiert As Recordset2\r\n Set rstAttachments = m_Attachmentfield.Value\r\n rstAttachments.Sort = "Filename ASC"\r\n Set rstAttachmentsSortiert = rstAttachments.OpenRecordset\r\n Me!lstAnlagen.RowSource = ""\r\n Do While Not rstAttachments.EOF\r\n Me!lstAnlagen.AddItem rstAttachments!FileName\r\n rstAttachments.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
Private Sub cmdHinzufuegen_Click()\r\n Dim objFiles As clsFiles\r\n Dim strDateien As String\r\n Dim strDateienArray() As String\r\n Dim i As Integer\r\n Set objFiles = New clsFiles\r\n With objFiles\r\n .Filter = "Alle Dateien (*.*)"\r\n .StartDir = CurrentProject.Path\r\n .Title = "Datei(en) auswählen"\r\n .MultipleFiles = True\r\n strDateien = .OpenFileName\r\n End With\r\n strDateienArray() = Split(strDateien, vbTab)\r\n For i = LBound(strDateienArray) To UBound(strDateienArray)\r\n AnlageHinzufuegen strDateienArray(i)\r\n Next i\r\n AnlagenAuflisten\r\nEnd Sub<\/pre>\n
Private Sub SchaltflaechenAktivieren()\r\n Dim bolDateiAusgewaehlt As Boolean\r\n bolDateiAusgewaehlt = Not Me!lstAnlagen.ItemsSelected.Count = 0\r\n Me!cmdEntfernen.Enabled = bolDateiAusgewaehlt\r\n Me!cmdOeffnen.Enabled = bolDateiAusgewaehlt\r\n Me!cmdSpeichernUnter.Enabled = bolDateiAusgewaehlt\r\n Me!cmdAllesSpeichern.Enabled = Not (Me!lstAnlagen.ListCount = 0)\r\nEnd Sub<\/pre>\n
Private Sub lstAnlagen_AfterUpdate()\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/pre>\n
Private Sub AnlageOeffnen()\r\n Dim objFiles As clsFiles\r\n Dim strAnlage As String\r\n If Me!lstAnlagen.ItemsSelected.Count > 1 Then\r\n MsgBox "Es wird nur die erste ausgewählte Anlage geöffnet."\r\n End If\r\n strAnlage = Me!lstAnlagen.ItemData(Me!lstAnlagen.ItemsSelected(0))\r\n AnlageSpeichern strAnlage, CurrentProject.Path & "\\" & strAnlage\r\n Set objFiles = New clsFiles\r\n With objFiles\r\n .OpenDocument CurrentProject.Path & "\\" & strAnlage\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub AnlageHinzufuegen(strPfadUndDatei As String)\r\n Dim rstAttachments As DAO.Recordset2\r\n Dim strDatei As String\r\n strDatei = Mid(strPfadUndDatei, InStrRev(strPfadUndDatei, "\\") + 1)\r\n Set rstAttachments = m_Attachmentfield.Value\r\n m_AttachmentRecordset.Edit\r\n rstAttachments.FindFirst "Filename = ''" & strDatei & "''"\r\n If Not rstAttachments.NoMatch Then\r\n If MsgBox("Die Anlage ''" & strDatei & "'' ist bereits vorhanden. Möchten Sie diese Anlage " _\r\n & "überschreiben", vbYesNo) = vbYes Then\r\n rstAttachments.Delete\r\n Else\r\n Exit Sub\r\n End If\r\n End If\r\n rstAttachments.AddNew\r\n On Error Resume Next\r\n rstAttachments!FileData.LoadFromFile strDatei\r\n If Err.Number = -2146697202 Then\r\n Name strDatei As strDatei & ".dat"\r\n rstAttachments!FileData.LoadFromFile strDatei & ".dat"\r\n rstAttachments!FileName = Mid(strDatei, InStrRev(strDatei, "\\") + 1)\r\n Name strDatei & ".dat" As strDatei\r\n End If\r\n rstAttachments.Update\r\n m_AttachmentRecordset.Update\r\nEnd Sub<\/pre>\nPrivate Sub cmdEntfernen_Click()\r\n Dim varAnlage As Variant\r\n Dim strAnlage As String\r\n For Each varAnlage In Me!lstAnlagen.ItemsSelected\r\n strAnlage = Me!lstAnlagen.ItemData(varAnlage)\r\n AnlageEntfernen strAnlage\r\n Next varAnlage\r\n AnlagenAuflisten\r\nEnd Sub<\/pre>\n
Private Sub AnlageEntfernen(strAnlage As String)\r\n Dim rstAttachments As DAO.Recordset2\r\n Set rstAttachments = m_Attachmentfield.Value\r\n rstAttachments.FindFirst "Filename = ''" & strAnlage & "''"\r\n If Not rstAttachments.NoMatch Then\r\n rstAttachments.Delete\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdOeffnen_Click()\r\n AnlageOeffnen\r\nEnd Sub<\/pre>\n
Private Sub cmdSpeichernUnter_Click()\r\n Dim objFiles As clsFiles\r\n Dim strAnlage As String\r\n Dim strPfadUndDatei As String\r\n If Me!lstAnlagen.ItemsSelected.Count > 1 Then\r\n MsgBox "Es wird nur die erste ausgewählte Anlage gespeichert."\r\n End If\r\n strAnlage = Me!lstAnlagen.ItemData(Me!lstAnlagen.ItemsSelected(0))\r\n Set objFiles = New clsFiles\r\n With objFiles\r\n .Filter = "Alle Dateien (*.*)"\r\n .StartDir = CurrentProject.Path\r\n strPfadUndDatei = .GetSaveFile(strAnlage)\r\n AnlageSpeichern strAnlage, strPfadUndDatei\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub AnlageSpeichern(strAnlage As String, strPfadUndDatei As String)\r\n Dim rstAttachments As DAO.Recordset2\r\n Set rstAttachments = m_Attachmentfield.Value\r\n rstAttachments.FindFirst "Filename = ''" & strAnlage & "''"\r\n If Not rstAttachments.NoMatch Then\r\n If Len(Dir(strPfadUndDatei)) > 0 Then\r\n If MsgBox("Die Anlage ''" & strAnlage & "'' ist bereits vorhanden. Möchten Sie " _\r\n & "diese Datei überschreiben", vbYesNo) = vbYes Then\r\n Kill strPfadUndDatei\r\n rstAttachments!FileData.SaveToFile strPfadUndDatei\r\n End If\r\n Else\r\n rstAttachments!FileData.SaveToFile strPfadUndDatei\r\n End If\r\n End If\r\nEnd Sub<\/pre>\nPrivate Sub cmdAllesSpeichern_Click()\r\n Dim objFiles As clsFiles\r\n Dim strVerzeichnis As String\r\n Set objFiles = New clsFiles\r\n With objFiles\r\n .StartDir = CurrentProject.Path\r\n .Title = "Zielverzeichnis auswählen"\r\n strVerzeichnis = .GetPath\r\n End With\r\n If Len(strVerzeichnis) > 0 Then\r\n AlleAnlagenSpeichern strVerzeichnis\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub AlleAnlagenSpeichern(strVerzeichnis As String)\r\n Dim rstAttachments As DAO.Recordset2\r\n Dim strAnlage As String\r\n Set rstAttachments = m_Attachmentfield.Value\r\n Do While Not rstAttachments.EOF\r\n strAnlage = rstAttachments!FileName\r\n If Len(Dir(strVerzeichnis & "\\" & strAnlage)) > 0 Then\r\n If MsgBox("Die Anlage ''" & strAnlage & "'' ist bereits vorhanden. Möchten Sie diese Datei überschreiben", vbYesNo) = vbYes Then\r\n Kill strVerzeichnis & "\\" & strAnlage\r\n rstAttachments!FileData.SaveToFile strVerzeichnis & "\\" & strAnlage\r\n End If\r\n Else\r\n rstAttachments!FileData.SaveToFile strVerzeichnis & "\\" & strAnlage\r\n End If\r\n rstAttachments.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\nPrivate Sub lstAnlagen_DblClick(Cancel As Integer)\r\n AnlageOeffnen\r\nEnd Sub<\/pre>\n
m_Form.OnCurrent = "[Event Procedure]"<\/pre>\n