Access will sich nicht schliessen lassen
PeterDoering
Gesendet: 25.03.22 11:02
Betreff: RE: Access will sich nicht schliessen lassen



Extreme Veteran

Beitr├Ąge: 550
5002525
Hallo,

Schau mal, ob folgendes funktioniert:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Dim hwnd As Long

hwnd = FindWindow("OpusApp", vbNullString)
If hwnd > 0 Then
SetForegroundWindow (hwnd)
end if

OpusApp ist der Name der Word-Applikation.

-----
Gruss - Peter
Top of the page Bottom of the page