{"id":55000307,"date":"2016-02-01T00:00:00","date_gmt":"2020-01-24T15:59:31","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=307"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Zusaetzliche_Steuerelemente_mit_MSForms","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Zusaetzliche_Steuerelemente_mit_MSForms.html","title":{"rendered":"Zusätzliche Steuerelemente mit MSForms"},"content":{"rendered":"

Zur Entwicklung von Oberflächen für Ihre Datenbanken über Formulare stellt Access an sich ausreichend Steuerelemente zur Verfügung. In manchen Fällen sind jedoch speziellere Elemente gefragt, die man sich dann umständlich aus den vorhandenen zusammenbasteln und programmieren muss. Dabei gibt Access uns die Möglichkeit, seine Oberfläche über den Schatz an ActiveX-Steuerelementen zu erweitern. Die Steuerelemente von MSForms wären dafür ein Beispiel.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1601_MSFormsCtls.accdb<\/b><\/p>\n

Die Microsoft-Forms-Bibliothek<\/h2>\n

Wer auch unter Excel<\/b> entwickelt, der wird mit der MSForms<\/b>–Bibliothek<\/b> sicher schon Bekanntschaft gemacht haben. Für die Interaktion über Dialoge setzt man dort UserForms<\/b> ein, auf denen man Steuerelemente auf ähnliche Weise unterbringen kann, wie in Access-Formularen. Für diese UserForms<\/b>, ihre Steuerelemente und Programmierung ist die MSForms-Bibliothek<\/b> zuständig. Sie besteht aus einer Sammlung von ActiveX-Steuerelementen<\/b>, die grundsätzlich mit MS Office<\/b> installiert werden. Infolgedessen müssen Sie sich über deren Vorhandensein und Installation, im Unterschied zu anderen ActiveX-Bibliotheken<\/b>, keine Gedanken machen. MSForms<\/b> kommt automatisch im Verein mit VBA, in dem es fest verankert ist.<\/p>\n

Tatsächlich aber lassen sich die Steuerelemente nicht nur auf UserForms<\/b> platzieren, sondern genauso gut auch direkt auf Access-Formularen oder -Berichten. Dazu öffnen Sie ein etwa ein Formular im Entwurfsmodul, aktivieren den Reiter Entwurf<\/b> im Ribbon, klappen dessen Steuerelementebereich über den Button rechts unten auf, und klicken auf den Eintrag ActiveX-Steuerelemente<\/b> (siehe Bild 1).<\/p>\n

\"Hinzufügen<\/a><\/p>\n

Bild 1: Hinzufügen von ActiveX-Steuerelementen zu einem Formular über den Ribboneintrag Entwurf|Steuerelemente<\/p>\n

Damit öffnet sich ein Dialog zur Auswahl eines ActiveX-Steuerelements (Bild 2). Die Elemente der MSForms-Bibliothek<\/b> beginnen alle mit dem Präfix Microsoft Forms<\/b>. Markieren Sie dann etwa die Textbox<\/b>, klicken auf OK<\/b>, und haben damit das entsprechende Control im Formular.<\/p>\n

\"Die<\/a><\/p>\n

Bild 2: Die Steuerelemente der MSForms-Bibliothek Im ActiveX-Auswahldialog<\/p>\n

Eine Ansammlung der wichtigsten MSForms-Steuerelemente finden Sie im Formular frmMSForms<\/b> der Beispieldatenbank, welches in Bild 3 im Entwurf zu sehen ist. Die Gestaltungsmöglichkeiten für die Steuerelemente sind im Vergleich zu den in Access eingebauten recht bescheiden und etwas altbacken, haben diese Elemente doch schon beinahe 20 Jahre auf dem Buckel. Wer hier keine größeren Ansprüche hat, den wird das nicht stören. Wie dem auch sei, die Eigenschaften der Elemente lassen sich über das Eigenschaftenblatt<\/b> und Format<\/b> regeln, aber auch spezieller über den Reiter Andere<\/b>.<\/p>\n

\"Wichtigste<\/a><\/p>\n

Bild 3: Wichtigste Vertreter der MSForms-Steuerelemente im Formular (Entwurf)<\/p>\n

Kleine Erläuterung am Rande: Ein ActiveX-Steuerelement in einem Access-Formular besteht immer aus zwei Teilen. Der eine ist das eigentliche ActiveX-Steuerelement, welches auch im Entwurf seine korrekte Gestalt zeigt. Es liegt jedoch nicht direkt auf dem Formular, sondern auf einem Container-Steuerelement<\/b>, welches Sie im Entwurf weder manuell hinzufügen, noch überhaupt zu Gesicht bekommen können. Im VBA-Objektkatalog ist dieses Container-Element ein Control des Typs CustomControl<\/b>. Und über die Format<\/b>-Seite des Eigenschaftenblatts können Sie dessen Formatierung einstellen. Geben Sie für die MSForms-Textbox<\/b> etwa den Spezialeffekt<\/b> Graviert<\/b> an, so wirkt sich das tatsächlich auf den Container aus. Die Eigenschaften der Textbox hingegen finden sich alle unter dem Reiter Andere<\/b>.<\/p>\n

Leider sind hier nicht alle Eigenschaften verzeichnet, die einstellbar sind. Microsoft hat im Objektmodell der MSForms<\/b> nur manche Eigenschaften als Published<\/b> deklariert. So lässt sich etwa die Schriftart der Steuerelemente nie über die Eigenschaftenseite Andere<\/b> festlegen. Das geht hier leider nur über VBA-Code. Um die Schriftgröße der MSForms-Textbox<\/b>, welche im Formular den Namen ctlTextbox<\/b> trägt, auf 10 einzustellen, verwenden Sie diese Zeile:<\/p>\n

Me!ctlTextbox.FontSize = 10<\/pre>\n
Das klappt in den meisten Fällen, jedoch nicht immer. Denn FontSize<\/b> ist eine Eigenschaft des MSForms-Steuerelements, während Me!ctlTextbox<\/b> tatsächlich auf den Container, das CustomControl<\/b> verweist.<\/p>\n
Access schleift die Eigenschaft zwar gleichsam durch, doch besser ist es, direkt auf das ActiveX-Steuerelement Bezug zu nehmen. Das ist durch die Eigenschaft Object<\/b> des CustomControls<\/b> gegeben:<\/p>\n
Me!ctlTextbox.Object.FontSize = 10<\/pre>\n
Möchten Sie hintereinander mehrere Eigenschaften per Code festlegen, so empfiehlt sich ein With<\/b>-Block:<\/p>\n
With<\/span> Me!ctlTextbox.Object\r\n     .FontName = \"Calibri\"\r\n     .FontSize = 10\r\n     .FontBold = True<\/span>\r\nEnd With<\/span><\/pre>\n
Welche Eigenschaften ein MSForms-Steuerelement beherbergt, ersehen Sie aus dem VBA-Objektkatalog. Bringen Sie diesen zur Ansicht und wählen im Kombinationsfeld oben links die Bibliothek MSForms<\/b> aus. In der Liste links navigieren Sie zur Textbox<\/b>, um auf der rechten Seite deren Methoden zu begutachten. Glücklicherweise hat Microsoft den Elementen eine Hilfedatei spendiert, die erstaunlicherweise noch immer funktioniert. Markieren Sie also eine Eigenschaft der Textbox<\/b> im Objektkatalog und drücken F1<\/b>, so öffnet sich die Hilfe dazu. Alles zu MSForms<\/b> findet sich unter dem Zweig Microsoft Forms Referenz<\/b> (Bild 4). Alternativ finden Sie eine CHM<\/b>-Hilfedatei im Explorer unter dem Pfad C:\\Program Files\\Common Files\\microsoft shared\\VBA\\VBA6\\1031\\fm20.chm<\/b>. (Der Pfad ist unter Windows 64bit<\/b> natürlich etwas anders.) Diese ist noch etwas übersichtlicher aufgebaut, als die Ausführungen in der Access-Hilfe.<\/p>\n
\"Die<\/a><\/p>\n
Bild 4: Die MSForms-Bibliothek und ihre Steuerelemente in der Access-Hilfe<\/p>\n
Das programmatische Setzen der Eigenschaften erledigen Sie am besten gleich beim öffnen des Formulars. In Listing 1 ruft die Ereignisprozedur Beim Laden<\/b> des Formulars nacheinander die Formatierungsprozeduren auf. FormatButton<\/b> etwa stellt die Schriftart ein und verabreicht der MSForms-Schaltfläche<\/b> außerdem ein Bildchen, das über die Eigenschaft Picture<\/b> gesetzt wird. Das Bild in Gestalt des Icons info.ico<\/b> befindet sich parallel im Pfad zur Datenbankdatei und kann mit LoadPicture<\/b> geladen werden. Wo das Bildchen auf dem Button angezeigt wird, lässt sich übrigens direkt über die Eigenschaftenseite Andere<\/b> unter PicturePosition<\/b> angeben. Hier existieren 13 Positionierungsmöglichkeiten. Im Entwurf kann das Aussehen des Buttons<\/b> so leider nicht kontrolliert werden, es sein denn, Sie würden etwa diese Zeile im Direktfenster von VBA absetzen, während sich das Formular im Entwurf befindet:<\/p>\n
Dim <\/span>sPath As String<\/span>\r\nPrivate Sub <\/span>Form_Load()\r\n     sPath = CurrentProject.Path\r\n     FormatButton\r\n     FormatTextbox\r\n     FormatImage\r\n     FormatToggle\r\n     FormatCheckbox\r\n     FormatListbox\r\n     FormatCombo\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>FormatButton()\r\n     With<\/span> Me!ctlCmdButton.Object\r\n         .FontName = \"Arial\"\r\n         .FontSize = 10\r\n         .FontBold = True<\/span>\r\n         Set<\/span> .Picture = LoadPicture(sPath & \"\\info.ico\")\r\n     End With<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>FormatTextbox()\r\n     With<\/span> Me!ctlTextBox.Object\r\n         .FontSize = 11\r\n         .FontName = \"Calibri\"\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Die Formatierung der einzelnen MSForms-Steuerelemente geschieht aus dem Load-Ereignis des Formulars heraus<\/p>\n
Set<\/span> Forms!frmMSForms!ctlCmtButton.Picture = _\r\n     LoadPicture(sPath & \"\\info.ico\")<\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t