<\/p>\n
Karl Donaubauer, Wien<\/b><\/p>\n
In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die häufigsten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe werden die wichtigsten Einträge im Detail vorgestellt und entsprechende Lösungen anhand praxisnaher Beispiele aufgezeigt. Im ersten Teil lernen Sie die Lösungen zu den meistgenannten Problemen der Teilnehmer der deutschsprachigen Access-Newsgroups in Zusammenhang mit dem Starten einer Access-Datenbank kennen.<\/b><\/p>\nHinweis<\/h3>\n
Auf der beiliegenden Heft-CD finden Sie die Beispieldatenbanken zu der vorliegenden Musterlösung unter den Dateinamen Hauptfenster_ausblenden97.mdb (Access 97) und Hauptfenster_ausblenden00.mdb (Access 2000 und Access XP). <\/p>\n
Access bietet recht unterschiedliche Methoden und eine große Anzahl an Einstellungsmöglichkeiten, um Aktionen „automatisch“ beim Starten einer Datenbank ausführen zu lassen. Im Wesentlichen sind es drei Methoden beziehungsweise Herangehensweisen, die bei der Automatisierung von Startvorgängen eine Rolle spielen:<\/p>\n
Seit Access 95 gibt es das Menü Extras\/Start. Der Dialog Start (siehe Bild 1) stellt die einfachste Möglichkeit zur Verfügung, Start-Einstellungen für eine Datenbank vorzunehmen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Das Dialogfeld Start<\/span><\/b><\/p>\n Die wichtigste Option ist Formular anzeigen. Damit legen Sie fest, welches Formular beim Start der Datenbank automatisch geöffnet werden soll.<\/p>\n Weitere Einstellungen betreffen vor allem das Aussehen des Anwendungsfensters bezüglich Titelleiste, Menüs oder Datenbankfenster. Die meisten Optionen im Dialogfeld erklären sich ohnehin von selbst.<\/p>\n <\/b><\/p>\n Bild 2: Das Makro Autoexec führt Code aus und öffnet das Startformular.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Das Makro Autoexec öffnet das Startformular, wenn die Bedingung wahr ist.<\/span><\/b><\/p>\n Das Startformular lässt sich also recht einfach festlegen. Das waren aber auch schon alle Einstellmöglichkeiten zum Auslösen von Aktionen. Wenn nach dem Starten noch mehr passieren soll, müssen Sie entsprechende Programmierungen im Startformular vornehmen. Meist geschieht das im Ereignis Beim öffnen des jeweiligen Formulars.<\/p>\n übliche Vorgänge, die man hier programmiert, sind zum Beispiel das Aufrufen von selbst erstellten VBA-Funktionen, die prüfen, wie der Rechner heißt oder ob eine eventuell vorhandene Backend-Datenbank noch am gewünschten Ort ist.<\/p>\n Im letzteren Fall ist es am einfachsten, ein ungebundenes Startformular zu verwenden, um bei falsch eingebundenen Tabellen keine Fehlermeldung zu erhalten. Ein Nachteil der Einstellung im Start-Dialog ist also, dass alle weiteren Aktionen frühestens beim öffnen des Startformulars veranlasst werden können. Das ist einer der Gründe, warum es immer noch das Autoexec-Makro gibt.<\/p>\n In allen Versionen von Access besteht die Möglichkeit, ein Makro namens Autoexec zu verwenden, das aufgrund dieses Namens beim Starten der Datenbank automatisch abgearbeitet wird.<\/p>\n Es stellt auch in den neueren Access-Versionen noch eine überlegenswerte Alternative oder Ergänzung zum Menü Extras\/Start dar. Makros haben zwar erhebliche Nachteile gegenüber VBA, da sie unter anderem keine Fehlerbehandlung haben, sind aber für ein paar wenige, gezielte Einsätze in Access durchaus sinnvoll. Viele Entwickler verwenden etwa folgende Kombination: das Startmenü, um die dort einfacher zu treffenden Starteinstellungen vorzunehmen, und das Autoexec-Makro, um VBA-Code – unabhängig von einem bestimmten Startformular – anzustoßen.<\/p>\n Access arbeitet übrigens zuerst die Einstellungen aus dem Start-Menü ab, danach erst das Autoexec-Makro. Das ist eine wichtige Tatsache, wenn Sie eine Kombination der beiden Methoden verwenden möchten. Nehmen wir an, Sie überprüfen beim Start der Datenbank die Verknüpfungen zum Backend und das Startformular ist an eine verknüpfte Tabelle gebunden. Wenn Sie nun das Startformular über das Startmenü öffnen lassen, erhalten Sie bei falsch eingebundenen Tabellen unweigerlich eine Fehlermeldung wegen der nicht gefundenen Backend-Datei. Deshalb müssen Sie das Startformular entweder direkt im prüfenden Code öffnen oder – mit Hilfe der Makroaktion öffnenFormular – im Autoexec-Makro, nachdem die Pfade überprüft und gegebenenfalls aktualisiert wurden. Ein solches Autoexec-Makro könnte beispielsweise wie in Abb. 2 aussehen.<\/p>\n Noch geschickter ist die Variante, eine Funktion zu schreiben, die (nur) nach dem erfolgreichen Wiedereinbinden der Tabellen den Wert True zurückgibt, und dies im Makro als Bedingung für das öffnen des Startformulars zu verwenden. Dadurch wird die Aktion öffnenFormular nur ausgeführt, wenn der Code erfolgreich war (siehe Bild 3).<\/p>\n Diese Beispiele sollen nur andeuten, wie Kombinationen von Start-Menü, VBA und Autoexec-Makro aussehen können. Es gibt dafür viele sinnvolle Varianten je nach Aufbau der Datenbank, Wichtigkeit der Absicherung gegen Anwendereingriffe und so weiter.<\/p>\n Weniger bekannt als das Menü Start und das Autoexec-Makro sind die Möglichkeiten, die Access durch Befehlszeilenoptionen beim Starten bietet.<\/p>\n Sie können besonders hilfreich sein im Falle von Mehrfachinstallationen, die pro Arbeitsplatz oder Arbeitsgruppe individuelle Einstellungen benötigen.<\/p>\n Wenn Sie auf dem Windows-Desktop (oder im Windows-Explorer und so weiter) eine Verknüpfung zu einer Datenbank erstellen, bietet Ihnen Access ein gutes Dutzend Optionen, die Sie als Befehle in dieser Verknüpfung verwenden beziehungsweise mitgeben können.<\/p>\n Eine Liste der möglichen Optionen finden Sie in der Online-Hilfe mit dem Suchbegriff Befehlszeilenoptionen.<\/p>\n Um eine Befehlszeilenoption wirksam mitzugeben, müssen Sie folgendermaßen vorgehen:<\/p>\n <\/b><\/p>\n Bild 4: Das Textfeld für die Verknüpfungseigenschaft Ziel ist etwas zu klein geraten.<\/span><\/b><\/p>\n Für unser Thema sind insbesondere die beiden Optionen \/x Makro und \/cmd geeignet.<\/p>\n Mit der Option \/x Makro können Sie – wie im Beispiel gezeigt – angeben, dass ein bestimmtes Makro beim öffnen der Datenbank ausgeführt wird. In diesem Makro stehen Ihnen alle Möglichkeiten der Makroprogrammierung von Access zur Verfügung: Formular oder Bericht öffnen, Code ausführen und so weiter.<\/p>\n <\/b><\/p>\n Bild 5: Die Befehl-Funktion im Autoexec-Makro<\/span><\/b><\/p>\n Mit der Option \/x Makro in der Datei-Verknüpfung können Sie also für jeden Arbeitsplatz individuell einstellen, was beim Starten der Datenbank passieren soll.<\/p>\n Mit der Option \/cmd können Sie einen beliebigen Text wie zum Beispiel den Namen eines Formulars an die Datenbank übergeben:<\/p>\n <\/p>\n Der übergebene Text frmStart hat zunächst keinerlei direkte Auswirkung. Mit Hilfe der Command-Funktion von VBA (mit der „deutschen“ Access-Oberfläche: Befehl()) kann der übergebene Text jedoch an beliebiger Stelle in der Datenbank aufgerufen und weiterverwendet werden. Wenn Sie also in unserem Beispiel mit einem Autoexec-Makro arbeiten, so können Sie als Makrobefehl öffnenFormular verwenden und statt direkt einen Formularnamen anzugeben, den übergebenen Text mit folgender Syntax aufrufen (siehe Bild 5):<\/p>\n Quellcode 1<\/b><\/p>\n Der Ausdruck =Befehl() gibt den Text frmStart zurück, den wir als Text bei der Befehlszeilenoption \/cmd angegeben haben, und das Formular frmStart wird geöffnet.<\/p>\n Genau das Gleiche erreicht man mit folgender Code-Zeile in VBA:<\/p>\n Die Kombination aus Befehlszeilenoption und Command-Befehl ermöglicht also praktisch das übergeben einer String-Variablen von außen, die an beliebiger Stelle in der Datenbank weiterverwendet werden kann.<\/p>\n Durch die Verknüpfung kann man für jeden Arbeitsplatz individuelle Einstellungen treffen und für die unterschiedlichen Anwender oder Anwendergruppen verschiedene Startformulare, Eigenschafts-Einstellungen, Meldungen und so weiter festlegen.<\/p>\n Startoptionen lassen sich auch per VBA einstellen. Das hilft zum Beispiel, wenn man während des Entwickelns oder bei einem Update beim Kunden eine Startoption ändern möchte. Das geht auch von außen, also von einer anderen Datenbank aus. Quellcode 1 enthält ein Codebeispiel, um das Startformular in der Datenbank Kunden.mdb zu ändern oder ein neues festzulegen, falls bisher noch keines eingestellt war.<\/p>\n Diese Sub-Prozedur kann man in ein Standardmodul einer Datenbank legen und sie dann folgendermaßen aufrufen, um beispielsweise frmArtikel als neues Startformular zu setzen:<\/p>\n Quellcode 2<\/b><\/p>\n Weitere Codebeispiele gibt es gut versteckt in der Online-Hilfe. Sowohl in Access 97 als auch in Access 2000 oder 2002 finden Sie diese am sichersten, indem Sie im VBA-Editor oder im Direktfenster einen Eigenschaftennamen wie StartUpForm eingeben, <F1> drücken und im aufgerufenen Hilfetext den Beispiel-Link anklicken.<\/p>\n In den folgenden Abschnitten erfahren Sie, welche Funktion die Umschalttaste beim Starten von Access hat.<\/p>\n Mit wenigen Klicks im Dialogfenster des Menüpunktes Extras\/Start sind die eingebauten Menüs und Symbolleisten deaktiviert, das Datenbankfenster unsichtbar gemacht und die Access-Spezialtasten ausgeschaltet.<\/p>\n Unzählig sind die Hilferufe von unerfahrenen Access-Anwendern, die mit diesen Starteinstellungen gespielt und sich dabei aus ihrer Datenbank ausgesperrt haben.<\/p>\n Schwerer zu finden ist der kurze Absatz in der Online-Hilfe, der erklärt, dass man nur die Umschalt-Taste (auch Shift-Taste genannt) beim Starten der Datenbank gedrückt halten muss, damit weder diese Starteinstellungen noch das Autoexec-Makro ausgeführt werden.<\/p>\n Dennoch hat sich diese Wirkung der Umschalttaste auf die Starteinstellungen im Laufe der Zeit bei vielen Anwendern herumgesprochen. Als Entwickler einer Datenbankanwendung möchte man deshalb oft gegensteuern.<\/p>\n Access bietet eine Eigenschaft (Property) namens AllowByPassKey, mit der man einstellen kann, ob die Umschalt-Taste hemmend auf die Starteinstellungen wirkt oder nicht. Standardmäßig steht AllowByPassKey auf True.<\/p>\n Setzt man die Eigenschaft per VBA-Code auf False, verliert die Umschalttaste ihre Zauberkraft und kann die Starteinstellungen beim nächsten Starten der Datenbank nicht verhindern.<\/p>\n Quellcode 2 enthält ein Codebeispiel zum Setzen der Eigenschaft in der aktuellen Datenbank.<\/p>\n Diese Sub-Prozedur können Sie in ein Standardmodul der Datenbank legen und sie wie folgt aufrufen:<\/p>\n Man braucht diese Einstellung nur einmal vorzunehmen, damit sie dauerhaft Gültigkeit für diese spezielle Datenbank hat. Es reicht also ein einziger Aufruf und bei allen folgenden öffnungsvorgängen wirkt die Umschalttaste oder eben nicht – je nach Einstellung. Auf andere Datenbanken hat das keine Auswirkungen.<\/p>\n Die meisten Entwickler gehen so vor, dass sie den Code zum Deaktivieren der Umschalt-Taste bei jedem Starten der Datenbank aufrufen, zum Beispiel im Autoexec-Makro. Innerhalb der Anwendung bauen sie einen versteckten Schalter ein, mit dem sie bei Bedarf die Eigenschaft umstellen können. Das kann beispielsweise ein Doppelklick auf ein unscheinbares Bezeichnungsfeld sein, in dessen Ereignisprozedur die Umschalt-Taste mit der folgenden Anweisung für das nächste Starten wieder aktiviert wird:<\/p>\n So kann der Entwickler durch das Drücken der Umschalttaste die Start-Einstellungen unterbinden und seine änderungen an der Datenbank vornehmen. Dann schließt er die Datenbank und startet sie noch einmal ohne Drücken der Umschalt-Taste und der Code zum Deaktivieren wird wieder aufgerufen.<\/p>\n Das Umsetzen von AllowBypassKey ist für kundige Programmierer auch von außen kein Problem. Um die Wirkung der Umschalttaste für die Datenbank Kunden.mdb von außen zu ändern, braucht man in der Beispiel-Prozedur aus Quellcode 2 nur die Zeile<\/p>\n durch<\/p>\n zu ersetzen. Wie schützt man sich nun gegen ungewolltes Umsetzen von außen<\/p>\n Wir haben in der Beispielprozedur die Methode CreateProperty verwendet, um die Eigenschaft AllowBypassKey beim ersten Aufruf anzulegen. Die Code-Zeile dafür lautete folgendermaßen:<\/p>\n Die CreateProperty-Methode bietet einen zusätzlichen, optionalen Parameter namens DDL (steht für Data Definition Language), den man auf True setzen kann.<\/p>\n Die Zeile lautet dann:<\/p>\n Damit hat man dafür gesorgt, dass nur noch User mit einer speziellen Berechtigung namens dbSecWriteDef diese Eigenschaft ändern können. Mehr dazu finden Sie in der Online-Hilfe zur CreateProperty-Methode.<\/p>\n Wenn man eine Access-Datenbank zum Beispiel über eine Verknüpfung oder aus dem Windows-Explorer heraus öffnet, so erscheint während des Ladevorgangs der Startbildschirm mit dem Access-Logo, den Copyright- und Benutzerangaben. Man kann sehr einfach ein anderes Startbild vorgeben.<\/p>\n Dazu braucht man nur eine Grafikdatei im Bitmap-Format zu nehmen, ihr den gleichen Namen wie der Datenbank, also der .mdb-Datei, zu geben, und sie im Anwendungsverzeichnis zu platzieren. Man hat dann also zum Beispiel die folgenden zwei Dateien:<\/p>\n Neben diesen sind keine weiteren Einstellungen nötig. Access sucht bei jedem Hochstarten von selbst nach einem solchen Bitmap im Anwendungsverzeichnis, um es anzuzeigen. Nur wenn es keines findet, wird der Standard-Bildschirm herangezogen.<\/p>\n <\/b><\/p>\n Bild 6: Anwendungssymbol im Start-Dialog ändern<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n Manchmal möchte man, dass gar kein Bild beim Hochstarten der Anwendung erscheint. Das ist an sich nicht vorgesehen, doch es gibt einen Workaround:<\/p>\n Man erstellt mit einem Grafikprogramm wie zum Beispiel Paint eine winzige Bitmap-Grafik, die nur aus einem einzigen Pixel zu bestehen braucht.<\/p>\n Diese Bitmap-Datei setzt man dann wie oben angegeben ein. Eine Grafik von einem Pixel Größe ist fast unsichtbar und man hat das Ziel zumindest annähernd erreicht.<\/p>\n Das Anwendungssymbol ist jenes Bitmap, das ganz links in der Titelleiste von Access erscheint und auch beim Access- bzw. Anwendungsbutton in der Windows-Taskleiste angezeigt wird. Standardmäßig handelt es sich um das Schlüssel-Symbol von Access.<\/p>\n Das Vorgehen zum ändern dieses Symbols ist zunächst recht einfach. Man braucht dazu eine Bilddatei im Icon-Format (Dateiendung .ico).<\/p>\n Im Dialogfeld des Menüs Start trägt man den Pfad zu dieser Datei im Feld Anwendungssymbol ein (siehe Bild 6). Sofort beim Klicken auf die OK-Schaltfläche des Dialogfensters wird das Symbol der aktuellen Datenbank geändert.<\/p>\n Diese Einstellung ist also an sich flexibler als jene für den benutzerdefinierten Start-Bildschirm. Der Name der Ico-Datei ist – anders als beim Start-bmp – beliebig, ebenso der Ordner, in dem sich die Icon-Datei befindet.<\/p>\n Die fixe Pfadvorgabe für das Icon wird jedoch zum Problem, wenn Sie Ihre Anwendung auf einem anderen Rechner mit anderer Ordnerstruktur installieren. Wenn deshalb der Pfad zur Icon-Datei nicht mehr stimmt und Access daher die Datei nicht mehr findet, erfolgt zwar keine Fehlermeldung, aber es wird wieder das Access-Schlüssel-Symbol angezeigt.<\/p>\n Es wäre nun recht mühsam oder gar nicht durchführbar, auf jedem Arbeitsplatz die Pfadangabe manuell im Startoptionen-Fenster zu ändern.<\/p>\n Die Lösung kann beispielsweise so aussehen: Sorgen Sie dafür, dass sich die Icon-Datei immer im Anwendungsordner befindet, also im selben Ordner wie die aktuelle Datenbank.<\/p>\n Beim Starten der Anwendung prüfen Sie dann per Code die Eigenschaft Anwendungssymbol (in VBA: AppIcon) und aktualisieren gegebenenfalls den Pfad zur Icon-Datei. Sie können dafür den Code aus Quellcode 3 verwenden. Fügen Sie ihn zum Beispiel im Beim öffnen-Ereignis Ihres Startformulares oder in einer Funktion, die Sie im Autoexec-Makro aufrufen, ein.<\/p>\n In den Versionen vor Access 95 brauchte man API-Funktionen, um das Hauptfenster von Access minimiert oder maximiert zu öffnen. Mit der Einführung der RunCommand-Konstanten wurde das wesentlich einfacher. Mit folgenden Code-Zeilen können Sie nun die Größe des Hauptfensters ändern:<\/p>\n Sie können diese Codezeilen zum Beispiel im Ereignis Beim öffnen Ihres Startformulars verwenden, um die Größe des Anwendungsfensters beim Starten Ihrer Datenbank einzustellen.<\/p>\n Wenn Sie hingegen eine genauere Positionierung des Anwendungsfensters irgendwo am Windows-Desktop vornehmen möchten, müssen Sie weiterhin die API-Funktion SetWindowPos benutzen. Ein Code-Beispiel dafür bietet der Knowledgebase-Artikel 148856.<\/p>\n Access bietet umfangreiche Einstellungen, um sich als eigentliche Hauptanwendung hinter der Datenbank zu verstecken. Man kann das Datenbankfenster ausblenden, das Anzeigen der eingebauten Menü- und Symbolleisten verhindern, eigene dafür angeben und so weiter.<\/p>\n Zudem kann man die Runtime-Version und das Access-Sicherheitssystem verwenden, um Anwendereingriffe zu blockieren.<\/p>\n Für die allermeisten Anwendungen ist das der Weg, den Sie gehen sollten, um Access zu verbergen. <\/p>\n Die hier vorgestellte Methode macht nur Sinn, wenn Ihre Anwendung bloß aus einem oder sehr wenigen Formularen besteht. Die Gründe dafür werde ich weiter unten erläutern.<\/p>\n Am einfachsten gehen Sie so vor, dass Sie den Code in einem Formular, beispielsweise dem Startformular, verwenden. Im Deklarationsbereich des Formularmoduls deklarieren Sie die Konstanten und die API-Funktion ShowWindow wie in Quellcode 4.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n <\/b><\/p>\n Bild 7: Ein einsames Access-Formular auf dem Windows-Desktop<\/span><\/b><\/p>\n Bei einem beliebigen Ereignis wie zum Beispiel in der Prozedur Beim öffnen Ihres Formulars oder Beim Klicken einer Schaltfläche können Sie den Code aus Quellcode 5 verwenden, um das Hauptfenster augenblicklich auf unsichtbar zu schalten (siehe Bild 7).<\/p>\n Warten Sie noch etwas, bevor Sie das mit Ihrer wichtigsten Anwendung versuchen, denn die Sache hat mehrere Haken:<\/p>\n Das sind also die Gründe, warum sich dieses Vorgehen nur für spezielle Fälle eignet.<\/p>\n Ein Anwendungsgebiet sind kleine Utility-Anwendungen, die permanent auf dem Windows-Desktop sichtbar sind und dort irgendeine – mit Access programmierte – Aufgabe verrichten.<\/p>\n Das Vorgehen eignet sich aber sicher nicht für ausgewachsene Datenbankapplikationen.<\/p>\n Am Schluss noch ein Tipp, wie Sie das Access-Fenster wieder sichtbar machen: Sie können dafür beispielsweise eine zweite Schaltfläche anlegen und dort den gleichen Code wie oben für das Ausblenden verwenden – mit einer kleinen änderung. Ersetzen Sie die Zeile<\/p>\n durch<\/p>\n In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die häufigsten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe werden die wichtigsten Einträge im Detail vorgestellt und entsprechende Lösungen anhand praxisnaher Beispiele aufgezeigt. Im ersten Teil lernen Sie die Lösungen zu den meistgenannten Problemen der Teilnehmer der deutschsprachigen Access-Newsgroups in Zusammenhang mit dem Starten einer Access-Datenbank kennen.![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic003.png\")
<\/p>\nMakro Autoexec<\/h2>\n
Befehlszeilenoptionen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic004.png\")
<\/p>\nDie Option \/x Makro<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic005.png\")
<\/p>\nDie Option \/cmd<\/h3>\n
\"C:\\Office97\\Office\\MSACCESS.EXE\" \"C:\\Datenbanken\\Kunden.mdb\" \/cmd frmStart<\/pre>\n
Sub procStartFrm(strNewFrm As String)\r\n On Error GoTo Error_procStartFrm\r\n Dim db As DAO.Database\r\n Dim prp As DAO.Property\r\n Set db = OpenDatabase(\"c:\\Datenbanken\\Kunden.mdb\")\r\n '' neues Startformular einstellen\r\n db.Properties(\"StartUpForm\") = strNewFrm \r\nExit_procStartFrm:\r\n db.Close: Set db = Nothing\r\n Set prp = Nothing\r\n Exit Sub\r\nError_procStartFrm:\r\n '' Property erstellen, falls noch kein Startformular '' gesetzt ist\r\n If Err = 3270 Then\r\n Set prp = db.CreateProperty(\"StartUpForm\", _ dbText, strNewFrm)\r\n db.Properties.Append prp\r\n Resume Next\r\n '' bei anderem Fehler Meldung und kontrollierter \" Ausstieg\r\n Else\r\n MsgBox \"Fehler Nr. \" & Str(Err.Number) & \" \" _ & Err.Description\r\n Resume Exit_procStartFrm\r\n End If\r\nEnd Sub<\/pre>\n
=Befehl()<\/pre>\n
DoCmd.OpenForm Command<\/pre>\n
Sub procShiftOn(blnFlag As Boolean)\r\n On Error GoTo Error_procShiftOn\r\n Dim db As DAO.Database\r\n Dim prp As DAO.Property\r\n Set db = CurrentDb\r\n '' Property je nach Parameter setzen\r\n db.Properties!AllowBypassKey = blnFlag\r\n ''Speicherplatz der Variablen freigeben und Ausstieg\r\nExit_procShiftOn: ''Variablen freigeben und Sub verlassen\r\n Set prp = Nothing\r\n Exit Sub\r\nError_procShiftOn:\r\n ''Property anlegen, falls noch nicht vorhanden\r\n If Err = 3270 Then\r\n Set prp = db.CreateProperty(\"AllowBypassKey\", _ dbBoolean, blnFlag)\r\n db.Properties.Append prp\r\n Resume Next\r\n ''bei anderem Fehler Meldung und kontr. Ausstieg\r\n Else\r\n MsgBox \"Fehler Nr. \" & Str(Err.Number) & \" \" _ & Err.Description\r\n Resume Exit_procShiftOn\r\n End If\r\nEnd Sub<\/pre>\n
procStartFrm \"frmArtikel\"<\/pre>\n
Umschalttasteverhindert Starteinstellungen<\/h2>\n
Wirkung der Umschalttasteausschalten<\/h2>\n
procShiftOn True<\/pre>\n
Set db = CurrentDb<\/pre>\n
Set db = OpenDatabase _ (\"c:\\Datenbanken\\Kunden.mdb\")<\/pre>\n
Set prp = _ db.CreateProperty(\"AllowBypassKey\", _ dbBoolean, blnFlag)<\/pre>\n
Set prp = _ db.CreateProperty(\"AllowBypassKey\", _ dbBoolean, blnFlag, True)<\/pre>\n
C:\\Datenbanken\\Kunden.mdb\r\nC:\\Datenbanken\\Kunden.bmp<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic006.png\")
<\/p>\nDim db As DAO.Database\r\nDim strPfad As String\r\nSet db = CurrentDb\r\n'' Pfad der aktuellen Datenbank + Name der Icon-Datei\r\nstrPfad = left(CurrentDb.Name, Len(CurrentDb.Name) - _ Len(Dir(CurrentDb.Name))) & \"\\Kunden.ico\"\r\n'' wenn die Eigenschaft \"Anwendungssymbol\" nicht dem '' obigen Pfad entspricht, '' wird sie neu gesetzt und die Titelleiste aktualisiert\r\nIf db.Properties(\"AppIcon\") <> strPfad Then\r\n CurrentDb.Properties(\"AppIcon\") = strPfad\r\n Application.RefreshTitleBar\r\nEnd If<\/pre>\n
RunCommand acCmdAppMaximize '' maximieren\r\nRunCommand acCmdAppMinimize '' minimieren\r\nRunCommand acCmdAppRestore '' wiederherstellen<\/pre>\n
Const SW_HIDE = 0\r\nConst SW_NORMAL = 1\r\nPrivate Declare Function ShowWindow Lib \"user32\" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long<\/pre>\n
Dim hWindow As Long\r\nDim nResult As Long\r\nDim nCmdShow As Long\r\nhWindow = Application.hWndAccessApp\r\nnCmdShow = SW_HIDE\r\nnResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)\r\nCall ShowWindow(Me.hWnd, SW_NORMAL)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{6F9B818C-159E-4F94-8CEB-B08DA93045B2}\/pic007.png\")
<\/p>\nnCmdShow = SW_HIDE<\/pre>\n
nCmdShow = SW_NORMAL.<\/pre>\n","protected":false},"excerpt":{"rendered":"
\n– Aktionen beim Start einer Datenbank ausführen lassen
\n– Programmatorischer Zugriff auf Startoptionen
\n– Starteinstellungen und die Umschalttaste
\n– Startbildschirm der Anwendung ändern
\n– Anwendungssymbol ändern
\n– Datenbank maximiert\/minimiert öffnen
\n– Access-Hauptfenster ausblenden<\/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":[662003,66062003,44000004],"tags":[],"class_list":["post-55000131","post","type-post","status-publish","format-standard","hentry","category-662003","category-66062003","category-Tipps_und_Tricks"],"yoast_head":"\n