title image


Smiley TIPP: Fokus zu Access zurück holen
über die API:



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

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

Private Const WM_SETFOCUS = &H7



'...

PostMessage Application.hWndAccessApp, WM_SETFOCUS, 0&, 0&





Ohne API:



Dim Tmp As String

'...

On Error Resume Next

Tmp = ""

Tmp = CurrentDb.Properties("AppTitle")

On Error GoTo 0

If Tmp = "" Then Tmp = "Microsoft Access"

AppActivate Tmp



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: