| |
|
Schliessen der Anwendung sperren |
| Kurzinfo: |
 |
Dieser Tipp zeigt, wie man das Schließensymbol
(oben rechts) deaktivieren bzw. wieder aktivieren kann.
Bei deaktiviertem Zustand kann der Anwender das Formular
bzw. die Anwendung nicht über das Symbol schließen. |
| Access-Version(en): |
|
Access 97, 2000 und XP |
| Autor: |
 |
Günther Kramer |
| Homepage: |
 |
http://www.access-paradies.de |
| |
 |
Download
ca. 58 KB |
|
| | | | 
 |
Auf der AP-Access-Tools  Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
 deaktiviert
 aktiviert
Fügen Sie die folgenden Codezeilen in ein neues oder vorhandenes Modul ein:
Option Compare Database
Declare Function EnableMenuItem Lib "user32" _
(ByVal hMenu As Long, ByVal wIDEnableItem As Long, _
ByVal wEnable As Long) As Long
Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Function NoExitMenueButton()
' macht den Schließenbutton des Accessmenüs grau,
' so kann der Anwender nur über den beenden Knopf schließen.
Dim mAntwort As Variant
Dim mHandle As Variant
mHandle = GetSystemMenu(Application.hWndAccessApp, False)
mAntwort = EnableMenuItem(mHandle, 6, 1025)
End Function
Public Function YesExitMenueButton()
' macht den Schließenbutton des Accessmenüs wieder sichtbar.
Dim mAntwort As Variant
Dim mHandle As Variant
mHandle = GetSystemMenu(Application.hWndAccessApp, False)
mAntwort = EnableMenuItem(mHandle, 6, 1024)
End Function
Zum Deaktivieren der Schließenmöglichkeit über das "X" verwenden Sie folgenden Aufruf. Die Codezeilen können Sie in das erste Formular Ihrer Anwendung bei der Eigenschaft "Beim Laden" einfügen. Somit ist während der gesamten Sitzung das Schließen über das "X" deaktiviert und der Anwender kann nur kontrolliert über eine Schaltfläche oder einen Menüpunkt, welchen Sie vorgeben, die Anwendung beenden.
Wenn Sie die Schließenmöglichkeit wieder aktivieren möchten, verwenden Sie innerhalb eines VBA-Moduls (Funktion oder Sub) folgenden Aufruf:
Copyright 2000-2003 Microsys
Kramer– Alle Rechte vorbehalten - Der Download von Tipps und
Programmen von den Seiten www.access-paradies.de erfolgt auf eigene
Gefahr. Microsys Kramer haftet nicht für Schäden, die
aus der Installation oder der Nutzung von Tipps oder Software aus
dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung
ist eine Haftung für Schäden und Beeinträchtigungen
durch Computerviren ausgeschlossen. Schadenersatzansprüche,
aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys
Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten
hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden
wie Datenverlust. | 
» Gesamtliste
