FAQ13_A97_FE.mdb, FAQ13_A97_BE.mdb FAQ13_A00_FE.mdb, FAQ13_A00_BE.mdb<\/a><\/p>\n<\/h3>\n
Karl Donaubauer, Wien<\/b><\/p>\n
In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im dreizehnten Teil werden Lösungen für weitere häufige Probleme und Bugs bei der VBA-Programmierung vorgestellt.<\/b><\/p>\n
In vielen Situationen muss man ermitteln, ob und wie viele Datensätze eine Tabelle oder Abfrage oder ein Recordset enthält. Dafür existieren mehrere Ansätze mit unterschiedlichen Vor- und Nachteilen. Kurz und schnell geschrieben ist die Domänenaggregatfunktion DomAnzahl (DCount in VBA): <\/p>\n
DCount(\"*\", \"Tabelle\")<\/pre>\nDomänenaggregatfunktionen sind allgemein als langsam verschrieen. Das stimmt auch in manchen Fällen, vor allem bei der Verwendung in Abfragen, weil die JET-Datenbank-Engine solche Zugriffe nicht optimieren kann, keinen Ausführungsplan verwenden kann und daher alle Datensätze der Domäne ziehen muss. In vielen Fällen lassen sie sich allerdings durchaus brauchbar einsetzen. Testen Sie am besten in der konkreten Anwendung und Umgebung und vor allem mit den zu erwartenden Datenmengen. Ein großer Vorteil der D-Funktionen ist die relativ einfache und kurze Syntax. Ein anderer ist ihre universelle Einsetzbarkeit, sowohl in Steuerelementinhalten wie in Abfragen oder in VBA.<\/p>\n
Eine andere Möglichkeit ist die Verwendung der SQL-Aggregatfunktion Count. Der SQL-String einer Abfrage könnte so aussehen:<\/p>\n
SELECT Count(*) AS [AnzahlDS] FROM Tabelle;<\/pre>\nDiese Methode ist schneller als DCount. Wenn Sie das Ergebnis allerdings außerhalb der Abfrage benötigen, müssen Sie es zum Beispiel mit einem DAO-Recordset abrufen.<\/p>\n
DAO bietet zum Zählen der Datensätze die Eigenschaft RecordCount. Der Code im Beispielformular frmDSZaehlen sieht so aus:<\/p>\n
Dim db As DAO.Database\r\nDim rs As DAO.Recordset\r\nSet db = CurrentDb\r\nSet rs = db.OpenRecordset(\"SELECT * FROM tblArtikel\", dbOpenDynaset)\r\nIf Not rs.BOF Then\r\n rs.MoveLast\r\n Me!txtRecordCountMit = rs.RecordCount\r\nEnd If<\/pre>\nVor der Verwendung von RecordCount ist es unbedingt notwendig, mit der MoveLast-Methode zum letzten Datensatz des Recordsets zu springen, damit die richtige Anzahl von Datensätzen ermittelt wird. Der Wechsel zum letzten Datensatz braucht bei großen Recordsets natürlich einige Zeit und sollte deshalb nur durchgeführt werden, wenn Sie wirklich sofort die genaue Datensatzanzahl brauchen. Ohne MoveLast ergibt RecordCount 1, wenn Datensätze vorhanden sind, und 0, wenn keine vorhanden sind (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic001.png\")
<\/p>\n
Bild 1: Varianten zum Zählen von Datensätzen<\/span><\/b><\/p>\nWenn das Recordset leer ist, erzeugt MoveLast den Laufzeitfehler 3021 „Kein Aktueller Datensatz“. Deshalb wird im Beispielcode vor dem MoveLast auf BOF geprüft.<\/p>\n
Wenn ein DAO-Recordset geöffnet wird, gibt es zwei mögliche Positionen: Falls Datensätze vorhanden sind, steht der Zeiger zuverlässig auf dem ersten Datensatz. Die OpenRecordset-Methode hat nämlich ein MoveFirst eingebaut. Ein anfängliches, ausdrückliches MoveFirst im Code, wie man es oft sieht, ist daher nicht notwendig. Falls hingegen keine Datensätze vorhanden sind, sind sowohl die Eigenschaften BOF als auch EOF True. Sie können also wahlweise das eine oder das andere prüfen. Die beliebte Prüfung auf beides ist daher wiederum nicht notwendig.<\/p>\n
Wenn es nur darum geht, zu erfahren, ob ein Recordset überhaupt Datensätze hat, und andernfalls zum Beispiel das Durchlaufen des Recordsets ganz zu unterlassen, dann reicht:<\/p>\n
If rs.BOF Then Exit Sub<\/pre>\nDie schnellste Suche in DAO ist mit der Seek-Methode möglich. Der Grund ist, dass anders als bei FindFirst ein Index verwendet werden kann, der die Suche wesentlich beschleunigt. Je größer die Tabelle, desto größer der Geschwindigkeitsvorteil. Die Seek-Methode hat jedoch den Nachteil, dass sie nur bei Recordsets vom Typ Table anwendbar ist. Dieser ist wiederum nur für Tabellen verfügbar, die sich in der aktuellen Datenbank befinden.<\/p>\n
Wenn Sie OpenRecordset auf eine Tabelle in der aktuellen Datenbank anwenden und dabei den Parameter für den Typ nicht angeben, wird automatisch der Typ Table verwendet.<\/p>\n
Bei eingebundenen Tabellen hingegen, die der Regelfall in professionell gestalteten Anwendungen sind, ist der Standardtyp Dynaset und der Typ Table nicht verfügbar. Wie die Seek-Methode im Normalfall funktioniert, zeigt der Code der ersten Schaltfläche im Beispielformular frmSeek:<\/p>\n
Dim db As dao.Database\r\nDim rs As dao.Recordset\r\nSet db = CurrentDb\r\nSet rs = db.OpenRecordset(\"tblArtikel\", dbOpenTable)\r\nrs.Index = \"PrimaryKey\"\r\nrs.Seek \"=\", \"13\"\r\nIf Not rs.NoMatch Then\r\n Me!txtSeekIntern = rs!Bezeichnung\r\nEnd If<\/pre>\nEs wird also ein Recordset vom Typ Table geöffnet, die Index-Eigenschaft des Recordsets auf den Namen eines in der Tabelle vorhandenen Indexes gesetzt und dann bei Seek der Operator und der Vergleichsausdruck angegeben.<\/p>\n
Wenn man den gleichen Code für eine eingebundene Tabelle verwendet, erzeugt das den Laufzeitfehler „3219: unzulässige Operation“, weil hier der Typ Table eben nicht zulässig ist. Lässt man die Typangabe dbOpenTable weg, erzeugt der Code wegen des Seek den etwas aussagekräftigeren Laufzeitfehler „3251: Operation wird für diesen Objekttyp nicht unterstützt!“.<\/p>\n
Die Lösung ist, als Database nicht Currentdb zu verwenden, sondern mit Opendatabase die externe Datenbank für den Zugriff zu öffnen und dann wieder ein Recordset vom Typ Table zu verwenden:<\/p>\n
Set db = DBEngine.Workspaces(0). _ OpenDatabase(\"externe DB\")\r\nSet rs = db.OpenRecordset _ (\"externe Tabelle\", dbOpenTable)<\/pre>\nAuch diese Methode wird in der Beispieldatenbank demonstriert.<\/p>\n
JET-Datenbanken haben leider die Tendenz, sich auch ohne Datenzuwachs aufzublähen. Die Ursachen sind vielfältig: Bewusst gelöschte Datensätze und Objekte, temporäre Objekte, die Access zur Verarbeitung braucht, diverse Bugs und Probleme von DAO und schlecht kompilierter Code. Bei den meisten dieser Gründe hilft das Komprimieren der Datenbank. Wenn Sie das Komprimieren automatisch durchführen lassen möchten, so haben Sie mit Access 97 schlechte Karten. Das einzig einfache automatisierte Komprimieren ist in Access 97 mit der Sendkeys-Methode möglich:<\/p>\n
SendKeys \"%xdk\"<\/pre>\nMit diesem Code wird die Tastenkombination aufgerufen, die den normalen Menüpunkt zum Komprimieren aufruft: Extras\/Datenbank-Dienstprogramme\/Datenbank komprimieren.<\/p>\n
Leider hat Sendkeys den bekannten Bug, dass es gerne, wenn auch nicht immer, die NumLock-Taste deaktiviert. Zudem ist es oft unmöglich, die Umgebung beim Anwender zu kontrollieren und daher zu wissen, ob der Menüpunkt gerade sichtbar und zugänglich ist und was eine bestimmte Tastenkombination bei den gerade offenen Programmen und Einstellungen am Arbeitsplatz auslöst. Deshalb ist eine grundsätzliche Skepsis gegenüber Sendkeys-Notlösungen angebracht.<\/p>\n
Eine andere Möglichkeit in Access 97 ist die Verwendung des TSI SOON (Shut One, Open New) database add-in von Michael Kaplan (http:\/\/www.trigeminal.com\/utility.asp). Dieses Add-In muss natürlich installiert, weitergegeben und aufgerufen werden.<\/p>\n
Mit Access 2000 hat Microsoft endlich eine Möglichkeit zum automatisierten Komprimieren eingebaut. Im Menü\/Extras\/Optionen\/Allgemein lässt sich einstellen, dass die Datenbank beim Schließen komprimiert werden soll.<\/p>\n
Wenn Sie die Datenbank hingegen während des laufenden Betriebes komprimieren lassen wollen, so gibt es ebenfalls ab Access 2000 eine wesentlich stabilere und sicherere Methode, um den Menüpunkt für das Komprimieren per VBA aufzurufen, nämlich über die Standardaktion des entsprechenden Commandbar-Objektes (in einer Zeile):<\/p>\n
CommandBars(\"MenuBar\").Controls(\"Extras\").Controls(\"Datenbank-Dienstprogramme\").Controls(\"Datenbank komprimieren und reparieren...\").accDoDefaultAction<\/pre>\nVöllig unterschiedlich ist das Vorgehen zum automatisierten Komprimieren einer anderen Datenbank. Meist geht es darum, das Daten-Backend der aktuellen Frontend-mdb zu komprimieren. Die wichtigste Voraussetzung dafür ist, dass die andere MDB nicht geöffnet ist. Das heißt, Sie müssen dafür sorgen, dass beim Komprimieren nicht durch offene Formulare oder andere Datenbankobjekte auf Daten aus eingebundenen Tabellen zugegriffen wird. Ebenso dürfen keine Codeobjekte wie etwa Recordsets geöffnet sein, die auf Tabellen der zu komprimierenden Datenbank basieren. Quellcode 1 zeigt den für das Komprimieren nötigen Code.<\/p>\n
<\/p>\n
Quellcode 1: Komprimieren einer Datenbank<\/b><\/p>\nPublic Sub procCompactOtherDB(strPath As String)\r\n On Error GoTo myError\r\n DoCmd.Hourglass True\r\n Dim strFile As String\r\n Dim varDummyPath As Variant\r\n Dim varDummyFile As Variant\r\n strFile = Dir(strPath)\r\n varDummyPath = Left$(strPath, Len(strPath) - Len(strFile))\r\n varDummyFile = varDummyPath & \"Dummy.mdb\"\r\n DBEngine.CompactDatabase strPath, varDummyFile\r\n Kill strPath\r\n Name varDummyFile As strPath\r\nmyExit:\r\n DoCmd.Hourglass False\r\n Exit Sub\r\nmyError:\r\n Select Case Err.Number\r\n Case 3005, 3024, 53, 3044, 76\r\n MsgBox \"Datenbank nicht gefunden.\", vbOKOnly\r\n Case 3196\r\n MsgBox \"Datenbank in Benutzung.\", vbOKOnly\r\n Case Else\r\n MsgBox \"Ausnahme Nr. \" & Err.Number _ & \". Das heißt: \" & Err.Description\r\n End Select\r\n Resume myExit\r\nEnd Sub<\/pre>\nEs handelt sich um eine Public Sub, die Sie am besten in ein Standardmodul kopieren. Der Aufruf erfolgt mit:<\/p>\n
procCompactOtherDB \"PfadUndNameDerZuKomprimierenden.mdb\"<\/pre>\nDer Kern des Codes ist die Methode CompactDatabase. Diese Methode benötigt als Parameter Pfad und Name der Quelldatenbank und einen unterschiedlichen Namen für die komprimierte Zieldatenbank.<\/p>\n
Das ist an sich fein, denn damit kann man CompactDatabase sehr einfach zum Erzeugen einer anders benannten und noch dazu komprimierten Backup-Kopie verwenden. In der Praxis will man aber meistens, dass das Backend nach dem Komprimieren genauso heißt wie vorher. Deshalb wird in Quellcode 1 eine Dummy.mdb im Ordner der Quelldatenbank als Zieldatenbank angegeben. Nach dem Komprimieren wird die unkomprimierte Quelldatenbank mit der Kill-Anweisung gelöscht und die komprimierte Dummy.mdb erhält mithilfe der Name-Anweisung den Namen der ursprünglichen Quelldatenbank. In der Fehlerbehandlung werden die häufigsten Fehlernummern abgefragt, die in verschiedenen Access-Versionen bei diesen Vorgängen auftreten können.<\/p>\n
Ein großes Problem von Access war und ist die Sicherheit im Sinne des Schutzes der Daten und Anwendung vor neugierigen Blicken. Ich werde im Laufe des Artikels noch einmal auf diese Problematik eingehen. Einer der vielen kleinen Tricks, die gerne verwendet werden, um zumindest unbedarfte Anwender vom Einsehen der Datenbankobjekte abzuhalten, ist das Ausblenden des Datenbankfensters.<\/p>\n
Das Ausblenden und Einblenden des Datenbankfensters können Sie auch sehr einfach per Code regeln. Zum Einblenden brauchen Sie nur mit der Methode SelectObject ein Objekt im Datenbankfenster aufzurufen. Da der Objektname der Methode optional ist, müssen Sie nicht einmal ein Objekt angeben, sondern es reicht der Objekttyp:<\/p>\n
DoCmd.SelectObject acTable, , True<\/pre>\nWichtig ist hingegen, dass der dritte Parameter auf True steht, damit das Phantomobjekt auch wirklich im Datenbankfenster ausgewählt wird.<\/p>\n
Zum Ausblenden wird genau die gleiche Zeile verwendet, gefolgt vom RunCommand-Befehl, der dem Menüpunkt Fenster\/Ausblenden entspricht:<\/p>\n
DoCmd.SelectObject acTable, , True\r\nRunCommand acCmdWindowHide<\/pre>\nQuellcode 2: Formatieren von Meldungsfenstern<\/b><\/p>\nFunction FormattedMsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, Optional HelpFile As Variant, _ Optional Context As Variant) As VbMsgBoxResult\r\n If IsMissing(HelpFile) Or IsMissing(Context) Then\r\n FormattedMsgBox = Eval(\"MsgBox(\"\"\" & Prompt & \"\"\", \" & Buttons & \", \"\"\" & Title & \"\"\")\")\r\n Else\r\n FormattedMsgBox = Eval(\"MsgBox(\"\"\" & Prompt & \"\"\", \" & Buttons & \", \"\"\" _ & Title & \"\"\", \"\"\" & HelpFile & \"\"\", \" & Context & \")\")\r\n End If\r\nEnd Function<\/pre>\nIn Access 97 gibt es die Möglichkeit, in der MsgBox-Funktion das @-Zeichen zu verwenden, um verschieden formatierte Abschnitte im Meldungsfenster zu erzeugen. Der Teil vor dem ersten @ wird dabei fett formatiert und es wird ein Zeilenumbruch angehängt. An den Teil vor dem zweiten @ wird nur mehr ein Zeilenumbruch angefügt. In Bild 2 sehen Sie das Ergebnis des folgenden Aufrufs in Access 97:<\/p>\n
MsgBox \"überschrift!@Text der ersten Zeile.@Text der zweiten Zeile.\", vbOKOnly + vbInformation, \"Formatierte MsgBox\"<\/pre>\n![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic002.png\")
<\/p>\n
<\/b><\/p>\n
Bild 2: Formatierte MsgBox in Access 97<\/span><\/b><\/p>\n![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic003.png\")
<\/p>\n
Bild 3: Die Formatierung versagt in neueren Access-Versionen.<\/span><\/b><\/p>\nBild 3 zeigt das Ergebnis des gleichen Codes in einer höheren Access-Version. Mit der Vereinheitlichung von VBA ab Office 2000 hat auch Access-VBA die allgemeine VBA-MsgBox-Funktion erhalten und dadurch die Access-spezifische Funktionalität des @-Zeichens verloren. Genauer gesagt ist der Visual Basic Editor (VBE) schuld, der nicht mehr auf die Meldungs-Funktion von Access zugreift, sondern auf die von VBA.<\/p>\n
Ich persönlich finde das nicht schade, denn ich halte das @ wegen seiner E-Mail-Aufgaben für ungeeignet. Es kam auch immer wieder zu „Unfällen“ wegen dieser häufigsten Funktion des Zeichens. Programmierer, die die besondere Funktionalität in Access 97 nicht kannten, haben sich gewundert, warum ihre MsgBox formatiert wurde, wenn zwei E-Mail-Adressen im Text enthalten waren. Noch häufiger kam die Frage, wie man denn nun eine E-Mail-Adresse im Text einer mit @ formatierten Messagebox verwenden könne. Das geht in Access 97 schlicht nicht. Als jedoch die Formatier-Funktionalität mit Access 2000 verloren ging, merkte man an den vielen Nachfragen in den diversen Foren erst, wie populär diese Funktionalität von Access 97 war und ist.<\/p>\n
Wie so oft war es Michael Kaplan, ein Mitentwickler von Access, der als Erster einen Workaround für dieses Problem publizierte. Er besteht darin, mithilfe der Eval-Funktion doch wieder auf die Access-Variante eines Meldungsfensters zuzugreifen. Die Access-Variante hat nämlich auch in Access 2003 noch die Formatier-Möglichkeit. Das sieht man schon daran, dass in einem Makro bei Verwendung der Aktion Meldung das @ nach wie vor greift. Quellcode 2 zeigt Michaels Code.<\/p>\n
Das Schöne daran ist, dass Sie diese Funktion nur in ein Standardmodul kopieren müssen und dann genauso verwenden können wie die normale MsgBox-Funktion von VBA. Es gibt keinen Unterschied bei den Parametern, lediglich der Funktionsname lautet eben FormattedMsgBox.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic004.png\")
<\/p>\n
<\/b><\/p>\n
Bild 4: MDE erstellen ausgegraut<\/span><\/b><\/p>\n![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic005.png\")
<\/p>\n
<\/b><\/p>\n
Bild 5: Access 2003 kann keine MDE erstellen.<\/span><\/b><\/p>\nDie sicherste Methode, um als Access-Entwickler seinen Code zu schützen, ist die Auslieferung der Datenbank als MDE-Datei. Eine MDE enthält keinen Textcode mehr, sondern nur so genannten P-Code, auch Zwischencode genannt. Das ist ein vorkompilierter Code, der nicht mehr als Text lesbar ist. Aus einer MDE kann man zwar seit jeher mit einigen Tricks und Code wieder alle Objekte in eine neue MDB kopieren, es war bis vor kurzem aber nicht möglich, auch den Quellcode wieder lesbar herzustellen. Seit einigen Monaten bietet eine amerikanische Firma genau dieses Reengineering gegen Bezahlung an und hat auch in ersten Tests bewiesen, dass sie den Quellcode praktisch komplett wiederherstellen kann. Eine MDE bietet also keinen absoluten Schutz mehr, ist aber immer noch eine sehr sichere Sache, solange das Know-how bei dieser einen Firma bleibt.<\/p>\n
Bei der Erstellung einer MDE kommt es oft zu Problemen. Die einfachste und häufigste Variante ist, dass der Menüpunkt Extras ( Datenbank-Dienstprogramm\/MDE erstellen ausgegraut und damit nicht anwählbar ist. (siehe Bild 4)<\/p>\n
Das tritt in Access XP auf, wenn die Datenbank sich im Format von Access 2000 befindet. Eine MDE kann nämlich immer nur mit der Version erstellt werden, in deren Format sie sich befindet. Die Datenbank muss also entweder mit Access 2000 in eine MDE umgewandelt werden oder sie muss in das Format von Access XP konvertiert werden und kann dann mit Access XP in eine MDE umgewandelt werden. In Access 2003 hat Microsoft den Menüpunkt nicht mehr ausgegraut, sondern es erscheint im Falle einer Access 2000-Datenbank eine aussagekräftige Fehlermeldung (siehe Bild 5).<\/p>\n
Bei dieser Gelegenheit noch eine Warnung: Das Datenbankformat von Access XP und Access 2003 ist an sich das gleiche. Das gilt aber nur für MDBs, nicht für MDEs, weil die Formate des vorkompilierten Codes wegen kleiner änderungen in Access 2003 leicht unterschiedlich sind.<\/p>\n
Das bedeutet, dass eine mit Access 2003 erstellte MDE mit Access XP kaum jemals läuft, besonders nicht, wenn viel Code in der Datenbank enthalten ist. Sie sollten eine MDE daher grundsätzlich immer mit der niedrigsten Access-Version erstellen, mit der sie eingesetzt werden soll. Die Aufwärtskompatibilität ist ab Access 2000 nämlich gegeben. Das heißt, Access XP kann MDEs von Access 2000 lesen und Access 2003 kann MDEs von Access XP und 2000 lesen. MDEs von Access 95 und 97 hingegen können nur mit der Version gelesen werden, in der sie erstellt wurden.<\/p>\n
Die häufigsten Fehlermeldungen beim Versuch, eine MDE zu erstellen, sind „Kompilierungsfehler in verborgenem Modul: <Modulname>“ und „Microsoft Access konnte keine MDE-Datenbank erstellen“.<\/p>\n
In den meisten Fällen lässt sich der Verursacher durch eine einfache Kompilierung finden. Sie müssen also nur irgendein Modul in der MDB öffnen und im Editor den Menüpunkt Testen\/Alle Module kompilieren (in Access 97) oder Debuggen ( Kompilieren von <Projektname> (in der VBE) wählen. Beim Kompilieren wird dann mindestens eine fehlerhafte Codestelle angezeigt. Nach ihrer Korrektur und nochmaligem Kompilieren sollte sich die MDE erstellen lassen.<\/p>\n
Es gibt aber auch hartnäckigere Fälle von MDE-Verweigerung. Manchmal, besonders wenn kein Modulname in der Fehlermeldung genannt wird, hilft nur das Dekompilieren der MDB.<\/p>\n
Dazu müssen Sie eine Verknüpfung erzeugen, in der der Pfad zur Datei MSAccess.exe steht, dann die Befehlszeilenoption decompile und dann der Pfad zur MDB. Ein Beispiel für den Text in der Eigenschaft Ziel der Verknüpfung:<\/p>\n
„c:\\Programme\\Office\\msaccess.exe“ \/decompile „c:\\Datenbanken\\Meine.mdb“<\/p>\n
Da der Schalter decompile bisweilen Probleme verursacht, erzeugen Sie vorher besser eine Sicherheitskopie der MDB. Danach sollten Sie, so wie immer vor dem MDE-Erstellen, die Verweise kontrollieren, die MDB komprimieren, den kompletten Code kompilieren lassen und dann die MDE-Erstellung erneut versuchen. <\/p>\n
In manchen Fällen hilft es auch, die MDE einfach in einem unterschiedlichen Ordner erstellen zu lassen. Dazu wählen Sie im Dialogfenster der MDE-Erstellung einen anderen Ordner als den, in dem sich die Quell-MDB befindet.<\/p>\n
Eine Frage, die seltsamerweise recht oft in Foren gestellt wird, ist, wie man eine MDE per Code erstellen kann. Ich nehme an, in den meisten Fällen basteln die Fragesteller an Tools, Assistenten oder sonstigen Automatismen, denn im Normalfall erstellt man eine MDE schlicht über den vorhin behandelten Menüpunkt. Jedenfalls gibt es in Access ein paar undokumentierte SysCmd-Befehle, darunter auch einen schon recht bewährten, der die Umwandlung einer MDB in eine MDE durchführt. Er kann das nur mit einer anderen MDB, nicht mit der aktuellen. In Access 97 reicht dazu folgende Codezeile:<\/p>\n
SysCmd 603, \"QuellMDB\", \"ZielMDE\"<\/pre>\nMit QuellMDB ist dabei Pfad und Name der Datei gemeint, ebenso bei der ZielMDE. In Access 97 klappt damit die Umwandlung bis auf Ausnahmefälle. Nur selten muss man den Umweg über eine weitere Access-Instanz gehen, wie er ab Access 2000 hingegen immer notwendig ist:<\/p>\n
Dim appAcc As Access.Application\r\nSet appAcc = CreateObject(\"Access.Application\")\r\nappAcc.SysCmd 603 , _ \"QuellMDB\", \"ZielMDE\"\r\nSet appAcc = Nothing<\/pre>\nEs gibt auch eine Möglichkeit, die aktuelle MDB in eine MDE umzuwandeln. Diese besteht in der Verwendung des schon weiter oben beim Komprimieren angeführten Tools TSI SOON, kostenlos erhältlich bei http:\/\/www.trigeminal.com\/utility.asp.<\/p>\n
Zum Abschluss der FAQ-Serie möchte ich noch auf das Microsoft Graph eingehen, das in jeder Version von Access dabei ist und dem Erstellen von Diagrammen dient. Das Programm hat einen schlechten Ruf, den es meiner Meinung nach nicht wirklich verdient. Es ist sehr flexibel, wenn es auch nicht immer so gut und einfach zu verwenden und zu programmieren ist, wie die Diagramm-Funktionalität von Excel. Das Hauptproblem von Graph ist die unzureichende Dokumentation. Diesbezüglich wurde es von Microsoft immer stiefmütterlich behandelt. Zudem hat es zwei, drei hartnäckige Bugs, die Sie kennen sollten.<\/p>\n
Die häufigsten Fragen zu Diagrammen sind in der schon angeführten mangelnden Dokumentation begründet und drehen sich darum, wie man einzelne Teile von Diagrammen per Code steuern kann. Das Prinzip der Programmierung eines Diagramms in Access ist dabei relativ einfach (in einer Zeile):<\/p>\n
![](\"..\/fileadmin\/_temp_\/{9FF0B025-D4C1-4FB2-AEB3-F4173803E3D1}\/pic006.png\")
<\/p>\n
<\/b><\/p>\n
Bild 6: Beispielformular zur Diagramm-Programmierung<\/span><\/b><\/p>\nMe!MeinDiagrammSteuerelement.ObjektOderEigenschaft = GewünschteEinstellung<\/pre>\nSo lässt sich zum Beispiel die Legende eines Diagramms folgendermaßen ausschalten:<\/p>\n
Me!DiagrammSteuerelement.HasLegend = False<\/pre>\nändern des Titels eines Diagramms:<\/p>\n
Me!DiagrammSteuerelement.ChartTitle.Text = \"Neuer Titel\" <\/pre>\nändern des Maximalwertes der y-Achse auf 100:<\/p>\n
Me!DiagrammSteuerelement.Axes(2).MaximumScale = 100<\/pre>\nBild 6 zeigt das Beispielformular frmDiagramm.<\/p>\n
Die Schwierigkeit bei der Programmierung besteht vor allem darin, die entsprechenden Objekte und Eigenschaften zu kennen. Dabei hilft fast immer ein einfacher Trick: Da die Programmierung von Diagrammen in Excel fast identisch ist, können Sie ein Diagramm mit Excel erstellen und den Makrorekorder von Excel mitlaufen lassen, während Sie die gewünschten änderungen vornehmen. Den VBA-Code, den der Makrorekorder erzeugt, können Sie fast 1:1 in Access übernehmen. Excel-VBA macht allerdings heftig Gebrauch von maskierten Konstanten nach dem Muster „xlEigenschaft“. Diese Konstanten können Sie nur in Access übernehmen, wenn Sie einen Verweis auf die Excel-Objekt-Bibliothek setzen. Einfacher ist es meistens, in Excel das Direktfenster zu öffnen und sich mit <\/p>\n
xlEigenschaft<\/pre>\nden eigentlichen Zahlenwert der Konstanten anzeigen zu lassen. Diesen unmaskierten Zahlenwert können Sie dann direkt und ohne zusätzlichen Verweis in Access verwenden.<\/p>\n
Noch kurz zu den häufigsten Bugs und Problemen von Diagrammen:<\/p>\n
Auf ein großes Problem werden Sie vielleicht schon stoßen, wenn Sie versuchen, das Beispielformular frmDiagramm aus Bild 6 zu öffnen. Es ist nämlich mit der Version 11 von Graph erstellt, die mit Access 2003 geliefert wird. Wenn Sie auf Ihrem Rechner eine ältere Version von Graph haben, werden Sie vermutlich eine Fehlermeldung erhalten, die besagt, dass der OLE-Server nicht registriert sei. Das rührt daher, dass jede Access-Version eine eigene Graph-Version mitbringt, die bei der Installation ältere Versionen überschreibt, wenn Sie die Office-Pakete nicht sorgfältig parallel installieren. Diagramme funktionieren dann auf diesem Rechner auch mit niedrigeren Access-Versionen, nicht aber auf anderen Rechnern mit niedrigerer Graph-Version.<\/p>\n
Ein anderes häufiges Problem vor allem in Berichten ist, dass im Diagramm nicht immer die zum aktuellen Datensatz passenden Daten angezeigt werden, sondern manchmal Daten eines vorhergehenden Datensatzes.<\/p>\n
In diesen Fällen hilft in der Regel eine Aktualisierung im Ereigniscode beim Formatieren des Berichtsbereichs:<\/p>\n
Me!DiagrammSteuerelement.Requery<\/pre>\n","protected":false},"excerpt":{"rendered":"In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im dreizehnten Teil werden Lösungen für weitere häufige Probleme und Bugs bei der VBA-Programmierung vorgestellt.<\/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":[66022006,662006,44000004],"tags":[],"class_list":["post-55000340","post","type-post","status-publish","format-standard","hentry","category-66022006","category-662006","category-Tipps_und_Tricks"],"yoast_head":"\n
Access-FAQ - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/AccessFAQ\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Access-FAQ\" \/>\n<meta property=\"og:description\" content=\"In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im dreizehnten Teil werden Lösungen für weitere häufige Probleme und Bugs bei der VBA-Programmierung vorgestellt.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/AccessFAQ\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:18:19+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"18\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Access-FAQ\",\"datePublished\":\"2020-05-06T15:18:19+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/\"},\"wordCount\":3355,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5420d3cebee94ed28d03cc128f2d4243\",\"articleSection\":[\"2\\\/2006\",\"2006\",\"Tipps und Tricks\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/\",\"name\":\"Access-FAQ - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5420d3cebee94ed28d03cc128f2d4243\",\"datePublished\":\"2020-05-06T15:18:19+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5420d3cebee94ed28d03cc128f2d4243\",\"contentUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/5420d3cebee94ed28d03cc128f2d4243\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/AccessFAQ\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Access-FAQ\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Access-FAQ - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/","og_locale":"de_DE","og_type":"article","og_title":"Access-FAQ","og_description":"In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im dreizehnten Teil werden Lösungen für weitere häufige Probleme und Bugs bei der VBA-Programmierung vorgestellt.","og_url":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:18:19+00:00","og_image":[{"url":"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"18\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Access-FAQ","datePublished":"2020-05-06T15:18:19+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/"},"wordCount":3355,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243","articleSection":["2\/2006","2006","Tipps und Tricks"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/AccessFAQ\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/","url":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/","name":"Access-FAQ - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243","datePublished":"2020-05-06T15:18:19+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/AccessFAQ\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#primaryimage","url":"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243","contentUrl":"http:\/\/vg01.met.vgwort.de\/na\/5420d3cebee94ed28d03cc128f2d4243"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/AccessFAQ\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Access-FAQ"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000340","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000340"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000340\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000340"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000340"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000340"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}