<\/p>\n
Wollten Sie schon immer mal einen Seitenfuß nur auf der letzten Berichtsseite anzeigen Oder dem Benutzer die Möglichkeit geben, Steuerelemente auf Formularen einfach per Tastenkombination zu betätigen Und kennen Sie schon den Trick, wie Sie ein Bezeichnungsfeld über die Entwurfsansicht von Formularen an ein anderes Steuerelement anhängen können Und vielleicht interessiert Sie auch, wie das per VBA geschieht Und wie funktioniert überhaupt die Z-Reihenfolge von Steuerelementen und warum scheint diese manchmal zu spinnen Nun, irgendeiner dieser oder der anderen in diesem Beitrag enthaltenen Tricks wird Sie schon begeistern. Lesen Sie einfach weiter!<\/b><\/p>\n
Seitenfuß nur auf letzter Seite<\/p>\n
Der große Unterschied zwischen dem Seitenfuß und dem Berichtsfuß in der Seitenansicht von Berichten ist, dass der Seitenfuß immer ganz unten landet und der Berichtsfuß direkt hinter den letzten Detail- oder Gruppenfußbereichen.<\/p>\n
Wer im Fuß der letzten Seite Informationen unterbringen möchte, und nur dort, der wird um den Einsatz des Seitenfuß-Bereichs also nicht herumkommen.<\/p>\n
Es gibt mehrere Varianten, dafür zu sorgen, dass bestimmte Informationen des Seitenfußbereichs nur auf der letzten Seite angezeigt werden. Welche Sie wählen, hängt davon ab, ob der Seitenfußbereich auch auf den anderen Seiten Informationen anzeigen soll.<\/p>\n
Ist dies nicht der Fall, verwenden Sie eine Lösung, bei der Sie den Seitenfuß einfach auf allen Seiten außer auf der letzten Seite ausblenden.<\/p>\n
Generell blenden Sie einen Bereich ganz einfach aus, indem Sie eine Ereignisprozedur für die Ereigniseigenschaft Beim Formatieren <\/b>anlegen und dort den Parameter Cancel <\/b>auf False <\/b>einstellen – so bleibt der Seitenfuß unsichtbar:<\/p>\n Dieses Ereignis wird für jeden Seitenfußbereich einmal aufgerufen, also auch für jede Seite einmal. Aktuell wird der Seitenfuß aber auf jeder Seite ausgeblendet, auch auf der letzten. Sie müssen also noch herausfinden, ob das Ereignis für den Seitenfuß der letzten oder einer anderen Seite ausgelöst wird. Dazu legen Sie zunächst ein einfaches Textfeld mit der Bezeichnung txtSeiten <\/b>und dem Steuerelementinhalt =Pages <\/b>an.<\/p>\n Dieses Steuerelement zeigt nun im Seitenfuß jeweils die Gesamtseitenzahl des Berichts an. Damit lässt sich etwas anfangen, denn diese Information erhalten Sie auch via VBA – genauso wie die Nummer der aktuellen Seite.<\/p>\n Sie brauchen also nur noch zu prüfen, ob die aktuelle Seite der Seitenzahl entspricht, und genau dann den Fußbereich einzublenden. Und das geht so:<\/p>\n Sie mögen nun berechtigterweise fragen, warum wir ein Textfeld namens txtSeiten <\/b>anlegen, um die Seitenzahl anzuzeigen, wenn wir doch per VBA die Seitenzahl ermitteln Ganz einfach: Pages <\/b>liefert nur dann die richtige Seitenzahl, wenn diese zuvor berechnet wurde – und das geschieht nur durch das Hinzufügen eines Steuerelements mit dem Steuerelementinhalt =Pages<\/b>. Anderenfalls liefert Me.Pages <\/b>immer den Wert 0<\/b>.<\/p>\n Wenn Sie den Seitenfuß auch auf den übrigen Seiten verwenden möchten, um Informationen wie etwa die Seitenzahl anzuzeigen, und nur auf der letzten Seite sollen weitere Informationen erscheinen, haben Sie noch leichteres Spiel: Sie brauchen dann nur die Sichtbarkeit der entsprechenden Steuerelemente über die oben genannte Bedingung einzustellen, also etwa so:<\/p>\n Steuerelemente direkt per Tastatur ansprechen<\/b><\/p>\n Vielleicht haben Sie dies schon einmal bei anderen Anwendungen gesehen und sich gefragt, wie Sie das auch in Access-Formularen hinbekommen: Da findet man Schaltflächen und ähnliche Steuerelemente, bei denen ein bestimmter Buchstabe unterstrichen ist.<\/p>\n Wenn Sie den Buchstaben dann bei gedrückter Alt<\/b>-Taste drücken, aktiviert oder betätigt Access das betroffene Steuerelement.<\/p>\n Bei einer Schaltfläche ist dies ganz einfach: Hier brauchen Sie nur die Beschriftung anzupassen, indem Sie vor das Zeichen, das unterstrichen dargestellt werden soll, ein Kaufmanns-Und (&) setzen – schon können Sie diese Schaltfläche per Tastatur steuern (siehe Bild 1).<\/p>\n Bild 1: Verschiedene Beispiele für Steuerelemente, die Sie per Tastenkombination ausführen oder aktivieren können<\/span><\/b><\/p>\n Bei Beschriftungsfeldern von Steuerelementen gelingt dies ebenso schnell. Sie müssen nur beachten, dass Sie nicht das eigentliche Steuerelement, sondern das Beschriftungsfeld anpassen.<\/p>\n Dies aktiviert jeweils das mit dem Bezeichnungsfeld verknüpfte Steuerelement. Aufpassen müssen Sie, wenn Sie das Bezeichnungsfeld etwa eines Textfelds einmal ausgeschnitten und woanders eingefügt haben, um beispielsweise Spaltenüberschriften in einem Endlosformular zu erzeugen.<\/p>\n Dann sind Bezeichnungsfeld und Textfeld nicht mehr miteinander verknüpft und das Ausführen der Tastenkombination führt nicht mehr zum Erfolg. Das Bezeichnungsfeld verfügt dann aber über ein eigenes Beim Klicken<\/b>-Ereignis, das Sie mit einer entsprechenden Ereignisprozedur füllen könnten, das wiederum das betroffene Steuerelement aktiviert.<\/p>\n Leider funktioniert dies aber in der Praxis nicht: Zwar führt ein Klick auf ein so ausgestattetes Bezeichnungsfeld tatsächlich zum Aktivieren des Steuerelements, aber die Tastenkombination hilft nicht weiter.<\/p>\n Die Beispiele zu diesem Tipp finden Sie im Formular frmSteuerelementPerTastatur<\/b> der Beispieldatenbank.<\/p>\n Gebundene und ungebundene Bezeichnungsfelder<\/p>\n Es gibt nur eine Art von Bezeichnungsfeldern. Oder etwa doch nicht Wenn wir die Bezeichnungsfelder, die automatisch mit anderen Steuerelementen wie Text-, Kombinations- oder Listenfeldern zum Formular hinzugefügt werden, mit denen vergleichen, die als eigenes Steuerelement im Formular oder Bericht landen, stellen wir zumindest einen großen Unterschied fest: Die allein stehenden Bezeichnungsfelder verfügen über fünf Ereigniseigenschaften, mit denen Sie beispielsweise einen Mausklick auf ein Bezeichnungsfeld abfangen können. Die gebundenen Bezeichnungsfelder besitzen gar keine Ereigniseigenschaften.<\/p>\n Desweiteren fehlen bei den gebundenen Bezeichnungsfeldern die beiden Eigenschaften Hyperlink-Adresse <\/b>und Hyperlink-Unteradresse<\/b>, und eine Kontextmenüleiste lässt sich auch nur bei ungebundenen Bezeichnungsfeldern über die gleichnamige Eigenschaft einstellen.<\/p>\n Dafür lassen sich gebundene Bezeichnungsfelder zusammen mit dem jeweiligen Steuerelement verschieben.<\/p>\n Wenn Sie einem gebundenen Bezeichnungsfeld eine Ereignisprozedur zuweisen möchten oder die übrigen beim gebundenen Bezeichnungsfeld fehlenden Eigenschaften nutzen möchten, erreichen Sie dies nur, wenn Sie die Bindung zwischen Bezeichnungsfeld und Steuerelement aufheben. Dies ist natürlich auch unbedingt nötig, wenn Sie das Bezeichnungsfeld als Spaltenüberschrift im Formularkopf und die eigentlichen Steuerelemente in der Endlosansicht im Detailbereich anzeigen möchten.<\/p>\n Wie aber heben Sie die Bindung auf Ganz einfach: Sie schneiden das Bezeichnungsfeld mit Strg + X <\/b>oder dem entsprechenden Kontextmenübefehl aus und fügen es im gewünschten Bereich mit Strg + V <\/b>wieder ein. <\/p>\n Die Beziehung zwischen Bezeichnungsfeld und dem zu beschriftenden Steuerelement können Sie nur wieder herstellen, wenn Sie das Bezeichnungsfeld erneut ausschneiden, das Zielsteuerelement markieren und das Bezeichnungsfeld dann einfügen.<\/p>\n Steuerelemente mit und ohne Bezeichnungsfelder<\/b><\/p>\n Wenn Sie ein Steuerelement wie ein Textfeld in ein Formular einfügen, fügt Access immer automatisch ein Bezeichnungsfeld hinzu. Wirklich immer Nein, Sie können diese Funktion auch deaktivieren.<\/p>\n Dazu öffnen Sie ein Formular in der Entwurfsansicht und klicken auf ein Steuerelement der Symbolleiste mit den Steuerelementen (Toolbox), zum Beispiel ein Textfeld. Fügen Sie das Textfeld aber noch nicht in das Formular ein!<\/p>\n Das Eigenschaftsfenster zeigt nun wie üblich die Eigenschaften des Steuerelements an. Aber auch nur anscheinend, denn es enthält auch einige Eigenschaften, die ein bereits angelegtes Textfeld-Steuerelement nicht aufweist.<\/p>\n <\/p>\n Dazu gehört die Eigenschaft Mit Bezeichnungsfeld <\/b>aus Bild 2. Wenn Sie diese Eigenschaft auf den Wert Nein <\/b>einstellen und die Einstellung mit Strg + S <\/b>speichern, wird Access innerhalb dieses Formulars fortan nur noch Textfelder ohne Bezeichnungsfelder einfügen – aber nur für dieses Formular, nicht für andere.<\/p>\n Bild 2: Diese Eigenschaft legt fest, ob Steuerelemente mit oder ohne Bezeichnungsfeld ins Formular eingefügt werden.<\/span><\/b><\/p>\n Beschriftungsfelder mit und ohne Doppelpunkt<\/b><\/p>\n Wenn Sie Felder aus der Datenherkunft eines Formulars in seinen Entwurf ziehen, fügt Access normalerweise ein Bezeichnungsfeld hinzu, das den Namen des Felds enthält. Falls Sie im Tabellenentwurf eine Beschriftung für das Tabellenfeld eingetragen haben, erscheint dieses statt des Feldnamens. Ist Ihnen schon aufgefallen, dass Access immer automatisch einen Doppelpunkt hinter den Texten frisch eingefügter Bezeichnungsfelder platziert<\/p>\n Falls ja, interessiert es Sie ja möglicherweise, wie Sie diese Hilfestellung von Access deaktivieren können. Wenn Sie den vorherigen Tipp gelesen haben, waren Sie schon nah dran: Die benötigte Eigenschaft namens Mit Doppelpunkt <\/b>erscheint nur, wenn Sie ein Formular oder einen Bericht in der Entwurfsansicht öffnen und das Steuerelement, dessen Bezeichnungsfeld Sie anpassen möchten, in der Symbolleiste Toolbox <\/b>markieren – ganz so, als ob Sie dieses Steuerelement gleich ins Formular einfügen möchten. Die Einstellung können Sie zusammen mit dem Formular speichern, sie wirkt sich nicht auf andere Formulare aus.<\/p>\n Beschriftungsfelder und Steuerelemente per VBA trennen und wieder zusammenführen<\/b><\/p>\n Weiter oben haben Sie gelesen, wie Sie die zusammen mit Steuerelementen wie etwa Textfeldern zu Formularen oder Berichten hinzugefügten und an das jeweilige Steuerelement gebundenen Bezeichnungsfelder vom Steuerelement trennen und wieder anbinden können.<\/p>\n Wie aber funktioniert dies per VBA Im Grunde genommen gar nicht. Sie können zwar über die Controls<\/b>-Auflistung von Steuerelementen auf deren Bezeichnungsfeld zugreifen und mit der Parent<\/b>-Eigenschaft auf das einem Bezeichnungsfeld zugeordnete Steuerelement, aber diese Eigenschaften lassen sich nicht per VBA einstellen.<\/p>\n Dies wird allein über die Definition des Formulars oder Berichts festgelegt, der wie in Bild 3 aussieht. Diese Definition speichern Sie mit der SaveAsText<\/b>-Methode in einer Textdatei. Für ein Formular lautet diese beispielsweise wie folgt:<\/p>\n Bild 3: Definition eines Formulars mit einem an ein Textfeld gebundenen Bezeichnungsfeld<\/span><\/b><\/p>\n Die Textdatei können Sie anschließend mit einem Texteditor Ihrer Wahl öffnen und betrachten. In unserem Beispiel ist der Code mit der Definition des Bezeichnungsfelds in den für das Textfeld eingebettet.<\/p>\n Wenn Sie das Bezeichnungsfeld im Originalformular nun ausschneiden und wieder einfügen und erneut die Definition des Formulars in einer Datei speichern, finden Sie die Definition der beiden Steuerelemente auf der gleichen Ebene wieder.<\/p>\n Wenn Sie per VBA ein Bezeichnungsfeld zu einem Formular oder Bericht hinzufügen und dieses an ein weiteres Steuerelement binden möchten, können Sie das betroffene Steuerelement über den Parameter Parent <\/b>der für das Anlegen von Steuerelementen zuständigen Methode CreateControl <\/b>verwenden.<\/p>\n Zwischenablage löschen<\/b><\/p>\n Manchmal kann es sinnvoll sein, die Zwischenablage zu löschen – zum Beispiel dann, wenn man diese per Code gefüllt hat und sicherstellen möchte, dass beim Beenden der dafür verantwortlichen Anwendung keine Meldung erscheint, die den Benutzer fragt, wie er denn mit dem in der Zwischenablage befindlichen Datenvolumen verfahren wolle (wenn dieses denn größer ist).<\/p>\n Dann schreiben Sie einfach die folgenden Zeilen in ein Standardmodul etwa namens mdlZwischenablage<\/b> und rufen die Prozedur ZwischenablageLeeren <\/b>an entsprechender Stelle auf:<\/p>\n Z-Reihenfolge festlegen und die Probleme<\/b><\/p>\n Manchmal möchte man Steuerelemente in einem Formular übereinander platzieren, um diese abwechselnd ein- und auszublenden oder diese überlappen zu lassen.<\/p>\n Die Reihenfolge der Steuerelemente ändern Sie dabei über den Kontextmenüeintrag Position|In den Vordergrund <\/b>beziehungsweise Position|In den Hintergrund <\/b>des jeweiligen Steuerelements.<\/p>\n Leider klappt diese Einstellung nicht mit allen Kombinationen von Steuerelementen. Experimente mit einer Schaltfläche, einem ActiveX-Steuerelement und einem Unterformular-Steuerelement ergeben folgendes Resultat:<\/p>\n Nimmt man weitere eingebaute Steuerelemente wie etwa ein Textfeld hinzu, stimmt zwar die Z-Reihenfolge unter den eingebauten Steuerelementen – Unterformulare und ActiveX-Steuerelemente schieben sich jedoch immer nach oben.<\/p>\n Gleichwohl stellen wir beim Sortieren mit den beiden oben genannten Kontextmenü-Befehlen fest, dass im Entwurf wieder andere Gesetze als in der Formularansicht gelten: Dort können sich eingebaute Steuerelemente wie Schaltfläche oder Textfeld durchaus vor ActiveX-Steuerelemente schieben, jedoch nicht vor Unterformulare.<\/p>\n Unterformulare werden im Entwurf immer an oberster Stelle angezeigt – selbst ein ActiveX-Steuerelement, das in der Formularansicht darüber gelangen kann, versteckt sich im Entwurf hinter dem Unterformular-Steuerelement.<\/p>\n Bei all diesem Durcheinander gibt sich Access zumindest redlich Mühe: Wenn Sie sich die Definition eines Formulars mit verschieden angeordneten Steuerelementen anschauen (dazu speichern Sie die Definition mit der SaveAsText<\/b>-Methode), dann finden Sie die Steuerelemente durchaus in der richtigen Reihenfolge.<\/p>\n Die Elemente, die in der Z-Reihenfolge ganz unten liegen, werden dort zuerst erfasst, das oberste Steuerelement folgt am Schluss – also genau so, wie man es erwarten würde, wenn man davon ausgeht, dass Access die Steuerelemente in der festgelegten Reihenfolge „zeichnet“.<\/p>\n Der Grund dafür ist, dass Access eingebaute Steuerelemente einfach nur ins Formular zeichnet und erst dann – natürlich unauffällig – in ein echtes Steuerelement umwandelt, das auch ein Windows-Handle besitzt, über das man es ansprechen kann. Unterformular- und ActiveX-Steuerelemente sind „richtige“ Steuerelemente, die von vornherein ein Handle besitzen.<\/p>\n Und warum schieben die sich nun vor die eingebauten Steuerelemente Ganz klar: Die eingebauten Steuerelemente sind halt nur gezeichnet und verschmelzen somit praktisch mit dem Hintergrund, und die richtigen Steuerelemente stehen nun einmal im Vordergrund.<\/p>\n Versteckte Steuerelemente aktivieren<\/b><\/p>\n Wenn wir schon beim Thema Z-Reihenfolge sind: Wenn Sie Steuerelemente übereinanderlegen, fällt es manchmal schwer, die unteren Steuerelemente zu markieren und ihre Eigenschaften einzustellen. Besonders kompliziert wird dies, wenn Sie auf Steuerelemente zugreifen möchten, die komplett von anderen Steuerelementen verdeckt werden. Da gibt es nun drei Möglichkeiten:<\/p>\n Taschenrechner im Formular<\/b><\/p>\n Manchmal macht es Sinn, dem Benutzer eine Möglichkeit zum Berechnen von Werten zur Verfügung zu stellen. Dazu brauchen Sie nur zwei Textfelder und eine Schaltfläche in das Formular einzubauen. Das erste Textfeld dient der Eingabe der Berechnung und die Schaltfläche schreibt das Ergebnis der Berechnung in das zweite Textfeld (siehe Bild 4). Die Steuerelemente heißen txtBerechnung<\/b>, txtErgebnis <\/b>und cmdBerechnen<\/b>.<\/p>\n Bild 4: Rechnen im Access-Formular<\/span><\/b><\/p>\n In einfachsten Fall brauchen Sie nur einen Einzeiler als Ereignisprozedur für das Ereignis Beim Klicken <\/b>der Schaltfläche cmdBerechnen <\/b>zu hinterlegen:<\/p>\n Der Clou hierbei ist die Verwendung der Eval<\/b>-Funktion, die Ausdrücke einfach nur auswertet. Und wenn sich wie in diesem Fall eine mathematische Berechnung dahinter verbirgt, liefert sie einfach das Ergebnis des angegebenen Ausdrucks.<\/p>\n Sie können das Formular noch ein wenig verbessern, indem Sie beispielsweise Fehler abfangen, die durch ungültige Berechnungsausdrücke entstehen.<\/p>\n Der Ausdruck 1\/0 <\/b>liefert beispielsweise die Fehlermeldung Division durch Null<\/b>. Damit diese Fehlermeldung nicht in einem Meldungsfenster, sondern gleich im Ergebnistextfeld erscheint, ändern Sie obige Routine wie folgt ab:<\/p>\n Diese Routine fängt eventuelle Fehler ab und schreibt deren Meldungen in das Ergebnistextfeld (siehe Bild 5).<\/p>\n Bild 5: Fehler in den Berechnungsanweisungen erscheinen im Ergebnisfeld.<\/span><\/b><\/p>\n Eintrag im Kombinationsfeld zum Anlegen neuer Einträge<\/b><\/p>\n Wenn der Benutzer die Einträge im Kombinationsfeld selbst erweitern können soll, geschieht dies entweder durch direktes Eintragen des neuen Werts in das Kombinationsfeld und anschließende Übernahme des Werts in die Datenherkunft, oder es öffnet sich ein Detailformular, wenn der Benutzer einen noch nicht vorhandenen Eintrag angegeben hat.<\/p>\n Beides ist, was die Intuitivität angeht, grenzwertig: Der Benutzer kann nicht auf den ersten Blick erkennen, dass er einen neuen Eintrag anlegen kann.<\/p>\n Wie wäre es mit einer Lösung, bei der das Kombinationsfeld gleich einen Eintrag anzeigt, mit dem der Benutzer einen neuen Eintrag anlegen kann Dies könnte zum Beispiel wie in Bild 6 aussehen.<\/p>\n Bild 6: Hinzufügen eines neuen Eintrags per Kombinationsfeldeintrag<\/span><\/b><\/p>\n Damit das Kombinationsfeld zusätzlich zu den bereits in der Tabelle tblKategorien <\/b>enthaltenen Einträgen noch einen weiteren Eintrag mit dem Text <Neue Kategorie> <\/b>anzeigt, verwenden Sie beispielsweise die folgende SQL-Abfrage als Datensatzherkunft:<\/p>\n Diese Abfrage fügt einen Eintrag mit dem Wert -1 <\/b>im Feld KategorieID <\/b>und dem Text <Kategorie anlegen> <\/b>im Feld Kategoriename <\/b>hinzu und sortiert alle Datensätze nach dem Feld Kategoriename<\/b>.<\/p>\n Damit hätten wir schon einmal die Anzeige aus Bild 6. Fehlt noch eine Prozedur, die nun beim Auswählen des neuen Eintrags die Möglichkeit zum Hinzufügen eines neuen Werts zur Datensatzherkunft bietet. Die benötigte Prozedur wird durch das Ereignis Nach Aktualisierung <\/b>des Steuerelements cboKategorien <\/b>ausgelöst und sieht wie in Listing 1 aus.<\/p>\n Listing 1: Diese Prozedur fragt einen neuen Wert für die Datensatzherkunft eines Kombinationsfelds ab.<\/p>\n Die Prozedur prüft zunächst den Wert der gebundenen Spalte des Kombinationsfelds. Beträgt dieser -1<\/b>, hat der Benutzer den Eintrag <Neue Kategorie> <\/b>ausgewählt und das Anlegen eines neuen Eintrags kann gestartet werden.<\/p>\n Die Prozedur fragt dann mit einer Inputbox den neuen Eintrag ab und speichert das Ergebnis in der String-Variablen strKategorie<\/b>. Die folgende Prüfung stellt sicher, dass der Benutzer überhaupt einen Wert eingegeben hat, und verzweigt gegebenenfalls zum Ende der Prozedur.<\/p>\n Ist ein Eintrag vorhanden, prüft die Prozedur noch, ob dieser möglicherweise schon in der Datensatzherkunft vorhanden ist. Falls nein, holt die Prozedur einen Verweis auf das aktuelle Database<\/b>-Objekt und speichert diesen in der Variablen db<\/b>.<\/p>\n Diese stellt dann die Execute<\/b>-Methode bereit, um die zum Anlegen des neuen Datensatzes notwendige INSERT INTO<\/b>-Anweisung auszuführen.<\/p>\n Die Eigenschaft RecordsAffected<\/b> des Database<\/b>-Objekts gibt die Anzahl der von der letzten Aktualisierungsabfrage betroffenen Datensätze zurück.<\/p>\n Wenn diese 1 <\/b>beträgt, hat das Anfügen funktioniert. Die Prozedur muss nun nur noch die ID des neuen Eintrags ermitteln, was mit einer speziellen Abfrage unter Verwendung des @@IDENTITY<\/b>-Werts geschieht, die Datensatzherkunft des Kombinationsfelds aktualisieren und das Kombinationsfeld auf den neu hinzugefügten Wert einstellen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n TippsUndTricks.mdb<\/p>\nPrivate Sub Seitenfußbereich_Format(Cancel As\r\n Integer, FormatCount As Integer)\r\n Cancel = True\r\n End Sub<\/pre>\n
Private Sub Seitenfußbereich_Format(Cancel\r\n As Integer, FormatCount As Integer)\r\n Cancel = Not (Me.Page = Me.Pages)\r\n End Sub<\/pre>\n
Me.txtDatum.Visible = Me.Page = Me.Pages<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic005_opt.jpeg\")
<\/p>\nSaveAsText acForm, "frmBeispiel", "c:\\Beispiel.txt"<\/pre>\n
Private Declare Function OpenClipboard Lib\r\n"user32" (ByVal hwnd As Long) As Long\r\nPrivate Declare Function EmptyClipboard Lib\r\n"user32" () As Long\r\nPrivate Declare Function CloseClipboard Lib\r\n"user32" () As Long\r\nPublic Sub ZwischenablageLeeren()\r\nIf OpenClipboard(0&) <> 0 Then\r\n Call EmptyClipboard\r\n Call CloseClipboard\r\nEnd If\r\nEnd Sub<\/pre>\n
\n
\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic006_opt.jpeg\")
<\/p>\nPrivate Sub cmdBerechnen_Click()\r\nMe!txtErgebnis = Eval(Me!txtBerechnung)\r\nEnd Sub<\/pre>\n
Private Sub cmdBerechnen_Click()\r\nOn Error Resume Next\r\nMe!txtErgebnis = Eval(Me!txtBerechnung)\r\nIf Not Err.Number = 0 Then\r\n Me!txtErgebnis = "Fehler: " _\r\n & Err.Description\r\nEnd If\r\nEnd Sub<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic007_opt.jpeg\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2009_06\/TippsUndTricks-web-images\/pic008_opt.jpeg\")
<\/p>\nSELECT -1 AS KategorieID,\r\n''<Neue Kategorie anlegen>'' AS Kategoriename\r\nFROM tblKategorien\r\nUNION\r\nSELECT KategorieID, Kategoriename\r\nFROM tblKategorien\r\nORDER BY Kategoriename;<\/pre>\n
Private Sub cboKategorien_AfterUpdate()\r\n Dim strKategoriename As String\r\n Dim db As DAO.Database\r\n Dim lngKategorieID As Long\r\n If Me!cboKategorien = -1 Then\r\n strKategoriename = Nz(InputBox("Geben Sie den Namen der neuen Kategorie an.", _\r\n "Neue Kategorie", ""))\r\n If Len(strKategoriename) > 0 Then\r\n If IsNull(DLookup("KategorieID", "tblKategorien", _\r\n "Kategoriename = ''" & strKategoriename & "''")) Then\r\n Set db = CurrentDb\r\n db.Execute "INSERT INTO tblKategorien(Kategoriename) VALUES(''" _\r\n & strKategoriename & "'')", dbFailOnError\r\n If db.RecordsAffected = 1 Then\r\n lngKategorieID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0)\r\n Me!cboKategorien.Requery\r\n Me!cboKategorien.DefaultValue = lngKategorieID\r\n End If\r\n Set db = Nothing\r\n End If\r\n End If\r\nEnd If\r\nEnd Sub<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n