<\/p>\n
Wer oft Daten importiert oder exportiert, wird dies in vielen Fällen mit den entsprechenden Assistenten und den damit erzeugten Spezifikationen erledigen. Falls nicht, erhalten Sie in diesem Beitrag eine kurze Einführung in die notwendigen Schritte. Außerdem erfahren Sie, wo Access die Spezifikationen speichert und wie Sie diese ganz schnell ändern, ohne extra den Assistenten dafür öffnen zu müssen.<\/b><\/p>\n
Wenn Sie etwa unter Access 2007\/2010 einen Export mit dem Assistenten durchführen möchten, finden Sie alles Notwendige im Ribbon-Tab Externe Daten <\/b>(unter Access 2003 und älter verwenden Sie zum Importieren den Menüeintrag Datei|Externe Daten|Importieren <\/b>beziehungsweise Verknüpfen <\/b>und zum Exportieren den Kontextmenüeintrag Exportieren <\/b>des jeweiligen Objekts im Datenbankfenster). Im Ribbon-Tab Externe Daten <\/b>klicken Sie einfach auf das gewünschte Ziel beziehungsweise die Quelle (s. Bild 1) und starten so den Assistenten. Nach dem Auswählen der Quell-\/Zieldatei sieht der Assistenten dann in allen Access-Versionen des neuen Jahrtausends ähnlich aus.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic001.png\")
<\/p>\n
Bild 1: Aufruf von Import- und Export-Funktionen unter Access 2010<\/span><\/b><\/p>\n Der Export erfordert einige Vorbereitung: Wenn nicht alle Felder und alle Datensätze einer Tabelle in die Zieldatei, etwa eine Excel-Tabelle, geschrieben werden sollen, müssen Sie eine entsprechende Abfrage erstellen, welche nur die gewünschten Felder aufnimmt und gegebenenfalls die Datensätze durch entsprechende Kriterien einschränkt.<\/p>\n Dafür lässt sich der Assistent anschließend in zwei Schritten abfertigen: Er fragt nur, ob die Datenspalten durch Trennzeichen oder eine fixe Spaltenbreite voneinander getrennt werden sollen und welches Trennzeichen gegebenenfalls verwendet werden soll. Außerdem möchte er wissen, ob die Feldnamen als Spaltenköpfe mitexportiert werden sollen und ob die einzelnen Werte etwa in Anführungszeichen eingefasst werden sollen.<\/p>\n Beim Importieren etwa aus einer Textdatei ist der Assistent naturgemäß etwas neugieriger: Er fragt auch zunächst, ob die Daten in festen Spalten vorliegen oder durch ein Begrenzungszeichen voneinander getrennt sind (s. Bild 5).<\/p>\n Bild 2: Soll mit oder ohne Trennzeichen importiert\/exportiert werden<\/span><\/b><\/p>\n Bild 3: Welches Trennzeichen wird verwendet, welches Textbegrenzungszeichen und wie sieht es mit der ersten Zeile aus<\/span><\/b><\/p>\n Bild 4: Festlegen von Feldern und Datentypen<\/span><\/b><\/p>\n Bild 5: Auswählen eines Primärschlüsselfeldes, falls gewünscht<\/span><\/b><\/p>\n Spezifikationen speichern<\/b><\/p>\n Es wird gern übersehen, ist aber enorm wichtig: der Dialog, der sich durch einen Mausklick auf die Schaltfläche Erweitert <\/b>öffnet (s. Bild 6). Hier finden Sie nämlich nicht nur eine Zusammenfassung der vorgenommenen Einstellungen, sondern auch noch die Möglichkeit, die Einstellungen zu speichern. Dazu klicken Sie auf die Schaltfläche Speichern unter … <\/b>und geben im folgenden Dialog den Namen der zu speichernden Spezifikation an.<\/p>\n Bild 6: Übersicht und weitere Optionen<\/span><\/b><\/p>\n Damit schaffen Sie die Voraussetzung für die folgenden Aktionen:<\/p>\n Import\/Export per VBA<\/b><\/p>\n Für den Import\/Export per VBA gibt es ein paar Methoden des DoCmd<\/b>-Objekts, zum Beispiel DoCmd.TransferSpreadsheet <\/b>für Excel-Tabellen oder DoCmd.TransferText <\/b>für Textdateien.<\/p>\n Wenn Sie beispielsweise den Inhalt der Tabelle tblKategorien <\/b>in einer Textdatei speichern möchten und dazu bereits eine Export-Spezifikation unter dem Namen Kategorien Exportspezifikation <\/b>erstellt haben, können Sie dies mit der folgenden Anweisung erledigen:<\/p>\n Der erste Parameter gibt dabei die Export\/Import-Art an, der zweite den Namen der Spezifikation, der dritte die Quelltabelle und der vierte die Zieldatenbank.<\/p>\n Der letzte Parameter bestimmt, ob die Feldnamen beim Export in die erste Zeile geschrieben werden sollen.<\/p>\n Auf ähnliche Weise gehen Sie auch beim Importieren von Daten vor – Sie müssen lediglich eine entsprechende Spezifikation anlegen und als ersten Parameter eine der acImport…<\/b>-Konstanten angeben.<\/p>\n Umständliches Anpassen der Spezifikationen<\/b><\/p>\n Wenn Sie eine Spezifikation einmal ändern müssen, weil Sie beispielsweise einen Import mit vielen Feldern erstellt und beim Testen festgestellt haben, dass der Import noch nicht richtig funktioniert, müssen Sie theoretisch jedes Mal erneut den Assistenten öffnen und die Spezifikation laden, ändern und erneut speichern. Das ist sehr unpraktisch, denn der Assistent fragt beispielsweise jedes Mal erneut den Namen der zu importierenden Datei ab. Dabei müssen Sie auch immer wieder zum entsprechenden Quellverzeichnis navigieren, um die Datei auszuwählen, was mit der Zeit nervt.<\/p>\n Zum Glück gibt es noch eine Alternative, die in den folgenden Abschnitten vorgestellt wird.<\/p>\n Speicherort der Spezifikationen<\/b><\/p>\n Die Daten einer Spezifikation werden günstigerweise an einer leicht erreichbaren Stelle gespeichert – nämlich in zwei als Systemtabellen markierten Tabellen:<\/p>\n Bild 7: Entwurf der Tabelle MSysIMEXSpecs<\/span><\/b><\/p>\n Bild 8: Entwurf der Tabelle MSysIMEXColumns<\/span><\/b><\/p>\n Sollten die Tabellen bei Ihnen nicht sichtbar sein, kann dies zwei Ursachen haben:<\/p>\n Spezifikationen bearbeiten<\/b><\/p>\n Unter Access 2007 und jünger können Sie die beiden Tabellen MSysIMEXSpecs <\/b>und MSysIMEXColumns <\/b>direkt bearbeiten. Sie können dort also sowohl die allgemeinen Einstellungen anpassen als auch die für die einzelnen Felder. Wenn Sie also einen Import etwa unter dem Namen Kategorien Importspezifikation <\/b>gespeichert haben, ermitteln Sie aus dem Feld SpecID <\/b>(s. Bild 10).<\/p>\n Bild 9: Ermitteln der SpecID für eine gespeicherte Spezifikation<\/span><\/b><\/p>\n Bild 10: Bearbeiten der Spalteninformationen in MSysIMEXColumns<\/span><\/b><\/p>\n Kein Zugriff unter Access 2003 und älter<\/b><\/p>\n Wenn Sie dies unter älteren Access-Versionen ausprobieren, werden Sie schnell auf Widerstand stoßen: Die Daten der beiden Tabellen MSysIMEXSpecs<\/b> und MSysIMEXColumns <\/b>lassen sich nicht ändern. Genau wie die übrigen Systemtabellen scheinen diese beiden Tabellen geschützt zu sein. änderungen lassen sich offensichtlich nur per Assistent durchführen.<\/p>\n <\/p>\n Das ist jedoch kein Grund, den Kopf in den Sand zu stecken: Diese Tabelle ist nämlich keine typische Systemtabelle, sondern sie wird nur als solche dargestellt und bringt die Eigenschaft mit sich, dass die enthaltenen Daten nicht direkt geändert werden können. Sie können jedoch per VBA auf die Inhalte der beiden Tabellen zugreifen und diese auch ändern. Probieren Sie beispielsweise einmal die folgende Prozedur aus:<\/p>\n Die Prozedur öffnet ein Recordset auf Basis der Tabelle MSysIMEXSpecs <\/b>und fügt mit der AddNew<\/b>-Methode einen neuen Datensatz hinzu. Dabei trägt sie als Namen der Spezifikation den Wert Testspezifikation <\/b>ein. Nicht nur, dass das Aufrufen der Prozedur keinen Fehler hervorruft – der Datensatz wird auch noch problemlos angelegt!<\/p>\n Systemtabelle oder nicht<\/b><\/p>\n Schauen wir uns also einmal an, warum sich diese Tabelle so anders als die übrigen Systemtabellen verhält. In anderen Systemtabellen fügen Sie nämlich nicht einfach mal so einen Datensatz hinzu.<\/p>\n Wenn Sie obige Prozedur mal mit den folgenden Zeilen ausführen und somit probieren, der Tabelle MSysObjects<\/b> einen Datensatz hinzuzufügen, liefert das die Fehlermeldung aus Bild 11:<\/p>\n Bild 11: Fehler beim ändern einer herkömmlichen Systemtabelle<\/span><\/b><\/p>\n Wer sich schon ein wenig mit Systemtabellen beschäftigt hat, der weiß, wodurch sich diese von anderen Tabellen unterscheiden – nämlich durch den Wert dbSystemObject <\/b>in der Eigenschaft Attributes <\/b>des entsprechenden TableDef<\/b>-Objekts. Wenn Sie diesen Wert etwa für die Systemtabelle MSysObjects<\/b> ermitteln möchten, geben Sie die folgende Anweisung im Direktfenster des VBA-Editors ein:<\/p>\n Wenn Sie das Ergebnis mit dem Zahlenwert für die Konstante dbSystemObject <\/b>vergleichen, den Sie im Objektkatalog finden oder einfach mit Debug.Print dbSystemObject <\/b>ermitteln können, ergibt sich eine Differenz von 2<\/b>.<\/p>\n Ermitteln Sie nun mit der folgenden Anweisung den Attributes<\/b>-Wert der Tabelle MSysIMEXSpecs<\/b>:<\/p>\n Das Ergebnis lautet 2<\/b>. Die Tabellen zum Speichern von Spezifikationen sind also keine Systemtabellen, sondern mit einem nicht dokumentierten Attributes<\/b>-Wert versehen. Dieser wiederum sorgt dafür, dass eine Tabelle als Systemtabelle verborgen dargestellt wird und außerdem nicht direkt geändert werden kann.<\/p>\n Wie lautet der Umkehrschluss Wenn MSysIMEXSpecs <\/b>und MSysIMEXColumns <\/b>den Wert 0 <\/b>für die Eigenschaft Attributes <\/b>erhalten, sollten diese auch beschreibbar sein. Die Frage ist nur: Können Sie die Attributes<\/b>-Eigenschaft von zumindest teilweise gesperrten Tabellen einfach so ändern Probieren Sie es aus:<\/p>\n Dies gelingt ohne Weiteres. Und auch das anschließende Öffnen der Tabelle MSysIMEXSpecs <\/b>und das ändern der enthaltenen Daten funktioniert! Sie können also bei einer kleinen änderung direkt auf die Spezifikationen zugreifen und diese anpassen.<\/p>\n Sicherheit in Access 2007 und jünger<\/b><\/p>\n Bei Verwendung aktueller Access-Versionen gibt es das Problem der für die Bearbeitung von Daten gesperrten Tabellen gar nicht. Das Sicherheitssystem wird in Datenbanken im Format von Access 2007\/2010 (.accdb<\/b>) nicht mehr unterstützt. Und auch für .mdb<\/b>-Dateien gilt: Echte Systemtabellen wie MSysObjects <\/b>werden zwar noch geschützt, aber die Schein-Systemtabellen, deren Eigenschaft Attributes <\/b>den Wert 2 <\/b>aufweist, werden nicht mehr gesperrt, sondern nur bezüglich der Darstellung wie Systemtabellen behandelt.<\/p>\n Spezifikationen einfach ändern<\/b><\/p>\n Nach diesem kleinen Exkurs schauen wir uns an, wie Sie die Spezifikationen einfach ändern können. Prinzipiell ist der Dialog aus Bild 11 ja schon nicht schlecht.<\/p>\n Also bauen wir diesen nach. Dazu verwenden wir zwei Formulare: Das Formular frmSpezifikationen <\/b>enthält alle Daten der Tabelle MSysIMEXSpecs<\/b>. Das Formular sfmSpezifikationen <\/b>zeigt alle Daten der Tabelle MSysIMEXColumns <\/b>an und wird später als Unterformular in frmSpezifikationen <\/b>eingeklinkt. <\/p>\n Beginnen wir mit dem Unterformular zur Anzeige der Spalten des Im-\/Exports. Dieses erhält die Tabelle MSysIMEXColumns <\/b>als Datenherkunft. Ziehen Sie die Felder FieldName<\/b>, DataType<\/b>, IndexType<\/b>, SkipColumn<\/b>, Start <\/b>und Width <\/b>in den Detailbereich des Formularentwurfs (s. Bild 12). Start <\/b>und Width <\/b>sollen nur angezeigt werden, wenn die Spezifikation sich auf eine Datei mit fester Spaltenbreite bezieht – dazu später mehr. Stellen Sie außerdem die Eigenschaft Standardansicht <\/b>des Unterformulars auf Datenblatt <\/b>ein. Damit die Spaltenüberschriften später in Deutsch angezeigt werden, ändern Sie diese entsprechend.<\/p>\n Bild 12: Entwurf des Formulars sfmSpezifikationen<\/span><\/b><\/p>\n Das Hauptformular frmSpezifikationen <\/b>verwendet die Tabelle MSysIMEXSpecs <\/b>als Datenherkunft. Hier ziehen Sie nicht einfach alle Felder der Tabelle in den Entwurf, da einige Felder über andere Steuerelemente als reine Textfelder abgebildet werden sollen. Wir gehen hier Schritt für Schritt vor, wobei das Formular möglichst wie das Originalformular des eingebauten Assistenten aussehen soll.<\/p>\n Als Erstes kümmern wir uns daher um das Dateiformat. Dieses wird im Feld Spectype <\/b>gespeichert und kann die Werte 1 <\/b>(mit Trennzeichen) und 2 <\/b>(feste Breite) annehmen. Eingegeben wird dieser Wert über eine Optionsgruppe mit zwei Optionen. Fügen Sie zuerst die Optionsgruppe hinzu. Damit diese gleich an das Feld Spectype <\/b>gebunden wird, klicken Sie zuerst in der Toolbox auf das Symbol für die Optionsgruppe und ziehen dann den Eintrag SpecType <\/b>aus der Feldliste in den Detailbereich des Formulars. Nennen Sie das Steuerelement ogrSpecType<\/b>. Ziehen Sie das Beschriftungsfeld nach links neben die Optionsgruppe, legen Sie die Eigenschaft Beschriftung <\/b>auf den Wert Dateiformat: <\/b>fest und stellen Sie die Eigenschaft Rahmenart <\/b>der Optionsgruppe auf Transparent<\/b> ein.<\/p>\n Fügen Sie dann zwei Optionen hinzu und weisen Sie diesen die Beschriftungen Mit Trennzeichen <\/b>und Feste Breite <\/b>zu. Die Optionen sollen in dieser Reihenfolge die Werte 1 <\/b>und 2 <\/b>für die Eigenschaft Optionswert <\/b>erhalten.<\/p>\n Dann folgt das Feld FieldSeparator<\/b>, das im Originalformular dem Feldtrennzeichen <\/b>entspricht. Das Feld soll als Kombinationsfeld ausgeführt werden und die gleichen vier Werte wie das Originalformular enthalten. Dazu tragen Sie für die Eigenschaft Datensatzherkunft <\/b>den folgenden Ausdruck ein:<\/p>\n Da dies einer Wertliste entspricht, legen Sie den Wert der Eigenschaft Herkunftsart <\/b>auf Wertliste <\/b>fest.<\/p>\n Assistenten auslesen<\/b><\/p>\n Woher nehmen Sie die Wertliste, ohne dass Sie alle Werte von Hand eintragen müssen Ganz einfach: Die meisten Assistenten sind einfache Formulare, die in von Microsoft mitgelieferten Add-In-Datenbanken stecken – und deren Namen, Steuerelemente und Eigenschaften können Sie wie bei Formularen in der aktuellen Anwendung per VBA auslesen.<\/p>\n Starten Sie also den Assistenten, dem Sie die gewünschten Informationen entlocken möchten. In diesem Fall starten Sie den Import\/Export-Assistenten und klicken auf die Schaltfläche Erweitert…<\/b>.<\/p>\n Wechseln Sie dann zum VBA-Editor und wählen Sie den Menübefehl Ausführen|Zurücksetzen <\/b>aus. Dadurch sorgen Sie dafür, dass das aktuell geöffnete Formular nicht mehr als modaler Dialog arbeitet – Sie können nun im VBA-Editor arbeiten und auch Anweisungen über das Direktfenster absetzen. <\/p>\n Dazu gehört, dass Sie auf die Forms<\/b>-Auflistung, die enthaltenen Steuerelemente und ihre Eigenschaften zugreifen können. Prima – so können Sie dann auch leicht die Werte der Eigenschaft Datensatzherkunft<\/b> für die Kombinationsfelder mit Wertlisten herausfinden. Dies erledigt die folgende Prozedur:<\/p>\n Die Prozedur durchläuft die geöffneten Formulare und dann deren Steuerelemente. Stößt sie auf ein Kombinationsfeld, gibt sie Name <\/b>und RowSource <\/b>aus, sonst nur den Namen. Damit erhalten Sie im Direktfenster schnell alle Inhalte der Datensatzherkunft<\/b>-Eigenschaft der Kombinationsfelder des Assistenten und können diese in Ihren Nachbau einfügen.<\/p>\n Weitere Steuerelemente<\/b><\/p>\n Mit dem Kombinationsfeld zur Eingabe der Textbegrenzungszeichen gehen Sie zunächst genau so wie bei den Feldtrennzeichen vor, und auch die Sprache und die Codepage erledigen Sie auf diese Weise. <\/p>\n Dabei ist zu beachten, dass die Wertlisten jeweils Werte für zwei Spalten anzeigen, also eine ID und den eigentlichen Anzeigewert. Um dem gerecht zu werden, stellen Sie die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>jeweils auf 2 <\/b>und 0cm <\/b>ein. Die Sprache dient dabei lediglich zum Filtern der Einträge, die im Kombinationsfeld zur Auswahl der Codepage angezeigt werden. Die Werte des Kombinationsfeldes cboSprache <\/b>sehen so aus:<\/p>\n Beim Feld zur Auswahl des Feldtrennzeichens ergibt sich ein kleines Problem: Es kann sein, dass kein Feldtrennzeichen verwendet werden soll. In diesem Fall enthält das zugrunde liegende Feld eine leere Zeichenkette als Wert. Dies wird im Originaldialog mit dem Ausdruck {kein} <\/b>gekennzeichnet. In unserem Nachbau erscheint aber leider nur die leere Zeichenkette. Es gibt jedoch eine einfache Lösung. Tragen Sie einfach den folgenden Ausdruck für die Eigenschaft Format <\/b>des Kombinationsfeldes ein:<\/p>\n Dadurch zeigt das Steuerelement den Ausdruck {kein} <\/b>an, wenn es tatsächlich den Wert Null <\/b>oder eine leere Zeichenfolge als Wert enthält.<\/p>\n Für das Kombinationsfeld cboLanguage <\/b>legen Sie daher eine kleine Prozedur an, die durch das Ereignis Nach Aktualisierung <\/b>ausgelöst wird und eine weitere Prozedur namens CodepagesAktualisieren<\/b> aufruft:<\/p>\n Diese wiederum zeigt die verfügbaren Codepages je nach Einstellung (Deutsch<\/b>\/Alle<\/b>) an:<\/p>\n Die Listen sind natürlich wesentlich länger als hier dargestellt. Es gibt noch zwei kleine Haken: <\/p>\n Kümmern wir uns zunächst um das Integer<\/b>-Problem. Microsoft speichert Werte größer als 32.768 einfach als Differenz von 65.536 und dem Wert und setzt ein negatives Vorzeichen davor. Der Einfachheit halber ändern wir direkt in der Wertliste alle Werte so ab. Also soll ein Standardwert angezeigt werden, wobei bevorzugt der Eintrag Deutsch <\/b>erscheinen soll. Nur wenn die aktuell ausgewählte Codepage nicht in dieser Liste vorkommt, verwenden wir den Eintrag Alle<\/b>. Wie finden wir aber heraus, ob die Codepage in der Liste aller Sprachen enthalten ist, aber nicht in jener der deutschen Sprachen Dazu ändern wir einfach die in der Liste verwendeten ID-Werte. Alle Werte, die größer als 32.768 sind, werden von 65.536 abgezogen und mit einem negativen Vorzeichen versehen – fertig!<\/p>\n Nun zum zweiten Problem, der Einstellung der Sprache entsprechend dem Wert im Feld FileType <\/b>(im Formular unter Codepage <\/b>zu finden).<\/p>\n Wir benötigen einige weitere Codezeilen in der Ereignisprozedur, die durch das Ereignis Beim Anzeigen <\/b>des Formulars ausgelöst wird:<\/p>\n Die Prozedur speichert zunächst die ID des FileTypes<\/b> zwischen und stellt die Sprache auf Deutsch <\/b>ein. Die Wertliste des Kombinationsfeldes zur Auswahl der Codepages wird entsprechend aktualisiert.<\/p>\n Nun kommt der Trick: Wenn der für das Feld FileType <\/b>festgelegte Wert nicht in der Liste der Codepages für die Sprache Deutsch <\/b>vorliegt, zeigt das Kombinationsfeld schlicht keinen Wert an.<\/p>\n Dies prüfen wir, indem wir den Fokus auf dieses Steuerelement verschieben und die Eigenschaft Text <\/b>auslesen, also den angezeigten Wert. Ist die Länge dieser Zeichenkette gleich 0<\/b>, stellt die Prozedur die Sprache auf 0 <\/b>ein (also Alle<\/b>) und aktualisiert die Liste der Codepages erneut. Nun braucht nur noch die Codepage aus dem zwischengespeicherten Wert wiederhergestellt zu werden.<\/p>\n Datum, Zeit und Zahlen<\/p>\n Kommen wir zum Block Datum, Zeit und Zahlen des Originaldialogs. Die hier verwendeten Steuerelemente weisen keine Besonderheiten auf – sehen Sie einfach die Beispieldatenbank ein, um ihre Eigenschaften zu betrachten.<\/p>\n Schließlich fügen Sie das zuvor erstellte Unterformular sfmSpezifikationen <\/b>in das Formular frmSpezifikationen <\/b>ein. Prüfen Sie danach die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements. Diese sollten beide den Wert SpecID <\/b>enthalten. Falls dies nicht der Fall ist, tragen Sie die Werte nach.<\/p>\n Ein Wechsel in die Formularansicht zeigt, dass es auch im Unterformular noch zwei Felder gibt, die eigentlich als Kombinationsfelder ausgelegt werden sollten: Datentyp <\/b>und Indiziert<\/b>.<\/p>\n Dies holen Sie nach, indem Sie zurück in die Entwurfsansicht wechseln und diese mit dem Kontextmenüeintrag ändern zu|Kombinationsfeld <\/b>umwandeln.<\/p>\n Danach fügen Sie die entsprechenden Wertlisten zu den Eigenschaften Datensatzherkunft <\/b>der beiden Kombinationsfelder hinzu und stellen auch die Eigenschaft Herkunftsart <\/b>auf den Wert Wertliste <\/b>ein. Die Wertlisten ermitteln Sie mit einer erweiterten Version der oben vorgestellten Prozedur FormulareUndSteuerelemente<\/b>. Sie finden diese im Modul mdlImportExport<\/b>.<\/p>\n Das Formular sieht samt Unterformular wie in Bild 13 aus. Verglichen mit dem Originaldialog fehlen nur noch Kleinigkeiten, die aber teilweise gar nicht mehr nötig sind. Da das Formular an die Tabelle MSysIMEXSpecs <\/b>gebunden ist, müssen Sie beispielsweise nicht erst eine Spezifikation laden, um ihre Daten anzuzeigen – Sie können einfach durch die Spezifikationen hindurchblättern.<\/p>\n Bild 13: Entwurf des Formulars frmSpezifikationen<\/span><\/b><\/p>\n Da änderungen an den in gebundenen Formularen angezeigten Daten einfach gespeichert werden können, fällt auch die Schaltfläche zum Speichern der Spezifikation flach. Allerdings fehlt in diesem Fall noch ein wichtiges Feld der Tabelle MSysIMEXSpecs<\/b>: nämlich der Name der Spezifikation. Dieses Feld fügen Sie noch ganz oben im Formular ein.<\/p>\n Außerdem fehlt noch eine Funktion, welche in Abhängigkeit von der Auswahl der Option Dateiformat <\/b>(Mit Trennzeichen<\/b>\/Feste Breite<\/b>) die beiden Felder Start <\/b>und Breite <\/b>des Unterformulars ein- und ausblendet.<\/p>\n Legen Sie dazu eine neue Prozedur an, welche die beiden Steuerelemente txtStart <\/b>und txtWidth <\/b>in Abhängigkeit vom Wert der Optionsgruppe ein- und ausblendet. Diese Prozedur sieht wie in Listing 1<\/a><\/span> aus.<\/p>\n Listing 1: Diese Prozedur führt den eigentlichen Suchvorgang durch.<\/p>\n Diese Prozedur soll nicht nur ausgelöst werden, wenn der Benutzer die Einstellung der Optionsgruppe ändert, sondern auch beim Wechseln des Datensatzes. Legen Sie also die folgenden beiden Ereigniseigenschaften an:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Das fertige Formular sieht nun wie in Bild 14 aus. Wenn Sie die Lösung in eigenen Datenbanken einsetzen möchten, brauchen Sie nur die beiden Formular frmSpezifikationen <\/b>und sfmSpezifikationen <\/b>in diese Datenbank zu importieren und gegebenenfalls bei .mdb<\/b>-Datenbanken die Tabellen MSysIMEXSpecs <\/b>und MSysIMEXColumns <\/b>zu entsichern. Danach können Sie nach Lust und Laune bestehende Spezifikationen anpassen.<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic006.png\")
<\/p>\n\n
DoCmd.TransferText acExportDelim, "Kategorien Exportspezifikation", "tblKategorien", CurrentProject.Path & "\\Kategorien.txt", True<\/pre>\n
\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic008.png\")
<\/p>\n\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic010.png\")
<\/p>\nPublic Sub SpecsAnpassen()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("MSysIMEXSpecs", dbOpenDynaset)\r\n rst.AddNew\r\n rst!SpecName = "Testspezifikation"\r\n rst.Update\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic011.png\")
<\/p>\nSet rst = db.OpenRecordset("MSysObjects", dbOpenDynaset)\r\nrst.AddNew\r\nrst!ID = 99999999\r\nrst!Name = "Testobjekt"\r\nrst.Update<\/pre>\nDebug.Print CurrentDB.TableDefs("MSysObjects").Attributes\r\n-2147483648<\/pre>\nDebug.Print CurrentDB.TableDefs("MSysIMEXSpecs").Attributes<\/pre>\nCurrentDB.TableDefs("MSysIMEXSpecs").Attributes = 0<\/pre>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic012.png\")
<\/p>\n'','';'';'';{Tabulatorzeichen};{Leerzeichen}<\/pre>\nPublic Sub FormulareUndSteuerelemente()\r\n Dim frm As Form\r\n Dim ctl As Control\r\n Dim cbo As ComboBox\r\n For Each frm In Forms\r\n Debug.Print frm.Name\r\n For Each ctl In frm.Controls\r\n Select Case ctl.ControlType\r\n Case acComboBox\r\n Set cbo = ctl\r\n With cbo\r\n Debug.Print cbo.Name\r\n Debug.Print cbo.RowSource\r\n End With\r\n Case Else\r\n Debug.Print ctl.Name, ctl.ControlType\r\n End Select\r\n Next ctl\r\n Next frm\r\nEnd Sub<\/pre>\n
0;Alle;1031;Deutsch<\/pre>\n
@;"{kein}"<\/pre>\nPrivate Sub cboLanguage_AfterUpdate()\r\n CodepagesAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub CodepagesAktualisieren()\r\n Select Case Me!cboLanguage\r\n Case 0 ''Alle\r\n Me!cboFileType.RowSource = "864;""Arabisch (864)""; ..."\r\n Case 1031 ''Deutsch\r\n Me!cboFileType.RowSource = "21027;""Ext Alpha Kleinbuchstaben"";..."\r\n End Select\r\nEnd Sub<\/pre>\n
\n
Private Sub Form_Current()\r\n Dim lngFileType As Long\r\n lngFileType = Nz(Me!cboFileType)\r\n Me!cboLanguage = "1031"\r\n CodepagesAktualisieren\r\n Me!cboFileType.SetFocus\r\n If Len(Me!cboFileType.Text) = 0 Then\r\n Me!cboLanguage = 0\r\n CodepagesAktualisieren\r\n End If\r\n Me!cboFileType = lngFileType\r\nEnd Sub<\/pre>\n
![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic013.png\")
<\/p>\nPrivate Sub SteuerelementeEinAusblenden()\r\n Dim sfm As Form\r\n Set sfm = Me.sfmSpezifikationen.Form\r\n Select Case Me!ogrSpecType\r\n Case 1 ''Mit Trennzeichen\r\n sfm.Controls("txtStart").ColumnHidden = True\r\n sfm.Controls("txtWidth").ColumnHidden = True\r\n Case 2 ''Feste Spaltenbreite\r\n sfm.Controls("txtStart").ColumnHidden = False\r\n sfm.Controls("txtWidth").ColumnHidden = False\r\n End Select\r\nEnd Sub<\/pre>\nPrivate Sub ogrSpecType_AfterUpdate()\r\n SteuerelementeEinAusblenden\r\nEnd Sub\r\nPrivate Sub Form_Current()\r\n SteuerelementeEinAusblenden\r\n ... weitere bereits vorhandene Anweisungen\r\nEnd Sub<\/pre>\n
![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2011_04\/ImportExportSpezifikationen-web-images\/pic014.png\")
<\/p>\n