<\/p>\n
In bestimmten Phasen der Entwicklung einer Access-Anwendung öffnet man die Anwendung häufig neu, um diese mal mit gedrückter Umschalt-Taste zu starten, mal im Runtime-Modus, mal mit dem benutzerdefinierten Ribbon, das alle eingebauten Elemente ausblendet, und mal ohne. Dummerweise muss man immer wieder manuell Einstellungen vornehmen, um die Anwendung genau nach Wunsch zu öffnen. Dieser Beitrag zeigt, wie Sie sich die Arbeit mit einer kleinen Starter-Datenbank vereinfachen.<\/b><\/p>\n
Diese Datenbank ist gar nicht besonders aufwendig gestaltet, liefert dafür aber das gewünschte Ergebnis schon nach wenigen Mausklicks. Dazu benötigen Sie nur das beim Start erscheinende Formular aus Bild 1. Dieses Formular zeigt alle möglichen Einstellungen in Form einfacher Steuerelemente an, die Sie nach Wunsch anpassen können.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_05\/DatenbankenImProduktivUndEntwicklungsmodus-web-images\/pic001.png\")
<\/p>\n
Bild 1: Das Formular zum Einstellen der Anwendungsoptionen<\/span><\/b><\/p>\n Sie brauchen aber noch nicht einmal ständig die Einstellungen zu ändern, sondern können auch noch mehrere Profile anlegen – beispielsweise eines, das die Anwendung so zeigt, wie der Entwickler sie sieht, eines mit dem Modus, wie der Anwender sie vorfindet, und vielleicht noch eine Mischform, die zwar alle Features für den Anwender liefert, aber gleichzeitig nicht die Entwicklungswerkzeuge ausblendet. <\/p>\n Das Formular bietet die folgenden Einstellungen:<\/p>\n Die Schaltfläche Start<\/b> schließlich öffnet die gewünschte Anwendung.<\/p>\n Zielanwendung festlegen<\/b><\/p>\n Sicher fragen Sie sich, wo sich die Option befindet, mit der Sie die Datenbankdatei festlegen, die damit präpariert und geöffnet werden soll. Die Antwort ist: Dafür gibt es gar keine Option.<\/p>\n Stattdessen benennen Sie die Starter-Datenbank einfach nach dem Schema <Datenbankname>_Developer.<Dateiendung><\/b>. Im Falle der Datei KundenVertraegeAnschreiben.accdb <\/b>heißt diese also KundenVertraegeAnschreiben_Developer.accdb<\/b>.<\/p>\n Und wie legen Sie eine neue Konfiguration an Ganz einfach: Wählen Sie den Eintrag <Neuer Modus> <\/b>aus dem Kombinationsfeld oben aus (s. Bild 2).<\/p>\n Bild 2: Anlegen einer neuen Konfiguration<\/span><\/b><\/p>\n Erstellen des Formulars der Anwendung<\/b><\/p>\n Das Formular frmOptionen<\/b> sieht im Entwurf wie in Bild 4 aufgebaut ist. Das Formular zeigt alle Felder dieser Tabelle an, wobei das Steuerelement, das an das Feld CustomRibbonID<\/b> gebunden wird, als Kombinationsfeld ausgelegt werden soll. Als Datenherkunft soll dieses Feld ein später per VBA zugewiesenes Recordset anzeigen, deshalb bleibt die Eigenschaft Datensatzherkunft <\/b>leer.<\/p>\n Bild 3: Entwurf des einzigen Formulars der Anwendung<\/span><\/b><\/p>\n Bild 4: Entwurf der Tabelle zum Speichern der unterschiedlichen Konfigurationen<\/span><\/b><\/p>\n Anzeigen als Startformular<\/p>\n <\/p>\n Damit das Formular gleich beim Starten der Anwendung geöffnet wird, stellen Sie die Eigenschaft Startformular <\/b>in den Access-Optionen auf den Namen des Formulars ein, also auf frmOptionen <\/b>(s. Bild 5).<\/p>\n Bild 5: Einstellung, um das Formular frmOptionen gleich beim Start zu öffnen<\/span><\/b><\/p>\n Programmierung des Tools<\/b><\/p>\n Das Tool soll Eigenschaften der zu öffnenden Datenbank ändern. Dazu gehören Eigenschaften wie das anzuzeigende Ribbon, das Öffnen als Runtime, das Ein- oder Ausblenden des Navigationsbereichs und mehr. Wie jeder weiß, ist es beim ändern einiger dieser Eigenschaften unabdinglich, dass Sie die Datenbankdatei nach den änderungen erst schließen und wieder öffnen, damit sich die änderungen auswirken.<\/p>\n Wie also bekommt das hier vorgestellte Tool dies hin – bei scheinbar nur einem einzigen Öffnen der Anwendung Ganz einfach: Das Tool öffnet unsichtbar eine Instanz der Datenbank, nachdem es selbst gestartet wurde. Diese Instanz wird während der gesamten Öffnungszeit des Tools offen gehalten, wobei nicht nur Eigenschaften geändert, sondern auch vorhandene Eigenschaften eingelesen werden. Um während der Benutzung des Tools auf die Anwendungseigenschaften zugreifen zu können, speichert das Tool den Verweis auf die geöffnete Anwendung in der Variablen db<\/b>. Diese wird, wie einige andere Variablen, im Klassenmodul des Formulars frmOptionen <\/b>deklariert:<\/p>\n Beim Laden des Formulars löst dieses dann gleich das Ereignis Beim Laden <\/b>aus, was wiederum die Ausführung der Ereignisprozedur aus Listing 1<\/a><\/span> nach sich zieht.<\/p>\n Listing 1: Aktionen beim Laden des Formulars<\/p>\n Diese Prozedur liest zunächst den Namen des Tools selbst ein, und zwar über die Eigenschaft CurrentProject.Name <\/b>– dieser lautet etwa KundenVertraegeAnschreiben_Developer.accdb<\/b>. Die Replace<\/b>-Funktion ersetzt dann den Ausdruck _Developer <\/b>durch eine leere Zeichenkette – somit bleibt nur noch der Name der zu öffnenden Datei über: KundenVertraegeAnschreiben.accdb<\/b>. Dieser Name wird in der Variablen strDatenbank <\/b>gespeichert. Die Variable strPfad <\/b>wiederum nimmt lediglich den Pfad der Datenbank auf, den die Funktion CurrentProject.Path <\/b>liefert. Fehlt noch der Pfad und der Name der aktuell verwendeten Access-Instanz, denn diesen benötigen wir später für die Zusammensetzung des Verknüpfungsausdrucks, mit dem die Zielanwendung geöffnet wird. Die Access-Instanz ermittelt die Prozedur mit dem folgenden Ausdruck:<\/p>\n Diese Information landet in der Variablen strAccess<\/b>. Die letzte Anweisung der Prozedur Form_Load <\/b>füllt noch ein Recordset<\/b>-Objekt mit den Daten der Tabelle USysRibbons <\/b>der Zielanwendung. Diese Tabelle enthält zwar auch die Ribbon-Definitionen, aber das Kombinationsfeld cboRibbons <\/b>soll nur die Namen der vorhandenen Ribbon-Definitionen anzeigen, damit der Benutzer die mit dem Start anzuzeigende Definition auswählen kann.<\/p>\n Danach sorgt die Prozedur, die durch das Ereignis Beim Anzeigen <\/b>des Formulars ausgelöst wird, für die Anzeige des richtigen Eintrags im Kombinationsfeld cboModus <\/b>zur Auswahl der Datensätze der Tabelle tblOptionen<\/b>:<\/p>\n Modus wechseln<\/p>\n Wenn bereits verschiedene Öffnungsmodi in der Tabelle tblOptionen<\/b> angelegt wurden, können Sie diese über das Kombinationsfeld cboModus<\/b> auswählen. Dies löst die folgende Prozedur aus:<\/p>\n Dabei ist zu beachten, dass das Kombinationsfeld nicht nur die Einträge der Tabelle tblOptionen <\/b>enthält, sondern ja auch noch einen Eintrag namens <Neuer Modus> <\/b>zum Anlegen eines neuen Datensatzes bereithält. Damit dieser Eintrag im Kombinationsfeld erscheint, verwendet dieses als Datensatzherkunft die folgende UNION-Abfrage:<\/p>\n Bei Auswahl des Eintrags <Neuer Modus> <\/b>hat das Kombinationsfeld den Wert 0<\/b>, was in der Prozedur cboModus_AfterUpdate <\/b>dazu führt, dass das Formular einen neuen, leeren Datensatz anzeigt. In allen anderen Fällen stellt die Prozedur den Filter des Formulars so ein, dass der jeweilige Datensatz der Tabelle tblOptionen <\/b>erscheint.<\/p>\n Nach dem Einstellen der Optionen beziehungsweise der Auswahl des gewünschten Profils klicken Sie auf die Schaltfläche cmdStart<\/b>, was die Prozedur aus Listing 2<\/a><\/span> startet.<\/p>\n Listing 2: Einstellen der Eigenschaften vor dem Start der Zielanwendung<\/p>\n Die Prozedur speichert zunächst den aktuellen Datensatz der Tabelle tblOptionen <\/b>und stellt dann diejenigen Eigenschaften ein, die über die Properties<\/b>-Auflistung des die Zielanwendung repräsentierenden Database<\/b>-Objekts erreichbar sind. Bei den meisten Eigenschaften kann einfach der Boolean-Wert aus der Tabelle übernommen werden (also 0 <\/b>für False <\/b>oder -1 <\/b>für True<\/b>).<\/p>\n Für die beiden Eigenschaften Navigationsbereich anzeigen <\/b>und MDI-Modus <\/b>lauten die möglichen Werte jedoch 0 <\/b>und 1<\/b>, wodurch die in der Tabelle tblOptionen <\/b>gespeicherten Werte (-1<\/b> und 0<\/b>) noch jeweils um eins erhöht werden müssen.<\/p>\n Danach wird die Datenbank durch Setzen der Variable db <\/b>auf den Wert Nothing <\/b>geschlossen, damit sie erneut geöffnet werden kann – diesmal sichtbar und mit den gewünschten Einstellungen. Das Öffnen erfolgt über einen Ausdruck wie den folgenden:<\/p>\n Dabei werden, wie in diesem Beispiel, die beiden Eigenschaften eingesetzt, die nicht direkt als Werte der verschiedenen Properties übergeben werden konnten. Der Parameter \/runtime <\/b>wird nur dann an den Aufruf angehängt, wenn die Option Runtime simulieren <\/b>aktiviert ist, und der Parameter \/cmd "Developer" <\/b>wird nur übergeben, wenn Fehlerbehandlung Entwicklermodus <\/b>angehakt wurde. Der komplette Ausdruck wird dann mit der Shell<\/b>-Methode aufgerufen, was zum Start der Anwendung führt.<\/p>\n Die Übergabe des Wertes Developer <\/b>mit dem Parameter cmd <\/b>hat zunächst keine Auswirkung. Sie können den übergebenen Wert jedoch innerhalb der Anwendung mit der Funktion Command() <\/b>per VBA auslesen. Wenn Sie für den Entwicklermodus eine spezielle Fehlerbehandlung vorgesehen haben, können Sie diese nach der Prüfung des Wertes der Funktion Command <\/b>aktivieren.<\/p>\n Weitere Eigenschaften<\/b><\/p>\n\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_05\/DatenbankenImProduktivUndEntwicklungsmodus-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_05\/DatenbankenImProduktivUndEntwicklungsmodus-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_05\/DatenbankenImProduktivUndEntwicklungsmodus-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_05\/DatenbankenImProduktivUndEntwicklungsmodus-web-images\/pic005.png\")
<\/p>\nDim db As DAO.Database\r\nDim strDatenbank As String\r\nDim strPfad As String\r\nDim strAccess As String<\/pre>\n
Private Sub Form_Load()\r\n strDatenbank = Replace(CurrentProject.Name, "_Developer", "")\r\n strPfad = CurrentProject.Path & "\\"\r\n strAccess = SysCmd(acSysCmdAccessDir) & "\\MSAccess.exe"\r\n Set db = DBEngine.Workspaces(0).OpenDatabase(strPfad & strDatenbank)\r\n Set cboCustomRibbonID.Recordset = db.OpenRecordset("SELECT RibbonName FROM USysRibbons")\r\nEnd Sub<\/pre>\nSysCmd(acSysCmdAccessDir) & "\\MSAccess.exe"<\/pre>\n
Private Sub Form_Current()\r\n Me!cboModus = Me!ModusID\r\nEnd Sub<\/pre>\n
Private Sub cboModus_AfterUpdate()\r\n If Me!cboModus = 0 Then\r\n DoCmd.GoToRecord record:=acNewRec\r\n Else\r\n Me.Filter = "ModusID = " & Me!cboModus\r\n Me.FilterOn = True\r\n End If\r\nEnd Sub<\/pre>\n
SELECT 0, ''<Neuer Modus>'' FROM tblOptionen\r\nUNION\r\nSELECT tblOptionen.ModusID, tblOptionen.Modus FROM tblOptionen;<\/pre>\n
Private Sub cmdStart_Click()\r\n Dim strRuntime As String\r\n Dim strErrorhandling As String\r\n RunCommand acCmdSaveRecord\r\n db.Properties("AllowSpecialKeys") = Me!AllowSpecialKeys\r\n db.Properties("UseAppIconForFrmRpt") = Me!UseAppIconForFrmRpt\r\n db.Properties("CustomRibbonID") = Me!CustomRibbonID\r\n db.Properties("StartUpShowDBWindow") = Me!StartUpShowDBWindow\r\n db.Properties("NavPane Closed") = Me!StartUpShowDBWindow + 1\r\n db.Properties("UseMDIMode") = Me!UseMDIMode + 1\r\n db.Properties("ShowDocumentTabs") = Me!ShowDocumentTabs\r\n Set db = Nothing\r\n If Me!Runtime Then\r\n strRuntime = " \/runtime"\r\n End If\r\n If Me!DeveloperErrorHandling Then\r\n strErrorhandling = " \/cmd ""Developer"""\r\n End If\r\n Shell Chr(34) & strAccess & Chr(34) & " " & Chr(34) & strPfad & strDatenbank & Chr(34) _\r\n & strRuntime & strErrorhandling\r\n DoCmd.Close acForm, Me.Name\r\n DoCmd.Quit\r\nEnd Sub<\/pre>\n"C:\\Program Files (x86)\\Microsoft Office\\Office14\\MSAccess.exe" "C:\\KundenVertraegeAnschreiben.accdb" \/runtime \/cmd "Developer"<\/pre>\n