<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Steuerelemente sind in der Regel recht individuell. Sie unterscheiden sich im Namen, in der Bezeichnung, im Aussehen und wahrscheinlich durch die für unterschiedliche Ereignisse hinterlegten Prozeduren voneinander. Daher werden sie in der Regel manuell angelegt und die Eigenschaften wie gewünscht eingestellt. Manchmal werden allerdings Steuerelemente in größeren Mengen benötigt, die sich noch dazu nur unwesentlich voneinander unterscheiden. Im vorliegenden Beitrag lernen Sie, wie Sie ein Formular oder einen Bericht schnell mit den benötigten Steuerelementen füllen, anstatt diese Aufgabe von Hand zu erledigen.<\/b><\/p>\n
Wenn Sie z. B. einmal die Musterlösung zum Thema Projektverwaltung der vorliegenden Ausgabe von „Access im Unternehmen“ betrachten, dann fallen Ihnen sicher die Mengen von Bezeichnungsfeldern ins Auge, die – unterschiedlich eingefärbt – die Dauer von Projekten und deren Phasen anzeigen (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Eine Projektverwaltung erfordert die Verwendung einiger Steuerelemente.<\/span><\/b><\/p>\n Jedes dieser Bezeichnungsfelder hat einige genau festgelegte Eigenschaften. So ist z. B. die Größe genau definiert.<\/p>\n Aus der Größe leitet sich wiederum die Position eines jeden Bezeichnungsfeldes ab, da diese genau auf einer Höhe und exakt nebeneinander liegen sollen.<\/p>\n Schon das exakte Positionieren von 28 Steuerelementen je Reihe ist eine unangenehme Arbeit. Und richtig leidig wird es, wenn Sie feststellen, dass die Bezeichnungsfelder alle etwas zu schmal sind – und Sie alle auf die neue Größe und die neue Position bringen müssen.<\/p>\n Da ja möglicherweise – wie auch in der Projektverwaltung – auf die Bezeichnungsfelder zugegriffen werden soll, um beispielsweise deren Hintergrundfarbe zu ändern, sollten Sie allen Bezeichnungsfeldern auch einen sinnvollen Namen zuweisen – z. B. lblDatum01, lblDatum02, usw.<\/p>\n Spätestens an dieser Stelle erfährt der vorliegende Bericht seine Daseinsberechtigung, denn das ständige Hin und Her zwischen dem Markieren des Steuerelements und dem ändern des Bezeichnungsfeldnamens ist sehr aufwendig.<\/p>\n Für die Erstellung eines Steuerelementes verwenden Sie – je nachdem, ob Sie das Steuerelement in einem Formular oder in einem Bericht erstellen möchten – die Funktion CreateControl oder CreateReportControl.<\/p>\n Beide Funktionen haben nahezu identische Parameter, sodass diese in einem Zug erläutert werden können. Die Syntax der Anweisung hat folgendes Aussehen:<\/p>\n Die Parameter in den eckigen Klammern sind optional und müssen nicht angegeben werden.<\/p>\n Für den Parameter Formularname übergeben Sie der Funktion den Namen des Formulars oder Berichts, z. B. „frmProjekte“. Mit Steuerelementtyp geben Sie die Art des Steuerelements an. Eine Aufstellung der möglichen Werte finden Sie in Tab. 1.<\/p>\n Als Wert für den Parameter Bereich erwartet die Funktion einen Wert wie z. B. Detailbereich (acDetail), Formular- oder Berichtskopf\/-fuß (acHeader, acFooter), Seitenkopf (acPageHeader), Seitenfuß (acPageFooter) usw. Mit diesem Wert geben Sie an, in welchem Bereich das Steuerelement erstellt werden soll.<\/p>\n Für den Parameter Hauptobjekt geben Sie den Namen eines übergeordneten Steuerelementes an. Im Falle eines Bezeichnungsfeldes können Sie hier beispielsweise den Namen eines Textfeldes angeben, an das Sie das Bezeichnungsfeld binden möchten. Wenn das Feld Daten enthält und an ein Feld der Datenherkunft gebunden werden soll, geben Sie für den Parameter Spaltenname den gewünschten Feldnamen an.<\/p>\n Schließlich fehlen noch die Position und die Größe, die mit den Parametern Links, Oben, Breite und Höhe übergeben werden.<\/p>\n Steuerelement<\/b><\/p>\n<\/td>\n Konstante<\/b><\/p>\n<\/td>\n<\/tr>\n Bezeichnungsfeld<\/p>\n<\/td>\n acLabel<\/p>\n<\/td>\n<\/tr>\n Rechteck<\/p>\n<\/td>\n acRectangle<\/p>\n<\/td>\n<\/tr>\n Linie<\/p>\n<\/td>\n acLine<\/p>\n<\/td>\n<\/tr>\n Bild<\/p>\n<\/td>\n acImage<\/p>\n<\/td>\n<\/tr>\n Befehlsschaltfläche<\/p>\n<\/td>\n acCommandButton<\/p>\n<\/td>\n<\/tr>\n Optionsfeld<\/p>\n<\/td>\n acOptionButton<\/p>\n<\/td>\n<\/tr>\n Kontrollkästchen<\/p>\n<\/td>\n acCheckBox<\/p>\n<\/td>\n<\/tr>\n Optionsgruppe<\/p>\n<\/td>\n acOptionGroup<\/p>\n<\/td>\n<\/tr>\n Gebundenes Objektfeld<\/p>\n<\/td>\n acBoundObjectFrame<\/p>\n<\/td>\n<\/tr>\n Textfeld<\/p>\n<\/td>\n acTextBox<\/p>\n<\/td>\n<\/tr>\n Listenfeld<\/p>\n<\/td>\n acListBox<\/p>\n<\/td>\n<\/tr>\n Kombinationsfeld<\/p>\n<\/td>\n acComboBox<\/p>\n<\/td>\n<\/tr>\n Unterformular<\/p>\n<\/td>\n acSubform<\/p>\n<\/td>\n<\/tr>\n Objektfeld<\/p>\n<\/td>\n acObjectFrame<\/p>\n<\/td>\n<\/tr>\n Seite<\/p>\n<\/td>\n acPage<\/p>\n<\/td>\n<\/tr>\n Seitenumbruch<\/p>\n<\/td>\n acPageBreak<\/p>\n<\/td>\n<\/tr>\n ActiveX-Steuerelement<\/p>\n<\/td>\n acCustomControl<\/p>\n<\/td>\n<\/tr>\n Umschaltfläche<\/p>\n<\/td>\n acToggleButton<\/p>\n<\/td>\n<\/tr>\n Register-Steuerelement<\/p>\n<\/td>\n acTabCtl<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Steuerelemente und deren Konstanten<\/b><\/p>\n Nachdem Sie nun den theoretischen Hintergrund haben, beginnen Sie direkt mit dem Anlegen von Steuerelementen via VBA-Prozedur. Sie lernen zunächst, wie Sie ein einfaches Textfeld anlegen, und erstellen anschließend ein an das Textfeld gebundenes Bezeichnungsfeld.<\/p>\n Nach der Theorie folgt nun die Praxis: Mit einer kleinen Prozedur legen Sie ein erstes Textfeld in einem leeren Formular an.<\/p>\n Zunächst einmal müssen Sie jedoch das Formular anlegen und es unter dem gewünschten Namen speichern – z. B. unter frmBeispiel.<\/p>\n Für die Prozedur zum Anlegen des Steuerelementes legen Sie außerdem ein neues Modul namens mdlBeispiel an.<\/p>\n Die für die Angabe von Position und Größe verwendeten Parameter erwarten Werte der Einheit Twips. 567 Twips entsprechen einem Zentimeter. Um ein besseres Gefühl für diese Einheit zu bekommen, können Sie auch Ausdrücke wie z. B. 567*2.5 verwenden. Der genannte Ausdruck entspricht einer Länge von 2,5 cm. <\/p>\n Quellcode 2<\/b><\/p>\n Die Prozedur aus Quellcode 1 erstellt ein Textfeld wie in Bild 2. Um die Prozedur auszuprobieren, rufen Sie diese im Testfenster auf. Das Testfenster aktivieren Sie mit der Tastenkombination Strg + G. Dort geben Sie einfach den Prozeduraufruf SteuerelementErstellen ein und führen ihn durch Betätigen der Eingabetaste aus.<\/p>\n <\/p>\n Falls Sie das Formular frmBeispiel derzeit nicht in der Entwurfsansicht geöffnet haben, erhal-ten Sie eine entsprechende Fehlermeldung (siehe Bild 3).<\/b><\/p>\n Um das Formular nicht jedes Mal selbst in der Entwurfsansicht öffnen zu müssen, erweitern Sie die Prozedur SteuerelementErstellen um den folgenden Befehl, den Sie über dem bereits vorhandenen Befehl platzieren:<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 2: Ein automatisiert erstelltes Textfeld<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Fehlermeldung bei fehlendem Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Die Prozedur erstellt nun ohne Murren das gewünschte Textfeld. Wenn Sie nun einmal die Prozedur betrachten, stellen Sie fest, dass der Ausdruck „frmBeispiel“ zweimal vorhanden ist.<\/p>\n Wenn Sie die Prozedur nun auf ein anderes Formular anwenden möchten, müssen Sie bereits an zwei Stellen den Formularnamen ändern.<\/p>\n Daher ziehen Sie diesen Parameter in den Prozedurkopf und übergeben ihn beim Aufruf. Die Prozedur hat nun das Aussehen wie in Quellcode 2.<\/p>\n Mit dem folgenden Aufruf erstellen Sie nun das gewünschte Textfeld:<\/p>\n Quellcode 3<\/b><\/p>\n Sie könnten jetzt sagen: Warum wird nicht z. B. auch der Steuerelementtyp in den Prozeduraufruf gezogen und eine allgemein gültige Prozedur für alle Steuerelementtypen erstellt Die Antwort ist einfach: Sicher werden in den folgenden Schritten noch weitere Parameter in den Prozeduraufruf gezogen. Aber es sollen auch noch weitere Eigenschaften mit der Prozedur eingestellt werden – und nicht alle Steuerelementtypen verfügen über die gleichen Eigenschaften. <\/p>\n Wenn Sie einmal die Eigenschaften des neu erstellten Textfeldes betrachten, fällt Ihnen wahrscheinlich der Wert der Eigenschaft Name unangenehm auf. Dort steht vermutlich etwas ähnliches wie Text4 – eventuell auch mit einer anderen Nummer.<\/p>\n Um dem Textfeld direkt den gewünschten Namen zuzuweisen, müssen Sie zunächst einmal eine Objektinstanz erstellen, der Sie das neue Textfeld zuweisen. Das Objekt deklarieren Sie mit der folgenden Anweisung:<\/p>\n Anschließend weisen Sie dem Objekt das Textfeld mit der folgenden Anweisung zu:<\/p>\n Nun können Sie den Eigenschaften des Textfeldes die gewünschten Werte hinzufügen. Den Namen ändern Sie beispielsweise mit der folgenden Anweisung:<\/p>\n Auf diese Weise können Sie alle Eigenschaften des Steuerelementes verändern.<\/p>\n Erstellen Sie als Nächstes eine weitere Prozedur, die dem Anlegen von Bezeichnungsfeldern dient (siehe Bild 3).<\/p>\n Nach dem Aufruf der Prozedur finden Sie im Beispielformular ein Bezeichnungsfeld neben dem bereits vorhandenen Textfeld vor (siehe Bild 4).<\/p>\n Wenn Sie das Textfeld einmal mit der Maus an eine andere Stelle bewegen, weicht das Bezeichnungsfeld nicht von seiner Seite – es ist genauso an das Textfeld gebunden, wie bei einem auf herkömmliche Weise erstellten Textfeld.<\/p>\n <\/b><\/p>\n Bild 4: Textfeld mit gebundenem Bezeichnungsfeld<\/span><\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Wenn Sie mehrere Textfelder nebeneinander wie z. B. wie in der Musterlösung zur Projektverwaltung erstellen möchten, müssen Sie um die bereits bestehende Prozedur zur Erstellung eines Bezeichnungsfeldes herum noch eine weitere Prozedur erstellen.<\/p>\n Diese Prozedur soll die Prozedur zur Erstellung eines Bezeichnungsfeldes so oft aufrufen, wie es die gewünschte Anzahl von Bezeichnungsfeldern erfordert.<\/p>\n Zusätzlich müssen Sie die Prozedur zur Erstellung eines Bezeichnungsfeldes natürlich noch um einige Funktionen erweitern und einige neue übergabeparameter festlegen.<\/p>\n Sie können für alle gewünschten Eigenschaften übergabeparameter festlegen, die der Prozedur mit dem Aufruf übergeben werden sollen. In Quellcode 4 finden Sie an zwei Stellen Pünktchen (…) – hier enthält die Original-Prozedur noch weitere übergabeparameter bzw. Eigenschaftszuweisungen.<\/p>\n Unabdingbar für die Erstellung mehrerer nebeneinander liegender Bezeichnungsfelder ist die übergabe des Abstandes vom linken Rand des Formulars, da dieser variiert werden muss.<\/p>\n Wenn Sie beispielsweise 28 Bezeichnungsfelder mit einer Kantenlänge von 250 Twips nebeneinander positionieren möchten, können Sie dies mit der Prozedur aus Quellcode 5 erledigen.<\/p>\n Nach der Deklaration des Laufindex i öffnet die Prozedur zunächst das gewünschte Formular in der Entwurfsansicht. Diese Anweisung wurde aus der Prozedur zur Erstellung der Bezeichnungsfelder herausgenommen, da das Formular nur einmal geöffnet werden soll.<\/p>\n Innerhalb der For…Next-Schleife wird die Prozedur zur Erstellung eines Bezeichnungsfeldes jeweils einmal mit den entsprechenden Parametern aufgerufen.<\/p>\n Dabei werden die Steuerelemente lblBeispiel01, lblBeispiel02, … , lblBeispiel28 erstellt (siehe Bild 5). Um den Abstand zum linken Rand des Formulars mit jedem neuen Steuerelement zu vergrößern, wird in den Parameter für diesen Wert der Laufindex i eingearbeitet.<\/p>\n ähnliches passiert bei dem Namen des Bezeichnungsfeldes: Der Name wird aus der Zeichenkette lblBeispiel und dem laufenden Index zusammengesetzt. Dabei wird der Index per Formatanweisung automatisch auf zwei Stellen formatiert (z. B. 01 statt 1).<\/p>\n <\/b><\/p>\n Bild 5: Einige per Prozedur erstellte Bezeichnungsfelder<\/span><\/b><\/p>\n Weitere gewünschte Eigenschaften können Sie wie die bereits vorhandenen Eigenschaften in die Prozedur BezeichnungsfeldErstellen einarbeiten. Dazu müssen Sie wie folgt vorgehen:<\/p>\n Wenn Sie die gewünschten Steuerelemente erstellt haben und Ihnen etwas daran nicht gefällt, gibt es nun keine Probleme mehr. Löschen Sie einfach die erstellten Steuerelemente, passen Sie die Prozeduren zur Erstellung der Prozeduren an und starten Sie von vorne.<\/p>\n Mit der beschriebenen Methode können Sie beliebige Steuerelemente erstellen und alle verfügbaren Eigenschaften einstellen.<\/p>\n Dazu gehören auch die Ereigniseigenschaften. Wenn Sie beispielsweise eine Ereignisprozedur angelegt haben, die etwa beim Klick auf eines der erstellten Steuerelemente ausgelöst werden soll, können Sie einfach den entsprechenden Funktionsaufruf als Wert für die Ereigniseigenschaft Beim Klicken zuweisen.<\/p>\n Die verwendeten Anweisungen können wie folgt aussehen:<\/p>\n Der übergebene Parameter könnte folgendes Aussehen haben:<\/p>\n Als Funktionsaufruf verwenden Sie z. B. den folgenden Ausdruck:<\/p>\n Etwas aufwendiger wird es, wenn Sie einen Funktionsaufruf einfügen möchten, der abhängig vom laufenden Index ist.<\/p>\n Wenn Sie beispielsweise den Namen des Bezeichnungsfeldes übergeben möchten, sähe der Parameter so aus:<\/p>\n Quellcode 6<\/b><\/p>\n Unter Umständen möchten Sie auch für jedes Bezeichnungsfeld eine eigene Ereignisprozedur anlegen. In dem Fall kommen Sie nicht mehr mit der Funktion CreateControl und der Zuweisung der Eigenschaften aus.<\/p>\n Sie müssen dazu direkt im Modul des gewünschten Formulars arbeiten. Dazu verwenden Sie die Funktion QuellcodeErstellen (s. Quellcode 6).<\/p>\n Die Funktion hat vier Parameter: Mit den Parametern Formularname und Steuerelement übergeben Sie die Namen der betroffenen Objekte.<\/p>\n Als Ereignis geben Sie den Namen des gewünschten Ereignisses an, z. B. AfterUpdate, Click, DblClick usw. Schließlich fehlt noch der einzufügende Programmcode. <\/p>\n Ein Aufruf für die Prozedur könnte beispielsweise wie folgt aussehen:<\/p>\n Die Prozedur deklariert nach dem Aufruf zunächst Objektvariablen für ein Formular- und ein Modulobjekt.<\/p>\n Die Formularobjektvariable wird auf das Formular gesetzt, dessen Namen Sie übergeben haben. Die Modulobjektvariable bezieht sich entsprechend auf das Modul des Formulars.<\/p>\n Anschließend versucht die Prozedur, mit der Funktion InsertLines den Programmcode einzufügen. Diese Funktion beginnt ab einer mit dem ersten Parameter übergebenen Zeilennummer mit dem Einfügen.<\/p>\n Diese Zeilennummer ermittelt die Funktion ProcBodyLine. Sie versucht, eine Prozedur innerhalb des Moduls zu finden, deren Prozedurname sich aus den für die Parameter Steuerelementname und Ereignis zusammensetzt – also z. B. lblBeispiel00_Click. <\/p>\n Quellcode 7<\/b><\/p>\n Falls die Funktion keine Prozedur mit dem angegebenen Namen findet, löst dies einen Fehler aus. Der Fehler wird in der Fehlerbehandlungsroutine am Ende der Prozedur abgearbeitet. Dort wird die benötigte Prozedur mit der Funktion CreateEventProc angelegt.<\/p>\n Damit Sie auch die zu den Steuerelementen gehörenden Ereignisprozeduren in einem Rutsch erstellen können, müssen Sie die Prozedur QuellcodeErstellen von der Prozedur CreateLabels aus aufrufen.<\/p>\n Dazu ändern Sie die Prozedur noch ein letztes Mal ab (s. Quellcode 7). Die Prozedur erstellt nun für jedes Bezeichnungsfeld auch noch eine Ereignisprozedur (siehe Bild 6).<\/p>\n <\/b><\/p>\n Bild 6: Das Klassenmodul des Formulars frmBeispiel<\/span><\/b><\/p>\n Wenn Sie sich viel Arbeit mit dem Layout von Formularen mit vielen Steuerelementen sparen möchten, legen Sie einfach geeignete Prozeduren zur automatisierten Erstellung der gewünschten Steuerelemente, deren Eigenschaften und Ereignisprozeduren an.<\/p>\n Das gilt natürlich vor allem, wenn das Formular viele gleichartige Steuerelemente enthält. Wenn Sie einmal die Größe oder Position zueinander ändern möchten, bedarf dies lediglich der änderung weniger Codezeilen.<\/p>\n","protected":false},"excerpt":{"rendered":" Steuerelemente sind in der Regel recht individuell. Sie unterscheiden sich im Namen, in der Bezeichnung, im Aussehen und wahrscheinlich durch die für unterschiedliche Ereignisse hinterlegten Prozeduren voneinander. Daher werden sie in der Regel manuell angelegt und die Eigenschaften wie gewünscht eingestellt. Manchmal werden allerdings Steuerelemente in größeren Mengen benötigt, die sich noch dazu nur unwesentlich voneinander unterscheiden. Im vorliegenden Beitrag lernen Sie, wie Sie ein Formular oder einen Bericht schnell mit den benötigten Steuerelementen füllen, anstatt diese Aufgabe von Hand zu erledigen.<\/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":[66022002,662002,44000023],"tags":[],"class_list":["post-55000057","post","type-post","status-publish","format-standard","hentry","category-66022002","category-662002","category-Mit_Formularen_arbeiten"],"yoast_head":"\nCreateControl(Formularname, _ Steuerelementtyp[, Bereich[, _ Hauptobjekt[, Spaltenname[, Links[, _ Oben[, Breite[, Höhe]]]]]]])<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Anlegen eines Textfeldes<\/h2>\n
Anlegen eines Formulars<\/h3>\n
Anlegen eines Moduls<\/h3>\n
Hinweis<\/h3>\n
Prozedur zum Erstellen eines Textfeldes<\/h3>\n
Public Sub TextfeldErstellen(Formularname As String)\r\n DoCmd.OpenForm Formularname, acDesign\r\n CreateControl Formularname, acTextBox, acDetail, , _ , 567 * 3, 567, 567 * 3, 567 * 0.5\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic002.png\")
<\/p>\nDoCmd.OpenForm \"frmBeispiel\", acDesign\r\nPublic Sub SteuerelementErstellen()\r\n CreateControl \"frmBeispiel\", _ acTextBox, acDetail, , , 567, _ 567, 567 * 3, 567 * 0.5\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic004.png\")
<\/p>\nTextfeldErstellen _ \"frmBeispiel\"\r\nPublic Sub BezeichnungsfeldErstellen(Formularname As String)\r\n Dim ctlBezeichnungsfeld As Control\r\n DoCmd.OpenForm Formularname, acDesign\r\n Set ctlBezeichnungsfeld = CreateControl(Formularname, acLabel, acDetail, _ \"Beispieltextfeld\", , 567, 567, 567 * 2, 567 * 0.5)\r\n ctlBezeichnungsfeld.Properties(\"Caption\") = \"Textfeld\"\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Anpassen der Eigenschaften des neuenTextfeldes<\/h3>\n
Dim ctlTextfeld As Control<\/pre>\n
Set ctlTextfeld = _ CreateControl(Formularname, _ acTextBox, acDetail, , , _ 567 * 3, 567, 567 * 3, 567 * 0.5)<\/pre>\n
ctlTextfeld.Properties(\"Name\") = _ \"Beispieltextfeld\"<\/pre>\n
Anlegen von Bezeichnungsfeldern<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic005.png\")
<\/p>\nPublic Sub ErstelleBezeichnungsfeld(Links As Integer, _ Oben As Integer, Breite As Integer, Hoehe As _ Integer, Name As String, Formular As String, _ Optional Text As String,...)\r\n Dim ctlText As Control\r\n Dim ctlBeschriftung As Control\r\n Set ctlText = CreateControl(Formular, acLabel, _ acDetail, , , Links, Oben, Breite, Hoehe)\r\n If Not IsMissing(Name) Then\r\n ctlText.Properties(\"Name\") = Name\r\n End If\r\n...\r\nEnd Sub<\/pre>\n
Public Sub CreateLabels(Formularname As String)\r\n Dim i As Integer\r\n DoCmd.OpenForm Formularname, acDesign\r\n For i = 1 To 28\r\n ErstelleBezeichnungsfeld (i-1) * 250, 250, _ 250, 250, \"lblBeispiel\" & Format(i, \"00\"), _ Formularname\r\n Next i\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic006.png\")
<\/p>\nIf IsMissing(Parametername) Then\r\n ctlText.Properties _ (\"<Eigenschaftsname>\") = _ Parametername\r\nEnd If<\/pre>\n
If IsMissing(BeimDoppelklicken) Then\r\n ctlText.Properties(\"onDblClick\") = _ BeimDoppelklicken\r\nEnd If<\/pre>\n
BeimDoppelklicken:= \"<Funktionsaufruf>\"<\/pre>\n
=Testfunktion(a,b)<\/pre>\n
BeimDoppelklicken:= _ \"=TagesberichtOeffnen(\" & Chr(34) & _ \"lblPhase\" & Format(i, \"00\") & _ Chr(34) & \")\"\r\nPublic Sub QuellcodeErstellen(Formularname As String, Steuerelementname As String, _ Ereignis As String, Programmcode As String)\r\n Dim Formular As Form\r\n Dim mdl As Module\r\n On Error GoTo Form_Open_Err\r\n Set Formular = Forms(Formularname)\r\n Set mdl = Formular.Module\r\n mdl.InsertLines mdl.ProcBodyLine(Steuerelementname & \"_\" & Ereignis, _ vbext_pk_Proc) + 1, Programmcode\r\n Exit Sub\r\nForm_Open_Err:\r\n If Err.Number = 35 Then\r\n mdl.CreateEventProc Ereignis, Steuerelementname\r\n Formular.OnCurrent = \"[Ereignisprozedur]\"\r\n Resume\r\n Else\r\n MsgBox Err.Number & vbCrLf & Err.Description\r\n End If\r\nEnd Sub<\/pre>\n
Code per VBA anpassen<\/h2>\n
QuellcodeErstellen \"frmBeispiel\", _ \"lblBeispiel00\",\"DblClick\", _ \"msgbox \" & chr(34) & _ \"Beispielmeldung\" & chr(34)<\/pre>\n
Public Sub CreateLabels(Formularname As String)\r\n Dim i As Integer\r\n DoCmd.OpenForm Formularname, acDesign\r\n For i = 0 To 27\r\n ErstelleBezeichnungsfeld i * 250, 250, 250, 250, \"lblBeispiel\" & _ Format(i, \"00\"), Formularname\r\n QuellcodeErstellen Formularname, \"lblbeispiel\" & Format(i, \"00\"), \"Click\", _ \" MsgBox \" & Chr(34) & \"Ich bin Nr.\" & i & Chr(34)\r\n Next i\r\nEnd Sub<\/pre>\n
Prozeduren vom Fließband<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FD569C7A-F478-4B68-9572-B1D184FE3AD3}\/pic007.png\")
<\/p>\n