title image


Smiley Re: Übergehen des X in der rechten Window-Ecke
So haben wir das gelöst:Modul mit folgendem Code---------------------------------------------------------Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As LongDeclare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPublic Function NoExitMenueButton()' macht den Schließenbutton des Accessmenüs grau,' so kann der Anwender nur über den beenden Knopf schließen.Dim mAntwort As VariantDim mHandle As Variant mHandle = GetSystemMenu(Application.hWndAccessApp, False) mAntwort = EnableMenuItem(mHandle, 6, 1025)End FunctionPublic Function YesExitMenueButton() ' macht den Schließenbutton des Accessmenüs wieder sichtbar.Dim mAntwort As VariantDim mHandle As Variant mHandle = GetSystemMenu(Application.hWndAccessApp, False) mAntwort = EnableMenuItem(mHandle, 6, 1024)End Function---------------------------------------------------------Aufruf dann so:Private Sub Form_Load() Dim rsTemp As Recordset Dim mString As String Dim mSQL As String NoExitMenueButton End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: