title image


Smiley Re: MsAccess "Startfenster" verschwinden lassen
Hello again,frei nach dev ashish:Option Explicit'************ Code Start **********Global Const SW_HIDE = 0Global Const SW_SHOWNORMAL = 1Global Const SW_SHOWMINIMIZED = 2Global Const SW_SHOWMAXIMIZED = 3Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long 'abfragen ob minimiertDeclare Function IsIconic Lib "user32" (ByVal hwnd As Long) As LongDeclare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As LongFunction fSetAccessWindow(nCmdShow As Long)'Usage Examples'Maximize window:' ?fSetAccessWindow(SW_SHOWMAXIMIZED)'Minimize window:' ?fSetAccessWindow(SW_SHOWMINIMIZED)'Hide window:' ?fSetAccessWindow(SW_HIDE)'Normal window:' ?fSetAccessWindow(SW_SHOWNORMAL)'Dim loX As LongDim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err 0 Then 'no Activeform If nCmdShow = SW_HIDE Then MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp True Then MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX 0)End Function'************ Code End **********in deinem falle also aufruf einfach per:fSetAccessWindow(SW_HIDE)nicht vergessen, alle formulare müssen popup sein, keine formulare in der Datenblattansicht, auch keine Berichte verwenden.und wichtig:aufruf erst wenn ein formular am bildschirm ist also nicht in form_open oder _load möglich. am besten per timer (so mach ich's).HTHHermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: