<\/p>\n
In Heft 2\/2016 haben wir gezeigt, wie Sie Notizen in einer Art Endlosformular anzeigen können – und zwar nicht mit konstanter Höhe, wie im Access-Endlosformular üblich, sondern mit einer an den Inhalt angepassten Höhe. Außerdem ließen sich damit Texte im Richtext-Format eingeben! Diesmal bauen wir eine Erweiterung, mit der Sie die Notizen einem Kunden zuordnen und diese wieder abrufen können. Außerdem fügen wir noch weitere praktische Funktionen hinzu, zum Beispiel zum direkten Bearbeiten der Notiz per Doppelklick.<\/b><\/p>\nDatenmodell erweitern<\/h2>\n
In der Lösung aus dem Beitrag HTML-Liste mit Access-Daten <\/b>(www.access-im-unternehmen.de\/1029<\/b>) haben wir nur die Tabelle tblNotizen <\/b>beziehungsweise tblNotizenRichtext <\/b>verwendet, um die Notizen einzugeben (im vorliegenden Beitrag konzentrieren wir uns auf die Version mit Richtext). Nun wollen wir das Datenmodell so erweitern, dass es auch noch eine Kunden-Tabelle samt Anreden enthält. Der Tabelle tblNotizen_Richtext <\/b>fügen wir nun ein Fremdschlüsselfeld namens KundeID <\/b>hinzu, über das wir die Tabelle mit dem Primärschlüsselfeld KundeID <\/b>der Tabelle tblKunden <\/b>verknüpfen. Das Datenmodell soll danach wie in Bild 1 aussehen.<\/p>\n
![\"Angepasstes](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_001.png\")
<\/p>\n
Bild 1: Angepasstes Datenmodell mit einer Beziehung zwischen Kunden und Notizen<\/span><\/b><\/p>\n Den Entwurf der Tabelle tblNotizen_Richtext<\/b> ändern wir dazu wie in Bild 2. Hier fügen wir das Fremdschlüsselfeld KundeID <\/b>hinzu. Sie können die Beziehung über den Datentyp Nachschlagefeld <\/b>herstellen, können im Anschluss aber die Eigenschaft Steuer-element anzeigen <\/b>unter Nachschlagen <\/b>auf Textfeld einstellen – das Feld KundeID<\/b> wird nicht in Zusammenhang mit der Notiz angezeigt werden, somit brauchen wir über das Nachschlagefeld auch nicht die Vorbereitung für das Anlegen von Kombinationsfeldern mit den gleichen Eigenschaften vorzubereiten.<\/p>\n Bild 2: Tabelle tblNotizen mit Fremdschlüsselfeld<\/span><\/b><\/p>\n Als Nächstes bauen wir ein Formular als kombinierte Kundenübersicht\/Detailansicht. Dazu fügen wir dem neuen Formular namens frmKunden <\/b>im oberen Bereich ein Listenfeld hinzu, das die folgende Abfrage als Datenherkunft verwendet:<\/p>\n Damit das Listenfeld nur den Nachnamen und den Vornamen des Kunden anzeigt und nicht den Primärschlüsselwert, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. Das Formular soll die Auswahl des Kunden über das Listenfeld ermöglichen und dann die Daten des Kunden als gebundene Steuer-elemente im Formular anzeigen. Dadurch benötigen wir die üblichen Formularelemente zur Navigation in den Datensätzen des Formulars nicht und stellen die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>ein. Danach binden Sie das Formular an eine Abfrage auf Basis der tblKunden<\/b>, die alle Felder der Tabelle enthält, die Datensätze aber zuerst nach dem Nachnamen und dann nach dem Vornamen sortiert (s. Bild 3).<\/p>\n Bild 3: Datenherkunft des Kunden-Formulars<\/span><\/b><\/p>\n Anschließend ziehen die relevanten Felder wie in Bild 4 aus der Feldliste in den Detailbereich des Formularentwurfs. Damit das Formular den jeweils im Listenfeld markierten Datensatz anzeigt, sind ein paar Zeilen Code notwendig. Da wir sowohl für das Listenfeld als auch für das Formular eine Datenherkunft beziehungsweise Datensatzherkunft verwenden, welche die gleichen Datensätze nach identischer Sortierung liefert, entspricht der im Formular angezeigte Datensatz automatisch dem zuerst angezeigten Datensatz im Listenfeld. Diesen wollen wir zur Verdeutlichung auch gleich noch markieren. Dazu hinterlegen Sie für das Ereignis Beim Laden <\/b>des Formulars die folgende Ereignisprozedur:<\/p>\n Bild 4: Entwurf des Kunden-Formulars<\/span><\/b><\/p>\n Die einzige Anweisung dieser Prozedur markiert den ersten Eintrag des Listenfeldes. Danach fügen wir noch eine Prozedur hinzu, die durch das ändern der Auswahl der im Listenfeld angezeigten Einträge ausgelöst wird:<\/p>\n Dies stellt den Inhalt des Formulars auf den aktuell im Listenfeld markierten Eintrag ein.<\/p>\n Schließlich fügen Sie noch eine Schaltfläche namens cmdNotizenAnzeigen <\/b>zum Formular hinzu. Bevor wir die Ereignisprozedur für die Beim Klicken<\/b>-Eigenschaft dieser Schaltfläche definieren, wollen wir zunächst das Formular zur Anzeige der Notizen anpassen.<\/p>\n Bei der Anpassung dieses Formulars setzen wir auf dem Formular frmNotizenMitDetailFormular_Rechtext <\/b>auf, das wir in dem oben angegebenen Beitrag erstellt haben. Wir benennen es der Einfachheit halber allerdings in frmNotizen_Richtext <\/b>um.<\/p>\n Der HTML-Code für die Darstellung der Notizen in dem Webbrowser-Steuerelement aus Bild 5 befindet sich in der Prozedur DatenAnzeigen <\/b>im Klassenmodul des Formulars. Hier füllen wir eine Recordset-Variable mit den anzuzeigenden Daten, derzeit mit der folgenden Abfrage:<\/p>\n Bild 5: Entwurf des Formulars zur Anzeige der Notizen zu einem Kunden<\/span><\/b><\/p>\n Diese Abfrage lädt aktuell alle Notizen und stellt diese zu einem HTML-Dokument zusammen, das dann im Webbrowser-Steuerelement angezeigt wird. Diese Abfrage müssen wir nun so modifizieren, dass nicht mehr alle Datensätze der Tabelle tblNotizen_Richtext<\/b>, sondern nur noch die zu dem jeweiligen Kunden angezeigt werden, für den das Formular geöffnet wurde.<\/p>\n Die Anpassung der Zeile mit der Abfrage ist theoretisch leicht – wir müssen ja nur eine WHERE<\/b>-Bedingung in der Form WHERE KundeID = Dies übergibt den aktuellen Wert des Feldes KundeID<\/b> an das aufgerufene Formular und kann dort über die Eigenschaft OpenArgs <\/b>abgerufen werden. Das heißt, dass wir die oben erwähnte Zeile zum Initialisieren des Recordsets wie folgt ändern müssen:<\/p>\n Zeigen wir das Formular frmKunden <\/b>nun an und klicken für einen beliebigen Kunden auf die Schaltfläche cmdNotizenAnzeigen<\/b>, erscheint das Notiz-Formular wie in Bild 6. Natürlich sind noch für keinen Kunden Notizen vorhanden, denn wir haben ja noch keine angelegt. Die Anzeige des Notizen-Formulars für einen Kunden ohne Notizen sieht allerdings nicht so schön aus – da müssen wir später nachbessern.<\/p>\n <\/p>\n Bild 6: Anzeigen der Notizen zu einem Kunden<\/span><\/b><\/p>\n Zunächst wollen wir aber einmal eine neue Notiz anlegen. Dies haben wir in der Lösung, auf der dieser Beitrag aufbaut, mit dem Formular frmNotizDetail_Richtext <\/b>erledigt, das wir mit der folgenden Prozedur aufgerufen haben:<\/p>\n Diese Prozedur zeigt das Formular frmNotizDetail_Richtext <\/b>an. Nach der Eingabe wird die Routine DatenAnzeigen <\/b>aufgerufen, welche die HTML-Liste mit den Notizen aktualisieren soll. Wenn wir uns jedoch die DoCmd.OpenForm<\/b>-Methode ansehen, wird schnell klar, dass hier etwas fehlt: Der Primärschlüsselwert für den aktuellen Kunden wird hier nämlich übergeben. Dadurch können wir im aufgerufenen Formular natürlich auf keinen Fall eine Notiz im Kontext des gewünschten Kunden anlegen. Also ändern wir den Aufruf wie folgt:<\/p>\n Wir geben also das vom ersten Formular weitergegebene öffnungsargument gleich noch an das nächste Formular weiter. Dort müssen wir es natürlich adäquat verarbeiten. <\/p>\n Die Tabelle tblNotizen_Richtext <\/b>haben wir ja mit dem Feld KundeID <\/b>ausgestattet, damit wir zu jeder Notiz speichern können, zu welchem Kunden diese gehört. Diesen Wert müssen wir beim Anlegen einer neuen Notiz natürlich auch füllen. Dazu ziehen wir zunächst das Feld KundeID <\/b>aus der Feldliste in den Entwurf des Formulars (s. Bild 7). Sie können das Feld ruhig an beliebiger Stelle positionieren, denn wir benötigen es nur, um den Standardwert festzulegen – der Benutzer braucht dieses Feld später nicht zu sehen. Zu Testzwecken lassen wir es jedoch zunächst noch eingeblendet.<\/p>\n Bild 7: Entwurf des Formulars frmNotizDetail_Richtext<\/span><\/b><\/p>\n Damit beim Neuanlegen einer Notiz tatsächlich der richtige Kunde gespeichert wird, müssen wir den Wert des übergebenen öffnungsarguments auch hier auswerten und einsetzen. Dies erledigen wir mit der Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird und die wir wie folgt füllen:<\/p>\n Hier stellen wir den Standardwert des Feldes KundeID <\/b>auf den Wert des öffnungsarguments ein und legen als Anlegedatum das aktuelle Datum und die aktuelle Uhrzeit fest. Der erste Test zeigt, dass der Wert des Feldes KundeID <\/b>wie gewünscht übergeben wird. Dass dies gelingt, zeigt der Test mit dem Ergebnis aus Bild 8. Damit können Sie die Eigenschaft Sichtbar <\/b>des Textfeldes KundeID <\/b>auf den Wert Nein <\/b>einstellen und dieses somit ausblenden.<\/p>\n Bild 8: Test zur übergabe der Kunden-ID<\/span><\/b><\/p>\n Nach dem Schließen des Formulars frmNotizdetail_Richtext <\/b>sollte die neue Notiz auch im Formular frmNotizen_Richtext<\/b> erscheinen, was der Fall ist (s. Bild 9). Hier fällt auf, dass bei Vorhandensein einer sehr kurzen Notiz nicht die komplette Breite des Webbrowser-Steuerelements genutzt wird. Auch dies ist eine Optimierung wert.<\/p>\n Bild 9: Anzeige der neuen Notiz im Kontext des Kunden<\/span><\/b><\/p>\n Damit können wir uns nun bereits der Optimierung der Anzeige des Webbrowser-Steuerelements beim Fehlen jeglicher Notizen zu einem Kunden zuwenden. Interessant wäre es beispielsweise, unter den Spaltenköpfen nur einen Text mit einem Hinweis auf das Fehlen von Notizen unterzubringen. Hier können wir uns auch gleich darum kümmern, die Spalten so auf das Webbrowser-Steuerelement aufzuteilen, dass diese den kompletten Platz einnehmen, wobei die Spalten Datum<\/b>, Bearbeiten <\/b>und Löschen <\/b>fix sein sollten und die Spalte Notiz <\/b>den übrigen Platz einnimmt.<\/p>\n Um die Spaltenbreiten immer optimal darzustellen, soll die erste Spalte die Breite 140px <\/b>aufweisen, die dritte und vierte jeweils 20px <\/b>und die zweite Spalte soll den übrigen Platz einnehmen. Diese Formatierung soll gleich von den Spaltenüberschriften ausgehen, also passen wir zunächst die Prozedur FormatHeader <\/b>an, welche die überschriften formatiert. In der bisherigen Version konnten wir dort noch nicht die gewünschte Breite übergeben. Das ändern wir nun, indem wir die Prozedur FormatHeader <\/b>wie in Listing 1 anpassen. Die wesentlichen änderungen sind der zweite optionale Parameter strWidth <\/b>sowie die If…Then<\/b>-Bedingung innerhalb des With<\/b>-Blocks, welche prüft, ob strWidth <\/b>einen Wert enthält und diesen dann der Eigenschaft Width <\/b>zuweist.<\/p>\n Listing 1: Anpassung der Prozedur zum Formatieren der Spaltenüberschriften<\/span><\/b><\/p>\n In der Prozedur DatenAnzeigen<\/b> ändern wir entsprechend die Anweisungen, welche die Spaltenköpfe hinzufügen. Der Ausschnitt aus Listing 2 enthält alle änderungen. Zunächst wird die Breite des Table<\/b>-Objekts aus objTable <\/b>mit der Eigenschaft Style.Width <\/b>auf 100% <\/b>eingestellt. So nimmt die Tabelle immer die komplette Breite ein. Dann passen wir die Aufrufe der Prozedur Format-Header <\/b>so an, dass für den optionalen Parameter der ersten Spalte der Wert 140px <\/b>und für die dritte und vierte Spalte der Wert 20px <\/b>übergeben wird.<\/p>\n Listing 2: Anpassen der Prozedur DatenAnzeigen<\/span><\/b><\/p>\n Schließlich kümmern wir uns auch noch um die Anzeigen eines entsprechenden Textes, wenn das Formular einmal für einen Kunden geöffnet wird, für den noch keine Notizen hinterlegt wurden. Dazu fügen wir eine neue If…Then…Else<\/b>-Bedingung hinzu, wobei wir die Do While<\/b>-Schleife erstmal komplett in den Else<\/b>-Teil verschieben. Im If<\/b>-Teil prüfen wir, ob das Recordset mit den Notizen überhaupt einen Eintrag für den aktuellen Kunden enthält. Falls nicht, fügen wir der Tabelle mit objTable.insertRow <\/b>eine neue Zeile mit einer neuen Zelle hinzu, welche sich über alle vier Spalten erstrecken soll und den Text Es sind noch keine Notizen vorhanden.<\/b> anzeigt (s. Bild 10).<\/p>\n Bild 10: Korrekte Spaltenausrichtung und Information über fehlende Notizen<\/span><\/b><\/p>\n Wie uns aufgefallen ist, funktionieren das Löschen und das Bearbeiten einer Notiz über die beiden Schaltflächen in der HTML-Tabelle nach unseren ersten änderungen für den Aufruf des Formulars frmNotizDetail_Richtext <\/b>nicht mehr richtig, auch der Doppelklick auf die Notiz sorgt noch nicht für die Anzeige der Detaildaten zu dieser Notiz. Um diese Probleme kümmern wir uns nun noch. Die Funktionen zum Bearbeiten und Löschen werden beide durch die Ereignisprozedur Img_OnClick <\/b>abgearbeitet. Schauen wir uns zunächst den Case<\/b>-Zweig für den mit dem Parameter strFunction <\/b>gelieferten Wert edit <\/b>an (s. Listing 3). Hier war vorher schlicht die Tabelle tblNotizen <\/b>statt tblNotizen_Richtext <\/b>angegeben, also wurde versucht, in der falschen Tabelle zu löschen. Das können wir durch einfaches Anpassen der Zieltabelle des Löschvorgangs korrigieren.<\/p>\n Listing 3: Wieder herstellen der Funktionen zum Bearbeiten und Löschen einer Notiz über die HTML-Schaltflächenicons<\/span><\/b><\/p>\n Die gleiche Prozedur ruft das Formular frmNotizDetail_Richtext <\/b>auf, wenn der Benutzer auf die Bearbeiten-Schaltfläche klickt. Der Fehler geschieht allerdings erst in der Prozedur Form_Load <\/b>des Formulars frmNotizDetail_Richtext <\/b>auf, wo diese versucht, auf das öffnungsargument zuzugreifen, welches aber in der alten Version gar nicht mitgeliefert wird:<\/p>\n Dies korrigieren wir, indem wir in dieser Prozedur prüfen, ob ein öffnungsargument übergeben wurde, und dieses nur im gegebenen Fall als Standardwert für das Feld KundeID <\/b>setzen:<\/p>\n Mit dieser änderung erschlagen wir auch gleich den Fehler, der auftritt, wenn wir versuchen, die Notiz per Doppelklick auf den gewünschten Eintrag in der HTML-Liste der Notizen zu öffnen.<\/p>\n Wir haben noch kleine Optimierungen am Code der Lösung aus dem eingangs erwähnten Beitrag vorgenommen. Wenn das Anlagedatum oder der Inhalt einer Notiz in der Tabelle tblNotizen_Richtext <\/b>den Wert Null <\/b>enthielten, löste dies in der Prozedur DatenAnzeigen <\/b>Fehler aus. Dies haben wir durch Einfügen der Funktion Nz <\/b>für die betroffenen Ausdrücke ausgeschlossen:<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_002.png\")
<\/p>\nKundenformular<\/h2>\n
SELECT tblKunden.KundeID, [Nachname] & \", \" & [Vorname] AS Kunde FROM tblKunden ORDER BY [Nachname] & \", \" & [Vorname];<\/pre>\n
![\"Datenherkunft](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_003.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_004.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!lstKunden = Me!lstKunden.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lstKunden_AfterUpdate()\r\n Me.Recordset.FindFirst \"KundeID = \" & Me!lstKunden\r\nEnd Sub<\/span><\/pre>\nfrmNotizen_Richtext anpassen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_005.png\")
<\/p>\nPrivate Sub <\/span>DatenAnzeigen()\r\n ...\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblNotizen_Richtext\", dbOpenDynaset)\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNotizenAnzeigen_Click()\r\n DoCmd.OpenForm \"frmNotizen_Richtext\", WindowMode:=acDialog, OpenArgs:=Me!KundeID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>DatenAnzeigen()\r\n ...\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblNotizen_Richtext WHERE KundeID = \" & Me.OpenArgs, dbOpenDynaset)\r\n ...\r\nEnd Sub<\/span><\/pre>\nErster Test des Notizformulars<\/h2>\n
![\"Anzeigen](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_006.png\")
<\/p>\nNeue Notiz anlegen<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n DoCmd.OpenForm \"frmNotizDetail_Richtext\", DataMode:=acFormAdd, WindowMode:=acDialog\r\n DatenAnzeigen\r\nEnd Sub<\/span><\/pre>\nDoCmd.OpenForm \"frmNotizDetail_Richtext\", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=Me.OpenArgs<\/pre>\n
Kunde beim Anlegen einer neuen Notiz berücksichtigen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_007.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!KundeID.DefaultValue = Me.OpenArgs\r\n Me!AngelegtAm = Now\r\nEnd Sub<\/span><\/pre>\n![\"Test](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_008.png\")
<\/p>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_009.png\")
<\/p>\nAnzeige des leeren Notizfensters optimieren<\/h2>\n
Spaltenbreiten optimieren<\/h2>\n
Private Sub <\/span>FormatHeader(objCell As <\/span>HTMLTableCell, Optional<\/span> _\r\n strWidth As String<\/span> = \"\", Optional<\/span> strInnerText As String<\/span>)\r\n With<\/span> objCell.Style\r\n .BorderColor = \"#999999\"\r\n .backgroundColor = \"#CCCCCC\"\r\n .BorderWidth = \"1px\"\r\n .BorderStyle = \"solid\"\r\n .TextAlign = \"center\"\r\n .FontSize = \"9pt\"\r\n .verticalAlign = \"top\"\r\n .fontFamily = \"Calibri\"\r\n .FontWeight = \"bold\"\r\n .padding = \"5,5,5,5\"\r\n If <\/span>Len<\/span>(strWidth) > 0 Then<\/span>\r\n .Width = strWidth\r\n End If<\/span>\r\n End With<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strInnerText) = 0 Then<\/span>\r\n objCell.innerText = strInnerText\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>DatenAnzeigen()\r\n ...\r\n Set<\/span> objTable = objDocument.createElement(\"Table\")\r\n objTable.Style.Width = \"100%\"\r\n objDocument.body.appendChild objTable\r\n objTable.Style.borderCollapse = \"collapse\"\r\n Set<\/span> objRow = objTable.insertRow\r\n FormatHeader objRow.insertCell, \"140px\", \"Datum:\"\r\n FormatHeader objRow.insertCell, \"\", \"Notiz:\"\r\n FormatHeader objRow.insertCell, \"20px\"\r\n FormatHeader objRow.insertCell, \"20px\"\r\n If <\/span>rst.EOF Then<\/span>\r\n Set<\/span> objRow = objTable.insertRow\r\n Set<\/span> objCell = objRow.insertCell\r\n objCell.colSpan = \"4\"\r\n FormatCell objCell, , , \"Es sind noch keine Notizen vorhanden.\"\r\n Else<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n ...\r\n Loop<\/span>\r\n End If<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\n![\"Korrekte](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_010.png\")
<\/p>\nNotiz löschen klappt nicht<\/h2>\n
Public Sub <\/span>Img_OnClick(lngID As Long<\/span>, strFunction As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Select Case strFunction\r\n Case <\/span>\"edit\"\r\n DoCmd.OpenForm \"frmNotizDetail_Richtext\", WhereCondition:=\"NotizID = \" & lngID, WindowMode:=acDialog\r\n DatenAnzeigen\r\n Case <\/span>\"delete\"\r\n If MsgBox<\/span>(\"Möchten Sie die Notiz mit der ID ''''\" & lngID & \"'''' löschen\", vbOKCancel + vbCr<\/span>itical, _\r\n \"Notiz löschen\") = vbOK Then\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblNotizen_Richtext WHERE NotizID = \" & lngID, dbFailOnError\r\n DatenAnzeigen\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nBearbeiten per Klick löst Fehler aus<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Me!KundeID.DefaultValue = Me.OpenArgs\r\n Me!AngelegtAm = Now\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n Me!KundeID.DefaultValue = Me.OpenArgs\r\n End If<\/span>\r\n Me!AngelegtAm = Now\r\nEnd Sub<\/span><\/pre>\nKleinere änderungen<\/h2>\n
Private Sub <\/span>DatenAnzeigen()\r\n ...\r\n FormatCell objCell, strBackgroundColor, strBorderColor, Nz(rst!AngelegtAm)\r\n ...\r\n FormatCell objCell, strBackgroundColor, strBorderColor, Nz(rst!Notiz)\r\n ...\r\nEnd Sub<\/span><\/pre>\nfrmNotizen_Richtext vergrößern<\/h2>\n
![\"Im](\"..\/fileadmin\/_temp_\/2017_05\/pic_1103_011.png\")
<\/p>\n