![\"Die](\"..\/tl_files\/images\/pic_732_001.png\")
<\/a><\/p>\nBild 1: Die Felder Buchtitel und Bilder aus der Feldliste im Entwurf von frmBuchCover<\/p>\n
Für das Anlagefeld legt Access kein Textfeld an, sondern ein eigenes Steuerelement für Anlagen. Es erhält den Namen des Feldes, also Bilder<\/b>, und ist über die Eigenschaft Steuerelementinhalt<\/b> an das Feld gebunden.<\/p>\n
Das neue Steuerelement ist zunächst klein. Wir ziehen es auf die Größe, in der ein Cover gut erkennbar ist. Im Eigenschaftenblatt stellen wir die Eigenschaft Bildgrößenmodus<\/b> auf den Wert Zoomen<\/b> ein. Damit bleibt das Seitenverhältnis des Bilds erhalten, und das ganze Bild ist sichtbar.<\/p>\n
In der Formularansicht zeigt das Formular das Buch mit der BuchID<\/b> 2<\/b>, Anwendungen entwickeln mit Access<\/b>, mit seinem Cover (siehe Bild 3). Ein Buch ohne Anlage zeigt in dem Steuerelement kein Bild.<\/p>\n
Bild 2: Das Formular frmBuchCover mit dem Cover des Buchs Anwendungen entwickeln mit Access<\/p>\n Zum Verwalten der Anlagen öffnen wir mit einem Doppelklick auf das Steuerelement den Dialog Anlagen<\/b>, den wir aus der Datenblattansicht der Tabelle kennen (siehe Bild 4). Er bietet die Schaltflächen Hinzufügen…<\/b>, Entfernen<\/b>, Öffnen<\/b>, Speichern unter…<\/b> und Alles speichern…<\/b>. Mit Entfernen<\/b> löschen wir die markierte Anlage aus dem Datensatz.<\/p>\n Bild 3: Der Anlagen-Dialog, der per Doppelklick auf ein Anlage-Feld geöffnet wird<\/p>\n Wir wechseln zum Buch Access und SQL Server<\/b> (BuchID 3<\/b>), öffnen den Dialog und fügen mit Hinzufügen…<\/b> die Dateien Rueckseite.png<\/b> und Leseprobe.pdf<\/b> aus dem Ordner Dateien<\/b> hinzu. Das Buch hat danach drei Anlagen: das Cover, die Rückseite und die Leseprobe (siehe Bild 5). Nach dem Schließen mit OK<\/b> zeigt das Formular eine der Anlagen. Beim Überfahren mit der Maus blendet das Steuerelement Pfeile ein, mit denen wir zwischen den Anlagen wechseln.<\/p>\n Bild 4: Der Dialog Anlagen für das Buch Access und SQL Server nach dem Hinzufügen der beiden Dateien<\/p>\n In der Beispieldatenbank zeigt das Steuerelement die Anlagen alphabetisch nach dem Dateinamen, nicht in der Reihenfolge, in der wir sie hinzugefügt haben.<\/p>\n Zuerst erscheint deshalb Leseprobe.pdf<\/b>, danach das vorhandene Cover q_Access_und_SQL-front-neu.png<\/b> und zuletzt Rueckseite.png<\/b>. Für eine PDF-Datei kann das Steuerelement keine Vorschau anzeigen und zeigt stattdessen ein Symbol (siehe Bild 6).<\/p>\n Bild 5: PDF-Anlagen werden nicht als Vorschau angezeigt.<\/p>\n Das Steuerelement zeigt nicht an, wie viele Anlagen ein Buch hat und welche gerade zu sehen ist. Diese Angaben stellt das Steuerelement über vier Eigenschaften bereit, die wir per VBA abfragen können:<\/p>\n Für die Anzeige legen wir unter dem Steuerelement Bilder<\/b> ein Textfeld an. Wir nennen es txtAnlageInfo<\/b>, lassen Steuerelementinhalt<\/b> leer und stellen die Eigenschaft Gesperrt<\/b> auf Ja<\/b> ein, damit der Benutzer den Text nicht ändert.<\/p>\n Die Prozedur AnlageInfoAnzeigen<\/b> schreibt die Angaben in dieses Textfeld (siehe Listing 1).<\/p>\n Listing 1: Nummer, Anzahl und Dateiname der aktuellen Anlage anzeigen<\/p>\n Wir legen sie im Klassenmodul des Formulars an. Das Klassenmodul öffnen wir über die Schaltfläche Code anzeigen<\/b> im Menüband oder über eine Ereignisprozedur, wie im Artikel VBA [basics]: Klassenmodule für Formulare und Berichte (www.access-basics.de\/682)<\/b> beschrieben.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nAnlagen hinzufügen, entfernen und speichern<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nDie aktuelle Anlage anzeigen<\/h2>\n
\n
Private Sub <\/span>AnlageInfoAnzeigen()\r\n If <\/span>Me!Bilder.AttachmentCount = 0 Then<\/span>\r\n Me!txtAnlageInfo = \"Keine Anlage\"\r\n Else<\/span>\r\n Me!txtAnlageInfo = \"Anlage \" & (Me!Bilder.CurrentAttachment + 1) & \" von \" & Me!Bilder.AttachmentCount & \": \" _\r\n & Me!Bilder.FileName\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t