title image


Smiley Ich bin zwar nicht Manuela...
Zunächst: Ich weiss zwar nicht, was die anderen hier davon halten, aber ich finde, du solltest eine Forumsnachricht nicht an eine bestimmte Person adressieren, wenn sie an die Allgemeinheit gerichtet ist. Und wenn sie nicht für die Allgemeinheit bestimmt ist, solltest du sie als private Mail schicken ...Was deine Frage angeht: Das geht über die Windows-API:Private Const GW_CHILD = 5Private Const GW_OWNER = 4Private Const GW_HWNDFIRST = 0Private Const GW_HWNDNEXT = 2Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongPrivate Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As LongPrivate Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal CCh As Long) As Long'Public Function CountInstances(ClsName As String) As LongDim hWnd As Long, Lg As Long, strBuf As String, Res As LongOn Error GoTo Er Res = 0 hWnd = GetDesktopWindow() hWnd = GetWindow(hWnd, GW_CHILD) Do ' durch alle Top-Level-Windows gehen: hWnd = GetWindow(hWnd, GW_HWNDNEXT) If hWnd = 0 Then Exit Do strBuf = String(255, 0) Lg = GetClassName(hWnd, strBuf, Len(strBuf)) If Mid(strBuf, 1, Lg) = ClsName Then Res = Res + 1 LoopEx: CountInstances = Res Exit FunctionEr: MsgBox Err.Description Resume ExEnd FunctionCountInstances("OMain")liefert dir die Zahl der offenen Access-Anwendungsfenster.Reinhard


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: