Falls unter MS-Access die Option "Fenster In Taskleiste" gesetzt ist (=Standard-Einstellung), wird jedes geöffnete Fenster / Formular separat in der Windows-Taskleiste angezeigt. Soll der Anwender Ihrer Access-Anwendung nicht über die Taskleiste zwischen den einzelnen Formular hin- und herwechseln können, muss die genannte Einstellung deaktiviert werden. Die Option "Fenster in Taskleiste" kann auch bequem per Code abgefragt bzw. geändert werden, wie nachfolgende Funktion zeigt. Public Sub OptionFensterInTask() ' ************************************************************** ' Falls die Option "Fenster In Taskleiste" gesetzt ist ' (=Standard-Einstellung), wird verlangt, diese zu deaktivieren. ' Andernfalls wird die Anwendung sofort wieder geschlossen. ' ' Diese Funktion sorgt dafür, dass geoeffnete ACCESS-Datenbanken ' jeweils nur 1x ! in der Taskleiste erscheinen, d.h. ' es wird verhindert: ' ' - dass alle geöffneten Formulare einzeln in der Taskleiste ' erscheinen und so ' - über die Taskleiste zwischen den Formularen ' "wild umhergeschaltet" werden kann ' ' Die Einstellung der Option "Fenster In Taskleiste" ist global, ' bezieht sich also auf die komplette ACCESS-Umgebung und nicht ' nur auf die aktuelle Datenbank! ' ' Zum Testen bitte die Option "Extras -> Optionen -> Ansicht -> ' Fenster In Taskleiste" aktivieren... ' ************************************************************** On Error GoTo ErrHandler Dim sSetup As String Dim sMsg As String On Error GoTo ErrHandler Dim sSetup_DEU As String ' 2006-02-06 engl. Option verwenden, Deu. anzeigen Dim sSetup As String Dim sMsg As String ' Option "Fenster in Taskleiste anzeigen" deaktivieren! sSetup_DEU = "Fenster in Taskleiste anzeigen" ' 2006-02-06 sSetup = "ShowWindowsInTaskbar" ' 2006-02-06 englisch !! If Application.GetOption(sSetup) = True Then ' 2006-02-06 englische Option + Anzeige deutsche Option sMsg = "Einstellung der Option:" & vbNewLine & vbNewLine & _ " " & sSetup & " (" & sSetup_DEU & ")" & vbNewLine & vbNewLine & _ "ist gesetzt und muss deaktiviert werden !" & vbNewLine & _ "(Cancel BEENDET ACCESS.)" If MsgBox(sMsg, vbCritical + vbOKCancel, _ "ACCESS-Einstellung...") = vbCancel Then ' ACCESS beenden ohne Speichern ! DoCmd.Quit acQuitSaveNone Else ' Option deaktivieren! Application.SetOption sSetup, False End If End If Exit Sub ErrHandler: MsgBox Err.Number & " " & Err.Description DoCmd.Quit acQuitSaveNone End Sub Beispiel für den Aufruf: Private Sub Form_Load() ' Einstellung "Fenster in Taskleiste" prüfen ' und ggf. deaktivieren Call OptionFensterInTask End Sub Dieser Tipp wurde bereits 17.547 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |