![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic001.png\")
<\/p>\n
Bild 1: Dialog zum Aktivieren der Anzeige der Systemtabellen von Access<\/span><\/b><\/p>\n Anschlie\u00dfend erscheinen die Systemtabellen bereits im Navigationsbereich (s. Bild 2). Wenn Sie im vorherigen Dialog noch die Option Ausgeblendete Objekte anzeigen <\/b>aktivieren, erscheinen noch weitere Tabellen – f\u00fcr die Anzeige der Tabelle MSysObjects <\/b>reicht jedoch das Aktivieren von Systemobjekte anzeigen<\/b>.<\/p>\n Bild 2: Systemtabellen im Navigationsbereich<\/span><\/b><\/p>\n Wenn die Systemobjekte derzeit ausgeblendet sind und Sie keine Lust haben, diese f\u00fcr einen kurzen Blick in die Tabelle MSysObjects <\/b>\u00fcber die Navigationsoptionen einzublenden, \u00f6ffnen Sie die Tabelle einfach per VBA.<\/p>\n Dazu setzen Sie einfach die folgende Anweisung im Direktbereich des VBA-Editors (Strg + G<\/b>) ab:<\/p>\n Die Tabelle erscheint daraufhin in der Datenblattansicht – hier mit einigen ausgeblendeten Feldern (s. Bild 3). Insgesamt enth\u00e4lt die Tabelle folgende Felder, einige davon nehmen wir sp\u00e4ter unter die Lupe:<\/p>\n Bild 3: Einige Eintr\u00e4ge der Systemtabelle MSysObjects<\/span><\/b><\/p>\n In den folgenden Abschnitten beschreiben wir die n\u00fctzlichsten Felder dieser Tabelle.<\/p>\n Felder, die hier nicht aufgef\u00fchrt werden, sind in der Regel schlecht dokumentiert und werden daher hier nicht beschrieben.<\/p>\n Das Feld Connect <\/b>enth\u00e4lt die Verbindungszeichenfolge, wenn das Objekt eine per ODBC verkn\u00fcpfte Tabelle ist – also beispielsweise eine Tabelle, die auf einem SQL Server oder einem MySQL-Server liegt. Die Verbindungszeichenfolge wird hier im Klartext gespeichert, Sie sollten also tunlichst keine Benutzernamen oder Kennw\u00f6rter angeben. Beispiel:<\/p>\n Wird eine Tabelle aus einer anderen Datenbank oder auch aus einer Textdatei oder einer Exceltabelle eingebunden, handelt es sich um eine Jet-Verkn\u00fcpfung.<\/p>\n Eine solche speichert den Dateinamen der Quelldatei, also etwa einer Access-Datenbankdatei, einer Textdatei oder einer Excel-Datei, im Feld Database<\/b>. Beispiel:<\/p>\n Diese beiden Felder speichern das Datum der Erstellung des Objekts sowie der letzten Aktualisierung.<\/p>\n Das Feld Flags<\/b> enth\u00e4lt einen Zahlenwert, der weitere Informationen \u00fcber den Typ des Objekts liefert. Weitere Informationen zu den Werten dieses Feldes finden Sie weiter unten in Zusammenhang mit den verschiedenen Objekttypen.<\/p>\n Das Feld ForeignName <\/b>findet f\u00fcr verkn\u00fcpfte Tabellen Verwendung. Wenn Sie beispielsweise eine Tabelle namens tblTest <\/b>einer anderen Datenbank mit der aktuellen Datenbank verkn\u00fcpfen und es ist bereits eine Tabelle gleichen Namens vorhanden, erh\u00e4lt die Verkn\u00fcpfung in der aktuellen Tabelle einen anderen Namen im Feld Name<\/b>. F<\/strong>oreignName <\/b>hingegen beh\u00e4lt den Namen der Originaltabelle bei.<\/p>\n Das Feld Id <\/b>dient schlicht und einfach als eindeutiger Bezeichner und Prim\u00e4rschl\u00fcsselfeld f\u00fcr ein Objekt. Es ist jedoch nicht als Autowertfeld definiert.<\/p>\n Das Feld Name <\/b>enth\u00e4lt den Namen des Objekts, wie er auch im Datenbankfenster beziehungsweise Navigationsbereich erscheint.<\/p>\n Das Feld ParentId <\/b>enth\u00e4lt einen Long<\/b>-Wert, der \u00fcber das Feld Id <\/b>auf einen \u00fcbergeordneten Datensatz der Tabelle MSysObjects <\/b>verweist. So enthalten dort beispielsweise alle Objekte des Typs Formular <\/b>den gleichen Wert, den der Datensatz mit dem Wert Forms <\/b>im Feld Name <\/b>im Feld Id <\/b>enth\u00e4lt.<\/p>\n Dieses Feld speichert einen Zahlenwert, der dem Objekttyp entspricht. Auf diese Weise lassen sich beispielsweise Tabellen, Abfragen oder Formulare identifizieren. Mehr dazu weiter unten unter Objekte nach Objekttyp filtern<\/b>.<\/p>\n In den folgenden Abschnitten schauen wir uns einige Abfragen an, mit denen Sie wichtige Informationen aus der Tabelle MSysObjects <\/b>ziehen k\u00f6nnen.<\/p>\n <\/p>\n Interessant ist hier eigentlich nur der Weg, diese Tabelle verf\u00fcgbar zu machen, wenn sie nicht im Datenbankfenster beziehungsweise Navigationsbereich angezeigt wird – sie erscheint dann n\u00e4mlich auch nicht im Auswahldialog der Tabellen und Abfragen.<\/p>\n<\/p>\n Dazu \u00f6ffnen Sie eine neue Abfrage, schlie\u00dfen den Dialog Tabelle anzeigen<\/b> und wechseln in die SQL-Ansicht<\/b>. Dort tragen Sie einfach die folgende Abfrage ein (s. Bild 4):<\/p>\n Bild 4: Zugriff auf die Tabelle MSysObjects per Abfrage<\/span><\/b><\/p>\n Wenn Sie nun in die Entwurfsansicht wechseln, finden Sie dort auch die gew\u00fcnschte Tabelle vor (s. Bild 5). Nun f\u00fcgen Sie die ben\u00f6tigten Felder hinzu.<\/p>\n Bild 5: Abfrageentwurf mit der Tabelle MSysObjects<\/span><\/b><\/p>\n Wenn Sie einmal ermitteln m\u00f6chten, welche Objekte zuletzt ge\u00e4ndert wurden, verwenden Sie die Abfrage qryZuletztGeaendert <\/b>der Beispieldatenbank.\u00a0Diese sieht im Entwurf wie in Bild 6 aus und zeigt die Felder Name<\/b>, Type<\/b>, DateCreate <\/b>und DateUpdate <\/b>an.<\/p>\n Bild 6: Sortieren der Objekte nach dem \u00c4nderungsdatum<\/span><\/b><\/p>\n Die Abfrage sortiert die Datens\u00e4tze in absteigender Reihenfolge nach dem Feld DateUpdate<\/b>.<\/p>\n Wenn Sie die Objekte nach Ihrem Typ filtern m\u00f6chten, also etwa nach Tabelle, Abfrage, Formular et cetera, verwenden Sie haupts\u00e4chlich das Feld Type<\/b> als Filterkriterium.<\/p>\n Hier k\u00f6nnen wir zun\u00e4chst die folgenden Werte als charakteristisch f\u00fcr die verschiedenen Objekttypen feststellen:<\/p>\n Bild 7: Auch Unterdatenbl\u00e4tter erhalten in der Tabelle MSysObjects einen eigenen Eintrag.<\/span><\/b><\/p>\n Wie Sie bereits gesehen haben, gibt es drei Werte im Feld Type<\/b>, die auf Tabellen hindeuten – 1 <\/b>f\u00fcr lokale Tabellen, 4 <\/b>f\u00fcr ODBC-Tabellen und 6 <\/b>f\u00fcr per Jet verkn\u00fcpfte Tabellen.<\/p>\n Bei den lokalen Tabellen d\u00fcrfte es Sie noch interessieren, welche davon benutzerdefiniert sind und bei welchen es sich um Systemtabellen handelt.<\/p>\n Der Unterschied ist leicht zu erkennen: Systemtabellen beginnen mit der Zeichenfolge MSys <\/b>und sind in der Regel schreibgesch\u00fctzt.<\/p>\n Es gibt auch noch Tabellen, die mit USys <\/b>beginnen. Diese sind jedoch benutzerdefiniert und dienen nur speziellen Zwecken.<\/p>\n Die Tabelle USysRegInfo <\/b>etwa finden Sie in Access-Add-In-Datenbanken (.mda <\/b>und .accda<\/b>). Sie enth\u00e4lt Informationen, wie die Datenbank in der Registry registriert und so als Add-In zug\u00e4nglich gemacht werden soll.<\/p>\n Die Tabelle USysRibbons <\/b>wiederum wird ab Access 2007 verwendet, um die in einer Anwendung verf\u00fcgbaren Ribbon-Definitionen im XML-Format abzulegen.<\/p>\n Die meisten Systemtabellen zeichnen sich dadurch aus, dass sie nur durch Access selbst ge\u00e4ndert werden k\u00f6nnen. Anders ist dies bei den Tabellen, die mit MSysNav <\/b>beginnen (ab Access 2007).<\/p>\n Diese enthalten Informationen dar\u00fcber, wie die Objekte im Navigationsbereich angezeigt werden. Sie k\u00f6nnen diese l\u00f6schen, aber Access stellt sie beim n\u00e4chsten \u00d6ffnen der Datenbank wieder her.<\/p>\n Seit Access 2010 gibt es eine Tabelle namens MSysResources<\/b>. Diese enth\u00e4lt Dateien, die f\u00fcr die aktuelle Anwendung ben\u00f6tigt werden – zum Beispiel Bilddateien, die Schaltfl\u00e4chen oder Bildsteuerelementen zugeordnet wurden oder Dateien mit Design-Informationen. Auch diese Tabelle k\u00f6nnen Sie l\u00f6schen, sie wird jedoch beim Einf\u00fcgen eines Bildes oder einer Datei wiederhergestellt.<\/p>\n Nun ben\u00f6tigen wir noch eine Abfrage, mit der wir die verschiedenen Tabellentypen ermitteln und ausgeben k\u00f6nnen – samt lesbaren Informationen statt Zahlenwerten.<\/p>\n Diese Abfrage sieht im Entwurf wie in Bild 8 aus und filtert zun\u00e4chst alle Datens\u00e4tze der Tabelle MSysObjects <\/b>nach dem Inhalt des Feldes Type<\/b>. Dabei liefert die Abfrage nur solche Datens\u00e4tze, deren Wert 1<\/b>, 4 <\/b>oder 6 <\/b>betr\u00e4gt.<\/p>\n Bild 8: Abfrage zum Ermitteln der Tabellen und ihrer Details<\/span><\/b><\/p>\n Damit erhalten Sie bereits alle Tabellen. Nun wollen wir weitere Informationen: Ist die Tabelle per ODBC oder per Jet eingebunden? Woher stammt die Tabelle, wenn es sich um eine verkn\u00fcpfte Tabelle handelt<\/p>\n Diese Informationen lassen sich aus dem Feld Flags <\/b>gewinnen. Das Feld rechts im Abfrageentwurf enth\u00e4lt einen Ausdruck, der die in diesem Feld enthaltenen Informationen mithilfe einer Funktion aufschl\u00fcsselt:<\/p>\n Die Funktion Tabellentyp<\/b> erwartet als Parameter den Long<\/b>-Zahlenwert aus dem Feld Flags <\/b>und liefert eine Zeichenkette mit der Beschreibung des Tabellentyps zur\u00fcck (s. Listing 1<\/a><\/span>).<\/p>\n Listing 1: Ermitteln von Detailinformationen zum Tabellentyp<\/p>\n Dabei pr\u00fcft die Tabelle zun\u00e4chst, ob das Feld Flags <\/b>den Wert 0 <\/b>hat – dies weist auf eine lokale, benutzerdefinierte und sichtbare Access-Tabelle hin. Dann landet der Ausdruck |Access-Tabelle <\/b>in der Variablen strTemp<\/b>.<\/p>\n Anderenfalls folgen einige weitere Pr\u00fcfungen, bei denen die Funktion einen Bin\u00e4rvergleich zwischen dem Wert in lngFlags <\/b>und bestimmten charakteristischen Werten durchf\u00fchrt. Wenn lngFlags <\/b>beispielsweise den Wert -2.147.483.648 <\/b>enth\u00e4lt, handelt es sich um eine Systemtabelle und der Ausdruck |Systemtabelle <\/b>wird der Variablen strTemp <\/b>angeh\u00e4ngt.<\/p>\n Auf diese Weise gleicht die Funktion den Wert in lngFlags <\/b>mit den g\u00e4ngigen Werten ab und f\u00fcgt die entsprechenden Hinweistexte an die Variable strTemp <\/b>an. Gegebenenfalls sind dies auch mehrere, deshalb verwendet die Funktion mehrere aufeinanderfolgende If…Then<\/b>-Statements und nicht etwa eine Select Case<\/b>-Bedingung. Schlie\u00dflich pr\u00fcft die Funktion, ob strTemp <\/b>\u00fcberhaupt einen Wert enth\u00e4lt, und schneidet das erste Pipe-Zeichen (|<\/b>) im Ausdruck ab.<\/p>\n Das Ergebnis gibt die Funktion an die aufrufende Anweisung in der Abfrage zur\u00fcck. F\u00fcr die Tabellen der Beispieldatenbank sieht dies etwa wie in Bild 9 aus.<\/p>\n Bild 9: Tabellen der Beispieldatenbank mit der Beschreibung des Tabellentyps<\/span><\/b><\/p>\n Schlie\u00dflich subtrahiert die Funktion innerhalb jeder If…Then<\/b>-Bedingung den gefundenen Wert von lngFlags <\/b>ab. Sollte lngFlags <\/b>nach dem Durchlaufen aller If…Then<\/b>-Bedingungen noch gr\u00f6\u00dfer als 0 <\/b>sein, enth\u00e4lt lngFlags <\/b>noch nicht behandelte Eigenschaften. Dann verwenden Sie vielleicht eine Verkn\u00fcpfung zu einer hier nicht ber\u00fccksichtigten Datenherkunft.<\/p>\n Wenn Sie alle Abfragen einer Datenbank ermitteln m\u00f6chten, filtern Sie eine SELECT<\/b>-Abfrage auf Basis der Tabelle MSysObjects <\/b>nach dem Wert 5 <\/b>im Feld Type<\/b>:<\/p>\n Auch hier liefert das Feld Flags<\/b> noch weitere Informationen, die wir im folgenden Abschnitt unter die Lupe nehmen.<\/p>\n Das Feld Flags <\/b>kann beispielsweise die folgenden Werte annehmen:<\/p>\n Die Abfrage qryAlleAbfragenMitEigenschaften <\/b>liefert die Namen aller Abfragen samt Flags<\/b>-Feld und einer Beschreibung des Abfragetyps (s. Bild 10).<\/p>\n Bild 10: Abfrage zur Ausgabe von Abfragen mit Abfragetyp<\/span><\/b><\/p>\n Auch diese Abfrage arbeitet wieder mit einer VBA-Funktion zum Ermitteln des Abfragetyps auf Basis des Wertes im Feld Flags<\/b>.<\/p>\n Details dazu finden Sie in der Funktion Abfragetyp <\/b>im Modul mdlTools <\/b>der Beispieldatenbank. Damit erhalten Sie das Ergebnis aus Bild 11.<\/p>\n Bild 11: Alle Abfragen mit Detailinformationen<\/span><\/b><\/p>\n Wenn Sie wissen, wie Sie Informationen \u00fcber die verschiedenen Datenbankobjekte aus der Tabelle MSysObjects <\/b>auslesen k\u00f6nnen, erhalten Sie ein wichtiges Werkzeug – gerade wenn Sie etwa von Access-Add-Ins aus auf Tabellen und Abfragen zugreifen m\u00f6chten.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n MSysObjects.mdb<\/p>\n Download<\/a><\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic002.png\")
<\/p>\nMSysObjects per VBA \u00f6ffnen<\/h2>\n
DoCmd.OpenTable \"MSysObjects\"<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic003.png\")
<\/p>\n\n
Connect<\/h2>\n
DRIVER={SQL Server};SERVER=MeinServer;\nDATABASE=MeineDatenbank;UID=MeinBenutzername;\nPWD=MeinKennwort;<\/pre>\nDatabase<\/h2>\n
c:DatenbankenBeispiel.mdb<\/pre>\n
DateCreate und DateUpdate<\/h2>\n
Flags<\/h2>\n
ForeignName<\/h2>\n
Id<\/b><\/h2>\n
Name<\/h2>\n
ParentId<\/h2>\n
Type<\/h2>\n
Abfragen auf Basis der Tabelle MSysObjects<\/h2>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic004.png\")
<\/p>\nSELECT * FROM MSysObjects;<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic005.png\")
<\/p>\nObjekte aus MSysObjects nach \u00c4nderungsdatum<\/h2>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic006.png\")
<\/p>\nObjekte aus MSysObjects nach Objekttyp filtern<\/h2>\n
\n
![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic012.png\")
<\/p>\nNur benutzerdefinierte Tabellen aus MSysObjects ermitteln<\/h2>\n
Verschiedene Tabellentypen aus MSysObjects ermitteln<\/h2>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic008.png\")
<\/p>\nTabellentyp: Tabellentyp([Flags])<\/pre>\n
Public Function Tabellentyp(lngFlags As Long) As String\n Dim strTemp As String\n If lngFlags = 0 Then\n strTemp = strTemp & \"|Access-Tabelle\"\n Else\n If (lngFlags And -2147483648#) = -2147483648# Then\n strTemp = strTemp & \"|Systemtabelle\"\n lngFlags = lngFlags - (-2147483648#)\n End If\n If (lngFlags And 2) = 2 Then\n strTemp = strTemp & \"|Systemtabelle|Nicht schreibgesch\u00fctzt\"\n lngFlags = lngFlags - (2)\n End If\n If (lngFlags And 8) = 8 Then\n strTemp = strTemp & \"|Ausgeblendet\"\n lngFlags = lngFlags - (8)\n End If\n If (lngFlags And 11534336) = 11534336 Then\n strTemp = strTemp & \"|Excel-Tabelle\"\n lngFlags = lngFlags - (11534336)\n End If\n If (lngFlags And 10485760) = 10485760 Then\n strTemp = strTemp & \"|Textdatei\"\n lngFlags = lngFlags - (10485760)\n End If\n If (lngFlags And 2097152) = 2097152 Then\n strTemp = strTemp & \"|Verkn\u00fcpfte Accesstabelle\"\n lngFlags = lngFlags - (2097152)\n End If\n If (lngFlags And 1048576) = 1048576 Then\n strTemp = strTemp & \"|Verkn\u00fcpfte ODBC-Tabelle\"\n lngFlags = lngFlags - (1048576)\n End If\n End If\n If Len(strTemp) > 0 Then\n strTemp = Mid(strTemp, 2)\n End If\n If lngFlags > 0 Then\n Debug.Print \"Unbekanntes Tabellenflag: \" & lngFlags\n End If\n Tabellentyp = strTemp\nEnd Function<\/pre>\n
Weitere Pr\u00fcfungen<\/h2>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic009.png\")
<\/p>\nAbfragen aus MSysObjects ermitteln<\/h2>\n
SELECT Name, Type\nFROM MSysObjects\nWHERE Type=5;<\/pre>\n
Abfragetyp aus MSysObjects ermitteln<\/h2>\n
\n
![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2013_02\/MSysObjects-web-images\/pic011.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n
Weitere interessante Artikel zu diesem Thema<\/h2>\n