title image


Smiley Re: Minimierung von Access
Hallo,probiers doch mal mit folgendem Modul:'STARTGlobal Const SW_HIDE = 0Global Const SW_SHOWNORMAL = 1Global Const SW_SHOWMINIMIZED = 2Global Const SW_SHOWMAXIMIZED = 3Private Declare Function sysShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As LongFunction AccessWindow(nCmdShow As Long)Dim lngReply As LongDim frm As Form On Error Resume Next Set frm = Screen.ActiveForm ' kein aktives Formular If Err 0 Then If nCmdShow = SW_HIDE Then MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else lngReply = sysShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And frm.Modal = True Then MsgBox "Access kann nicht minimiert werden mit " & frm.Caption & " als aktives Formular." ElseIf nCmdShow = SW_HIDE And frm.PopUp True Then MsgBox "Access kann nicht verborgen werden mit " & frm.Caption & " als aktives Formular." Else lngReply = sysShowWindow(hWndAccessApp, nCmdShow) End If End If AccessWindow = (lngReply 0)End Function' ENDEDu rufts dann einfach folgende Funktion aufAccessWindow(SW_SHOWMINIMIZED)Bis denneIngmar

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: