<\/p>\n
Wie seinen Rechner, sein Auto oder das Design seiner Internetseite wird man gelegentlich auch mal das Aussehen seines Briefkopfes leid und tauscht diesen kurzerhand aus. Kurzerhand Nicht wirklich: Wenn Sie etwa mehrere Access-Anwendungen anpassen müssen, die wiederum mehrere Berichte mit Ihrem Briefkopf enthalten, wartet eine Menge Handarbeit auf Sie.<\/p>\n
Dabei geht es doch viel leichter: Erstellen Sie doch einfach einen Unterbericht mit dem Briefkopf und fügen Sie diesen in alle anderen Berichte, die einen Briefkopf benötigen, ein. Damit brauchen Sie änderungen nur noch an einer Stelle vorzunehmen. Selbst wenn Sie mehrere Anwendungen haben, die Berichte mit einem Briefkopf enthalten, ist die Aufgabe schnell erledigt, denn Sie müssen ja nur den angepassten Bericht mit dem Briefkopf in alle relevanten Access-Datenbanken kopieren.<\/p>\n
Und so funktioniert es: Legen Sie einen Bericht an und platzieren Sie darin die Elemente Ihres Briefkopfes. Entfernen Sie die Berichtskopfelemente aus einem vorhandenen Bericht. Fügen Sie dann den Bericht mit dem Briefkopf in den Zielbericht ein – das geht am einfachsten, wenn Sie den Zielbericht in der Entwurfsansicht öffnen und den einzufügenden Bericht aus dem Datenbankfenster an die gewünschte Stelle des Zielberichts ziehen.<\/p>\n
Wer keine Arbeit hat, der macht sich welche. Zum Beispiel, indem er funktionierende Codepassagen aus einer Routine in eine andere Routine kopiert. Funktioniert per Copy and Paste und liefert auch funktionell das gewünschte Ergebnis.<\/p>\n
Manchmal programmiert man auch unbewusst an zwei Stellen innerhalb des gleichen Moduls oder zumindest innerhalb der gleichen Anwendung Codezeilen, die entweder völlig identisch sind oder zumindest genau die gleiche Funktion haben. Stehen dann einmal änderungen innerhalb dieser Code-Dubletten an, hat man direkt die doppelte (oder x-fache) Arbeit: Jede änderung müssen Sie an mehreren Stellen durchführen, damit alles wieder wie gewünscht funktioniert. Dabei lassen sich solche Probleme ganz einfach lösen: „Klammern“ Sie den doppelten Code einfach aus, indem Sie ihn in einer eigenen Routine anlegen und von den ursprünglichen Routinen darauf verweisen. Im einfachsten Fall funktioniert das nach dem folgenden Schema: Nehmen wir an, dass Sie bei bestimmten Aktionen eine Reihe von Steuerelementen in einem Formular aktivieren oder deaktivieren möchten und dass a <\/b>im ganzen Modul bekannt ist:<\/p>\n Wenn Sie dies nun bei verschiedenen Gelegenheiten tun – etwa beim öffnen des Formulars, beim Anzeigen eines neuen Datensatzes oder beim Klick auf eine bestimmte Schaltfläche – haben Sie den gleichen Code an mehreren Stellen stehen. Kommt nun noch ein weiteres Steuerelement hinzu, müssen Sie den Code an mehreren Stellen anpassen. Stattdessen erstellen Sie eine neue Funktion mit einem sinnvollen Namen, etwa SteuerelementeAnpassen<\/b>.<\/p>\n Ersetzen Sie dann diese „extrahierten“ Zeilen an allen betroffenen Stellen durch einen einfachen Aufruf der neuen Routine SteuerelementeAnpassen<\/b>, etwa so:<\/p>\n Nun können Steuerelemente hinzukommen oder wegfallen, wie sie wollen, die Anpassung müssen Sie immer nur an einer Stelle vornehmen.<\/p>\n <\/p>\n Etwas komplizierter wird die Angelegenheit, wenn Variablen ins Spiel kommen. Dazu können wir wiederum die Ausgangsposition des ersten Beispiels verwenden – mit dem kleinen Unterschied, dass wir davon ausgehen, dass a <\/b>nur innerhalb der einzelnen Routinen bekannt ist.<\/p>\n Dann müsste man a<\/b> mit einem Parameter übergeben, was bei der neuen extrahierten Routine wie folgt aussähe:<\/p>\n Der Aufruf in den Ausgangsroutinen sieht dann wie folgt aus:<\/p>\n Noch komplizierter wird es, wenn die zu extrahierenden Zeilen ein Ergebnis liefern, das in den Folgezeilen weiter verwendet wird. Als Beispiel dient die folgende Routine, die nacheinander die Anführungszeichen und die Hochkommata aus einem String entfernt:<\/p>\n Die neu zu erstellende Routine muss nicht nur eine Variable in Empfang nehmen, sondern auch noch einen Wert zurückliefern:<\/p>\n Der Ersatz für die Zeilen in der Ursprungsroutine sieht dann so aus:<\/p>\n Es gibt noch eine weitere Ausbaustufe, bei der mehr als ein Wert zurückgegeben wird – diesen behandeln wir aber an anderer Stelle. Die Beispieleliefern neben der möglichen Zeitersparnis noch einen weiteren großen Vorteil: Die ursprünglichen Routinen wirken wesentlich aufgeräumter. Dadurch, dass mehrere Zeilen mit teilweise schwer lesbaren Anweisungen einfach in eine weitere Routine ausquartiert wurden und einen aussagekräftigen Namen erhielten, ist der Code in der Ausgangsroutine nun sehr viel lesbarer geworden.<\/p>\n<\/p><\/div>\n Die übergabe von Parametern von Formular zu Formular erfolgt meist auf eine der folgenden Arten:<\/p>\n Eine weitere sinnvolle Alternative ist die übergabe an eine neu definierte Variable des Formulars. Die Klassenmodule von Formularen können Sie genau wie übliche Klassenmodule mit privaten Eigenschaften versehen, die von außen über Property Let<\/b>– und Property Set<\/b>-Prozeduren gefüllt und ausgelesen werden können.<\/p>\n Im Detail legen Sie dazu im Formularmodul eines Formulars – etwa dem aus Bild 1 – zunächst eine private Variable an:<\/p>\n Damit Sie die Eigenschaft von außen füllen können, fügen Sie außerdem die folgende Property Set<\/b>-Prozedur hinzu:<\/p>\n Diese Prozedur speichert nicht nur den Wert in der dafür vorgesehenen lokalen Variablen, sondern macht auch direkt etwas damit: Und zwar versucht sie, den Datensatz mit der angegebenen Personalnummer zu finden und anzuzeigen.<\/p>\n Um den Wert von außen zu ändern und damit zu einem anderen Datensatz zu wechseln, müssen Sie nur von einer anderen Routine oder über das Direktfenster den folgenden Befehl absetzen:<\/p>\n Achtung: Diese Vorgehensweise funktioniert nicht mit modal geöffneten Formularen.<\/p>\n Bild 1: Entwurfsansicht des Beispielformulars mit einer neuen Eigenschaft<\/span><\/b><\/p>\n Wer viel mit Access entwickelt, greift immer mal wieder auf den Windows Explorer zu. Wussten Sie, dass man diesen auch in ein Access-Formular integrieren kann Und das geht so: Fügen Sie dem leeren Formular zunächst ein Webbrowser-ActiveX-Steuerelement hinzu und ändern Sie seinen Namen auf ctlWebbrowser<\/b>. Erstellen Sie außerdem ein Textfeld sowie eine Optionsgruppe wie in Bild 1 und vergeben Sie von links nach rechts die Optionswerte 1, 3, 4, 5 und 6 für die Optionen. Das Textfeld soll txtVerzeichnis<\/b>, die Optionsgruppe (also der Rahmen) ogrAnsicht <\/b>heißen.<\/p>\n Legen Sie für das Formular die Ereignisprozedur Beim Laden <\/b>an und ergänzen Sie diese wie die Prozedur Form_Load <\/b>aus Listing 1. <\/p>\n Fügen Sie auch die übrigen Prozeduren zum Modul hinzu und vergessen Sie nicht, den entsprechenden Ereigniseigenschaften den Wert [Ereignisprozedur] <\/b>zuzuweisen.<\/p>\n Fertig! Jetzt müssen Sie nur noch in die Formularansicht wechseln und den Windows Explorer im Formular einsetzen.<\/p>\n Listing 2: Schnelles Filtern mit mehreren Parametern<\/p>\n Bild 1: Der Windows Explorer im Access-Formular<\/span><\/b><\/p>\n","protected":false},"excerpt":{"rendered":" In dieser Ausgabe:Private Form_Load()\r\n If a Then\r\n Me!txt1.Enabled = True\r\n Me!txt2.Enabled = True\r\n Me!txt3.Enabled = True\r\n Else\r\n Me!txt1.Enabled = False\r\n Me!txt2.Enabled = False\r\n Me!txt3.Enabled = False\r\n End If\r\n ...\r\nEnd Sub\r\nPrivate cmdBeispiel_Click()\r\n If a Then\r\n Me!txt1.Enabled = True\r\n ...\r\nEnd Sub<\/pre>\n
Private Sub SteuerelementeAnpassen\r\n If a Then\r\n Me!txt1.Enabled = True\r\n Me!txt2.Enabled = True\r\n Me!txt3.Enabled = True\r\n Else\r\n Me!txt1.Enabled = False\r\n Me!txt2.Enabled = False\r\n Me!txt3.Enabled = False\r\n End If\r\nEnd Sub<\/pre>\n
Private Form_Load()\r\n SteuerelementeAnpassen\r\n ...\r\nEnd Sub\r\nPrivate cmdBeispiel_Click()\r\n SteuerelementeAnpassen\r\n ...\r\nEnd Sub<\/pre>\n
Private Sub SteuerelementeAnpassen(a As Boolean)\r\n If a Then\r\n Me!txt1.Enabled = True\r\n Me!txt2.Enabled = True\r\n Me!txt3.Enabled = True\r\n Else\r\n Me!txt1.Enabled = False\r\n Me!txt2.Enabled = False\r\n Me!txt3.Enabled = False\r\n End If\r\nEnd Sub<\/pre>\n
Private Form_Load()\r\n SteuerelementeAnpassen a\r\n ...\r\nEnd Sub\r\nPrivate cmdBeispiel_Click()\r\n SteuerelementeAnpassen a\r\n ...\r\nEnd Sub<\/pre>\n
Private Sub Ausgangsroutine1\r\n Dim strAlt As String\r\n Dim strNeu As String\r\n ...\r\n strNeu = Replace(strAlt, Chr(34), Chr(34) & Chr(34))\r\n strNeu = Replace(strNeu, Chr(39), Chr(39) & Chr(39))\r\n ... \r\nEnd Sub<\/pre>\n
Private Function ZeichenErsetzen(strOriginal As String) As String\r\n Dim strTemp As String\r\n strTemp = Replace(strOriginal, Chr(34), Chr(34) & Chr(34))\r\n strTemp = Replace(strTemp, Chr(39), Chr(39) & Chr(39))\r\n ZeichenErsetzen = strTemp\r\nEnd Function<\/pre>\n
Private Sub Ausgangsroutine1\r\n Dim strAlt As String\r\n Dim strNeu As String\r\n ...\r\n strNeu = ZeichenErsetzen(strAlt)\r\n ... \r\nEnd Sub<\/pre>\n
\nBenutzeroberfläche und Formulare<\/h3>\n
\n
Dim mPersonalID As Long<\/pre>\n
Public Property Let Personalnummer(lngPersonalID As Long)\r\n mPersonalID = lngPersonalID\r\n Me.Recordset.FindFirst \"PersonalID = \" _
& mPersonalID\r\nEnd Property<\/pre>\nForms!frmFormulareigenschaften.Personalnummer = 2<\/pre>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/TippsUndTricks-web-images\/pic001_opt.jpeg\")
<\/p>\nBenutzeroberfläche und Formulare<\/h3>\n
Option Compare Database\r\nOption Explicit\r\nDim WithEvents objWebbrowser As SHDocVw.WebBrowser\r\nPrivate Sub Form_Load()\r\n Set objWebbrowser = Me.ctlWebbrowser.Object\r\n objWebbrowser.Navigate CurrentProject.Path\r\n objWebbrowser.Document.currentviewmode = Me!ogrAnsicht\r\nEnd Sub\r\nPrivate Sub objWebbrowser_DocumentComplete(ByVal pDisp As Object, _
URL As Variant)\r\n If objWebbrowser.ReadyState <> READYSTATE_COMPLETE Then\r\n DoEvents\r\n End If\r\n objWebbrowser.Document.currentviewmode = Me!ogrAnsicht\r\nEnd Sub\r\nPrivate Sub Form_Resize()\r\n If Me.Form.InsideHeight - Me.Formularkopf.Height > 150 Then\r\n objWebbrowser.Height = Me.Form.InsideHeight - _
Me.Formularkopf.Height - 150\r\n End If\r\n objWebbrowser.Width = Me.Form.InsideWidth\r\nEnd Sub\r\nPrivate Sub ogrAnsicht_AfterUpdate()\r\n objWebbrowser.Document.currentviewmode = Me!ogrAnsicht\r\nEnd Sub\r\nPrivate Sub txtVerzeichnis_AfterUpdate()\r\n objWebbrowser.Navigate Me!txtVerzeichnis\r\n objWebbrowser.Document.currentviewmode = Me!ogrAnsicht\r\nEnd Sub<\/pre>\n![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/TippsUndTricks-web-images\/pic002_opt.jpeg\")
<\/p>\n
\n– Flexible Briefköpfe in Berichten
\n– Neue Eigenschaften für Formulare
\n– Doppelten Code loswerden
\n– Windows Explorer in Formulare einbauen<\/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":[662006,66062006,44000004],"tags":[],"class_list":["post-55000423","post","type-post","status-publish","format-standard","hentry","category-662006","category-66062006","category-Tipps_und_Tricks"],"yoast_head":"\n