<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Beschriftung von Listenfeldern ist erforderlich, sobald die Anzahl der angezeigten Felder größer als eins ist. Um ein solches Feld zu beschriften, gibt es zwei Möglichkeiten: Entweder Sie verwenden die eingebaute Funktion zur Anzeige von überschriften oder Sie legen selbst Hand an und erstellen entsprechende Bezeichnungsfelder oberhalb des Listenfeldes. In welchen Fällen dies erforderlich ist und wie Sie sich die Arbeit auf Dauer durch Verwendung eines Assistenten wesentlich vereinfachen können, zeigt Ihnen der vorliegende Beitrag.<\/b><\/p>\n
Die Beschriftung eines Listenfeldes kann auf zwei Arten erfolgen. Das Listenfeld selbst enthält die Eigenschaft Spaltenüberschriften. Wenn Sie ihren Wert auf Ja setzen, fügt Access dem Listenfeld eine Zeile mit überschriften hinzu (siehe Bild 1). Dabei verwendet Access die Feldnamen bzw. eventuell vorhandene Alias-Namen aus der Datensatzherkunft des Listenfeldes.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Listenfeld mit eingebauten überschriften<\/span><\/b><\/p>\n Die zweite Möglichkeit ist die Platzierung eigener überschriften oberhalb des Listenfeldes (siehe Bild 2). Die Methode ist z. B. sinnvoll, wenn die Formatierung der überschriften des Listenfeldes dem Design der übrigen Steuerelemente entsprechen soll.<\/p>\n Wenn Sie schon einmal Formulare mit vielen Steuerelementen optisch aufbereitet haben, wissen Sie, dass dies eine recht mühselige Arbeit sein kann. Die manuelle Beschriftung von Listenfeldern ist da keine Ausnahme, ganz im Gegenteil: Die überschriften müssen genau an die in der Eigenschaft Spaltenbreiten angegebenen Maße angepasst werden. Und ob Sie nun die entsprechenden Maße für die Eigenschaften Links und Breite der einzelnen Bezeichnungsfelder eintragen oder die Bezeichnungsfelder nach Augenmaß positionieren: spätestens nach dem Hinzufügen einer Spalte zum Listenfeld ist die ganze Arbeit für die Katz.<\/p>\n <\/b><\/p>\n Bild 2: Listenfeld mit manuell erstellten überschriften<\/span><\/b><\/p>\n Wesentlich angenehmer wäre die Aufgabe, wenn sie mit wenigen Knopfdrücken zu erledigen wäre. Und da Sie im Beitrag Assistenten und Add-Ins mit Access in der vorliegenden Ausgabe von Access im Unternehmen ohnehin nachlesen können, wie Sie einen Assistenten in Access integrieren, erstellen Sie sich einen eigenen Assistenten zum Beschriften von Listenfeldern.<\/p>\n Den fertigen Listenfeldbeschrifter finden Sie auf der Heft-CD unter den Dateinamen Listenfeldbeschrifter97.mda und Listenfeldbeschrifter2000.mda. <\/p>\n Wenn Sie einen Assistenten selbst programmieren, können Sie auch selbst seinen Funktionsumfang bestimmen. Das ist der große Vorteil gegenüber fertigen Assistenten und Add-Ins, die entweder so viele Funktionen haben, dass Sie den überblick verlieren, oder die entscheidenden Funktionen vermissen lassen.<\/p>\n Genauso ist es beim Funktionsumfang des Assistenten, der im Rahmen des vorliegenden Beitrags vorgestellt wird: Er wird möglicherweise nicht hundertprozentig Ihren Wünschen entsprechen, aber Sie können ja ohne weiteres Funktionen hinzufügen oder überflüssige entfernen.<\/p>\n Die als Beispieldatenbank auf der Heft-CD befindliche Add-In-Datenbank enthält die folgenden Funktionen:<\/p>\n <\/b><\/p>\n Bild 3: Benutzeroberfläche des Listenfeldbeschrifter-Dialogs<\/span><\/b><\/p>\n Der hier vorgestellte Assistent besteht im Wesentlichen aus einem Formular, das als Dialog zur Einstellung der gewünschten Eigenschaften der Listenfeldbeschriftungen dient (siehe Bild 3). Sie können den Assistenten nach der Fertigstellung und Registrierung über den Eintrag Extras\/Add-Ins\/Listenfeldbeschrifter aktivieren.<\/p>\n Der obere Bereich des Assistenten enthält eine Beispielbeschriftung zur Vorschau auf die aktuellen Einstellungen. Die beiden Kombinationsfelder dienen zur Auswahl des Formulars und des Listenfeldes. Alle anderen Steuerelemente dienen zur Einstellung der verschiedenen Eigenschaften.<\/p>\n Dabei verwendet der Assistent – soweit möglich – vom System zur Verfügung gestellte Dialogfenster. Das ist bei der Auswahl der Schriftart und bei der Rahmen- und der Hintergrundfarbe der Fall.<\/p>\n Nach dem Festlegen der Einstellungen und einem Mausklick auf die Schaltfläche Fertig stellen erfolgt die Erstellung der Bezeichnungsfelder. Der Assistent verwendet die Namen oder – falls vorhanden – die Alias-Namen der Felder der Datensatzherkunft des Listenfeldes.<\/p>\n Der Assistent zeigt für jede überschrift eine Inputbox zur übernahme oder zur Anpassung der überschrift an. Nach der übernahme der überschrift überprüft der Assistent, ob die Breite des zu erstellenden Bezeichnungsfeldes größer als die Breite der entsprechenden Spalte des Listenfeldes ist, und fragt ggf. nach einer kürzeren überschrift.<\/p>\n In den folgenden Abschnitten erfahren Sie, wie Sie das Formular mit den Steuerelementen zur Festlegung der Eigenschaften der Listenfeldbeschriftungen erstellen und welche Funktionalität sich dahinter verbirgt.<\/p>\n Der Quellcode ist aufgrund seines Umfangs teilweise verkürzt dargestellt. Die ungekürzte Version des Quellcodes finden Sie in den entsprechenden Datenbanken auf der beiliegenden Heft-CD. <\/p>\n Neben einigen VBA-Modulen ist das Formular frmListenfeldbeschrifter das einzige Objekt der Datenbank (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Das Formular frmListenfeldBeschriften in der Entwurfsansicht<\/span><\/b><\/p>\n Das Bezeichnungsfeld lblBeschriftung bietet dem Anwender eine Vorschau einer überschrift mit den aktuellen Einstellungen.<\/p>\n Das Kombinationsfeld cboFormular soll alle Formulare der Datenbank anzeigen, die den Assistenten aufruft.<\/p>\n Normalerweise können Sie als Datenherkunft des Kombinationsfeldes einfach eine auf der Tabelle MSysObjects basierende Abfrage verwenden. Die Tabelle MSysObjects enthält alle Objekte einer Access-Datenbank. Wenn das Feld Type dieser Tabelle den Wert -32768 hat, handelt es sich bei dem Objekt um ein Formular.<\/p>\n Hier ruft allerdings eine Datenbank (die Datenbank mit dem anzupassenden Listenfeld) eine Funktion einer anderen Datenbank (der Add-In-Datenbank) auf. Wenn im Klassenmodul des Formulars frmListenfeldbeschrifter der Add-In-Datenbank nun eine auf einer Systemtabelle basierende Abfrage ausgeführt wird, bezieht sich diese Abfrage logischerweise auf die Tabelle MSysObjects der Add-In-Datenbank.<\/p>\n Das können Sie umgehen, indem Sie das Kombinationsfeld per Code füllen. Dazu stellen Sie zunächst die Eigenschaft Herkunftstyp auf Wertliste ein. Den Rest übernimmt die Prozedur aus Quellcode 1, die beim öffnen des Formulars frmListenfeldbeschriftung aufgerufen wird.<\/p>\n Interessant ist in diesem Fall der erste Teil bis zur Zuweisung der Wertliste an die Eigenschaft RowSource des Kombinationsfeldes. Die Prozedur verwendet die CurrentDB-Funktion, um die aktuell im Datenbankfenster angezeigte Datenbank zu ermitteln, und füllt anschließend das Recordset rst mit den Namen aller Formulare dieser Datenbank. In einer Do While-Schleife durchläuft die Prozedur alle Einträge und setzt einen String zusammen, der eine Liste der durch Semikola getrennten Formularnamen der Datenbank enthält.<\/p>\n <\/p>\n Wenn Sie per Code auf eine Tabelle der Add-In-Datenbank verweisen möchten, können Sie dies über die Funktion CodeDB erledigen, die bis auf die Zieldatenbank mit CurrentDB identisch ist. <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Die beiden weiteren Anweisungen setzen die Kombinationsfelder zur Auswahl von Rahmenbreite und Spezialeffekt auf den ersten Wert der entsprechenden Datensatzherkunft der Kombinationsfelder.<\/p>\n Nach der Auswahl des Formulars soll das Kombinationsfeld cboListenfelder alle Listenfelder des ausgewählten Formulars zur Auswahl anbieten.<\/p>\n Da der Inhalt dieses Kombinationsfeldes für jedes Formular anders ist, wird seine Datensatzherkunft nach jeder Auswahl eines neuen Formulars aktualisiert. Diese Aufgabe übernimmt die Prozedur aus Quellcode 2, die durch das Ereignis Nach Aktualisierung des Kombinationsfeldes cboFormulare ausgelöst wird.<\/p>\n Die Prozedur überprüft zunächst, ob das im Kombinationsfeld cboFormular ausgewählte Formular geöffnet ist. Falls nicht, öffnet es das Formular nach Bestätigung durch den Benutzer in der Entwurfsansicht. Anschließend liest es die Namen aller Steuerelemente aus der Auflistung Controls aus, deren Eigenschaft ControlType den Wert acListbox hat, und schreibt sie durch Semikola getrennt in eine Stringvariable. Danach entfernt die Prozedur das abschließende Semikolon der Stringvariablen und weist sie der Datensatzherkunft des Kombinationsfeldes cboListenfelder zu.<\/p>\n Quellcode 3<\/b><\/p>\n Die weiteren Steuerelemente dienen zur Auswahl der Eigenschaften der anzulegenden Listenfeldüberschriften.<\/p>\n Das Kombinationsfeld cboSpezialeffekt dient zur Auswahl des Spezialeffektes der Bezeichnungsfelder. Es ist ebenfalls mit einer Wertliste gefüllt, die alle möglichen Spezialeffekte sowie deren Zahlenkonstanten enthält:<\/p>\n Damit das Kombinationsfeld nur die Bezeichnungen der Spezialeffekte statt der Konstanten anzeigt, stellen Sie die Eigenschaften Spaltenanzahl und Spaltenbreite auf die Werte 2 und 0 ein.<\/p>\n Zur Auswahl der Schriftart ruft das Formular den dafür vorgesehenen Systemdialog von Windows auf. Der Aufruf erfolgt in der Prozedur aus Quellcode 3, die durch das Ereignis Beim Klicken der Schaltfläche cmdSchriftartAuswaehlen ausgelöst wird.<\/p>\n Als Parameter für die Funktion dienen einige Schriftart-Eigenschaften wie z. B. Name, Größe etc. Die Funktion liest die aktuellen Werte der Eigenschaften des Bezeichnungsfeldes zur Anzeige des Beispieltextes aus und übergibt sie an den Dialog zur Auswahl der Schriftart. Der Dialog verwendet die übergebenen Werte als Voreinstellungen und gibt nach der Anpassung der Schriftart die geänderten Werte an die aufrufende Funktion zurück.<\/p>\n Die Funktion ShowFont ruft den Schriftart-Dialog über die API-Funktion ChooseFont der Bibliothek ComDlg32.dll auf (siehe Bild 5). Die Vorgehensweise ist relativ kompliziert und kann aus Platzgründen an dieser Stelle nicht näher behandelt werden. <\/p>\n <\/b><\/p>\n Bild 5: Auswahl der Schriftart<\/span><\/b><\/p>\n Zum Festlegen der Rahmenoptik gibt es drei Eigenschaften: Borderstyle, Bordercolor und Borderwidth.<\/p>\n Die Eigenschaft Borderstyle kann zwei Werte annehmen: Transparent und Durchgezogen. Die Optionsgruppe ogrRahmen stellt zwei Optionsfelder zur Auswahl der Eigenschaft BorderStyle zur Verfügung.<\/p>\n Die Rahmenbreite (Borderwidth) wird in dem Kombinationsfeld cboRahmenbreite ausgewählt. Als Datensatzherkunft dient wiederum eine Wertliste mit dem folgenden Inhalt:<\/p>\n Die Auswahl der Rahmenfarbe erfolgt mit einem Systemdialog. Da der Dialog noch von einer anderen Stelle aus aufgerufen wird, befindet sich sein Aufruf in einer Funktion in einem separaten Klassenmodul. Die Prozedur aus Quellcode 4 ruft diese Funktion nach dem Auslösen des Ereignisses Beim Klicken der Schaltfläche cmdRahmenfarbe auf.<\/p>\n Quellcode 4<\/b><\/p>\n Der einzige Befehl der Funktion weist der Eigenschaft BorderColor des Bezeichnungsfeldes lblBeschriftung den Rückgabewert der Funktion FarbeAuswaehlen zu.<\/p>\n Die Funktion FarbeAuswaehlen hat zwei Parameter zur übergabe des Handles des aktuellen Fensters und zur übergabe der aktuellen Farbe des Rahmens des Beispiel-Bezeichnungsfeldes.<\/p>\n <\/b><\/p>\n Bild 6: Dialog zur Farbauswahl<\/span><\/b><\/p>\n Die Funktion FarbeAuswaehlen verwendet einen Access-internen Dialog zur Auswahl der Farbe (siehe Bild 6). Dieser Dialog funktioniert zumindest mit Access 97, Access 2000 und Access XP. Möglicherweise wird er in kommenden Versionen von Access aber nicht mehr unterstützt. <\/p>\n Der Hintergrund wird durch zwei Eigenschaften vollständig beschrieben: BackColor und BackStyle.<\/p>\n Die Auswahl der Hintergrundart erfolgt über die Optionsgruppe oprgrpHintergrundart. Es stehen zwei Hintergrundarten zur Auswahl, die über entsprechende Optionsfelder ausgewählt werden können: Transparent und Durchgezogen.<\/p>\n Die Auswahl der Hintergrundfarbe erfolgt analog zur Auswahl der Rahmenfarbe.<\/p>\n Nach der Auswahl der gewünschten Einstellungen folgt die eigentliche Aufgabe des Assistenten – das Hinzufügen der Bezeichnungsfelder. Die Erstellung der Bezeichnungsfelder erfolgt mit der Prozedur aus Quellcode 5, die durch das Ereignis Beim Klicken der Schaltfläche cmdFertigstellen ausgelöst wird.<\/p>\n Die Prozedur öffnet nach dem Deklarationsteil und der Validierung der im Assistenten eingegebenen Werte zunächst das im Kombinationsfeld cboFormular ausgewählte Formular in der Entwurfsansicht, da nur in dieser Ansicht Steuerelemente hinzugefügt werden können.<\/p>\n Anschließend stellt sie den Wert der Objektvariablen Listenfeld auf das im Kombinationsfeld cboListenfelder ausgewählte Listenfeld ein.<\/p>\n Nun benötigt die Prozedur Informationen über die anzulegenden Bezeichnungsfelder und deren Position und Breite. Dazu erstellt sie eine Datensatzgruppe auf Basis der Datensatzherkunft des Listenfeldes. Die Position und die Breite können komplett aus der Eigenschaft Spaltenbreiten des Listenfeldes abgeleitet werden.<\/p>\n In der Variablen intHoehe wird das Produkt aus der gewählten Schriftgröße und einer Konstanten eine ausreichende Höhe für die Bezeichnungsfelder ermittelt.<\/p>\n Quellcode 5 (Fortsetzung)<\/b><\/p>\n Mit diesem Wert überprüft die Prozedur, ob zwischen oberem Rand des Listenfeldes und der Oberkante des Formularbereichs, in dem sich das Listenfeld befindet, genügend Platz für die einzufügenden Bezeichnungsfelder ist, und bricht den Vorgang ggf. ab. Die Variable intLinks enthält als Wert den Abstand des zu erstellenden Bezeichnungsfeldes vom linken Formularrand.<\/p>\n Als Startwert dient der Abstand des Listenfeldes vom linken Formularrand.<\/p>\n Nun geht es richtig los: In einer For Each-Schleife durchläuft die Prozedur alle Felder der Datensatzherkunft des Listenfeldes.<\/p>\n Dabei passiert zusammengefasst Folgendes: Die Prozedur erstellt ein neues Bezeichnungsfeld mit den aus dem Ausdruck strSpaltenbreiten gewonnenen Daten als Grundlage für die Eigenschaften Links und Breite. Als Beschriftung des neuen Bezeichnungsfeldes schlägt die Prozedur den Feldnamen aus der Datensatzherkunft des Listenfeldes vor. Der Benutzer kann ihn entweder übernehmen oder einen neuen Namen eingeben. Das ist in vielen Fällen sinnvoll, z. B. wenn der Name viel zu lang für die Breite der Spalte ist. Mit Hilfe der Funktion EigenschaftenAnpassen werden dem neuen Bezeichnungsfeld alle im Assistenten ausgewählten Eigenschaften zugewiesen.<\/p>\n <\/b><\/p>\n Bild 7: Registry-Einträge für den Assistenten<\/span><\/b><\/p>\n Nach dem Anlegen des Bezeichnungsfeldes in der Rohfassung durchläuft die Prozedur eine Do While-Schleife so lange, bis die Breite der Beschriftung der Breite der Spalte entspricht, und bittet den Benutzer jedes Mal, wenn die Beschriftung zu breit für die Spalte ist, um eine entsprechende Korrektur.<\/p>\n Nach jeder Korrektur löscht die Prozedur das Bezeichnungsfeld wieder und erstellt es neu, da bei einer Verkürzung der Beschriftung zwar die Beschriftung schmaler wird, aber die Breite des Bezeichnungsfeldes nicht entsprechend angepasst wird.<\/p>\n Nach dem Erstellen eines Bezeichnungsfeldes wird der Wert der Variablen intLinks um die Breite des erstellten Bezeichnungsfeldes erhöht, damit das neue Bezeichnungsfeld direkt rechts neben dem letzten Bezeichnungsfeld platziert werden kann.<\/p>\n Der Ausdruck strSpaltenbreiten wird mit jedem Bezeichnungsfeld um den ersten Wert gekürzt, damit die Prozedur den ersten Wert des gekürzten Ausdrucks bequem als nächste Spaltenbreite auslesen kann. Die Spaltenbreiten können auch in einem Array gespeichert werden.<\/p>\n In Anbetracht der Anzahl der Spalten eines durchschnittlichen Listenfeldes wäre durch diese Maßnahme allerdings kein Performancegewinn zu erwarten.<\/p>\n Nachdem alle Bezeichnungsfelder angelegt sind, fragt die Prozedur den Anwender noch, ob ein weiteres Listenfeld bearbeitet werden soll, und aktiviert – abhängig von der Antwort – den Assistenten erneut oder schließt das Assistentenformular.<\/p>\n Um den Assistenten einsatzbereit zu machen, müssen Sie nun noch eine Funktion namens Listenfeldbeschrifter in einem neuen Modul anlegen. Weisen Sie dieser Funktion den folgenden Quellcode zu:<\/p>\n Wenn Sie nun noch eine Tabelle namens USysRegInfo anlegen und die Daten aus Bild 7 eintragen, können Sie den Assistenten mit Hilfe der Lektüre des Beitrags Assistenten und Add-Ins mit Access in der vorliegenden Ausgabe in Betrieb nehmen.<\/p>\n Haben Sie erst einmal einen Assistenten erstellt, fallen Ihnen sicher noch viele weitere Einsatzmöglichkeiten für Assistenten ein.<\/p>\n In den folgenden Ausgaben werden in loser Folge weitere Assistenten vorgestellt.<\/p>\n Ein interessantes Thema in diesem Zusammenhang ist auch die Verwendung eines Setup-Tools zur vollautomatischen Installation von Assistenten inklusive der Erstellung der entsprechenden Registry-Einträge. Mehr zu diesem Thema erfahren erfahren Sie in einer der nächsten Ausgaben.<\/p>\n","protected":false},"excerpt":{"rendered":" Die Beschriftung von Listenfeldern ist erforderlich, sobald die Anzahl der angezeigten Felder größer als eins ist. Um ein solches Feld zu beschriften, gibt es zwei Möglichkeiten: Entweder Sie verwenden die eingebaute Funktion zur Anzeige von Überschriften oder Sie legen selbst Hand an und erstellen ent-sprechende Bezeichnungsfelder oberhalb des Listenfeldes. In welchen Fällen dies erforderlich ist und wie Sie sich die Arbeit auf Dauer durch Verwendung eines Assistenten wesentlich vereinfachen können, zeigt Ihnen der vorliegende Beitrag.<\/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":[66022003,662003,44000023],"tags":[],"class_list":["post-55000103","post","type-post","status-publish","format-standard","hentry","category-66022003","category-662003","category-Mit_Formularen_arbeiten"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic002.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic003.png\")
<\/p>\nHinweis<\/h3>\n
Das FormularfrmListenfeldbeschrifter<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic004.png\")
<\/p>\nAnzeige einer Beispielbeschriftung<\/h3>\n
Auswahl des Formulars<\/h2>\n
Praxis-Tipp<\/h3>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Dim strRowsource As String\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"SELECT Name FROM \" _ \"MSysObjects WHERE Type=-32768\", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n strRowsource = strRowsource & rst!Name & \";\"\r\n rst.MoveNext\r\n Loop\r\n Me.cboFormular.RowSource = Left(strRowsource, _ Len(strRowsource) - 1)\r\n Me.cboRahmenbreite = Me.cboRahmenbreite.ItemData(0)\r\n Me.cboSpezialeffekt = _ Me.cboSpezialeffekt.ItemData(0)\r\nEnd Sub<\/pre>\n
Private Sub cboFormular_AfterUpdate()\r\n Dim Formular As Form\r\n Dim Steuerelement As Control\r\n Dim strListenfelder As String\r\n If Not IstFormularGeoeffnet(Me.cboFormular) Then\r\n If MsgBox(\"Das Formular wird jetzt in der \" _ \"Entwurfsansicht geöffnet.\", vbOKCancel _ + vbExclamation, _\r\n \"Listenfeldbeschrifter\") = vbOK Then\r\n DoCmd.OpenForm Me.cboFormular, acDesign\r\n End If\r\n End If\r\n Set Formular = Forms(Me.cboFormular)\r\n For Each Steuerelement In Formular.Controls\r\n If Steuerelement.ControlType = acListBox Then\r\n strListenfelder = strListenfelder & \";\" _ & Steuerelement.Name\r\n End If\r\n Next Steuerelement\r\n If Len(strListenfelder) > 0 Then\r\n strListenfelder = Mid(strListenfelder, 2, _ Len(strListenfelder) - 1)\r\n End If\r\n Me.cboListenfelder.RowSource = strListenfelder\r\n Me.SetFocus\r\n Me.cboListenfelder.SetFocus\r\nEnd Sub<\/pre>\n
Auswahl des Listenfeldes<\/h2>\n
Private Sub cmdSchriftartAuswaehlen_Click()\r\n With Me.lblBeschriftung\r\n ShowFont .FontName, .FontItalic, .FontBold, _ .FontSize, .ForeColor, .FontUnderline\r\n End With\r\nEnd Sub<\/pre>\n
Auswahl der Eigenschaften<\/h2>\n
Spezialeffekt<\/h3>\n
0;\"Flach\";1;\"Erhöht\";2;\"Vertieft\";3;\"Graviert\";4;\"Schattiert\";5;\"Unterstrichen\"<\/pre>\n
Schriftart<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic005.png\")
<\/p>\nEigenschaften des Rahmens festlegen<\/h3>\n
0;\"Haarlinie\";1;\"1\";2;\"2\";3;\"3\";4;\"4\"; 5;\"5\";6;\"6\"<\/pre>\n
Private Sub cmdRahmenfarbe_Click()\r\n Me.lblBeschriftung.BorderColor = _ FarbeAuswaehlen(Me.Hwnd, _ Me.lblBeschriftung.BorderColor)\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic006.png\")
<\/p>\nHinweis<\/h3>\n
Eigenschaften desHintergrundes festlegen<\/h3>\n
Listenfeldbeschriftungen hinzufügen<\/h3>\n
For Each fld In rst.Fields\r\n If Not Len(strSpaltenbreiten) = 0 Then\r\n If InStr(1, strSpaltenbreiten, \";\") = 0 Then\r\n intBreite = strSpaltenbreiten\r\n strSpaltenbreiten = \"\"\r\n Else\r\n intBreite = Left(strSpaltenbreiten, _ InStr(1, strSpaltenbreiten, \";\") - 1)\r\n strSpaltenbreiten = Mid(strSpaltenbreiten, InStr(1, _ strSpaltenbreiten, \";\") + 1, Len(strSpaltenbreiten) - _ InStr(1, strSpaltenbreiten, \";\"))\r\n End If\r\n strFeldname = InputBox(\"übernehmen Sie den Feldnamen oder ändern Sie \" _ & \"ihn.\", \"Listenfeldbeschrifter\", fld.Name)\r\n Set ctlBezeichnungsfeld = CreateControl(Me.cboFormular, acLabel, , , _ strFeldname, intLinks, intOben, intBreite, intHoehe)\r\n EigenschaftenAnpassen ctlBezeichnungsfeld\r\n Do While intBreite < ctlBezeichnungsfeld.Width\r\n strBezeichnung = InputBox(\"Der folgende Feldname ist zu lang.\", _ \"Listenfeldbeschrifter\", ctlBezeichnungsfeld.Caption)\r\n DeleteControl Me.cboFormular, ctlBezeichnungsfeld.Name\r\n Set ctlBezeichnungsfeld = CreateControl(Me.cboFormular, acLabel, , , _ strBezeichnung, intLinks, intOben, intBreite, intHoehe)\r\n EigenschaftenAnpassen ctlBezeichnungsfeld\r\n Loop\r\n intLinks = intLinks + intBreite\r\n End If\r\n Next fld\r\n If Not MsgBox(\"Sie können das Formular nun speichern. Möchten Sie ein \" _ & \"weiteres Listenfeld mit überschriften versehen\", vbYesNo + vbQuestion, _ \"Listenfeldbeschrifter\") = vbYes Then\r\n DoCmd.Close acForm, Me.Name\r\n Else\r\n Me.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{7B952BD1-F3DA-42DC-B798-66EC2B8D823E}\/pic007.png\")
<\/p>\nPublic Function Listenfeldbeschrifter()\r\n DoCmd.OpenForm _ \"frmListenfeldBeschriften\"\r\nEnd Function<\/pre>\n