title image


Smiley TIPP: Alle Access-Eigenschaftsfenster schließen
Wenn's dir nicht reicht, das Fenster von Hand zu schließen:



Private Declare Function PostMessage Lib "user32" Alias "SendMessageA" _

(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

(ByVal lpClassName As Any, ByVal lpCaption As Any) As Long

Private Const WM_CLOSE = &H10



Public Function AlleEigenschaftsFensterSchliessen()

Dim hWnd As Long

Do

hWnd = FindWindow("OArgDlg", 0&)

If hWnd = 0 Then Exit Do

PostMessage hWnd, WM_CLOSE, 0&, 0&

Loop

End Function



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: