Below VBA code to check this, IsRunningInTerminal() function returns True when you Access application runs in Terminal server session:
Private Declare Function GetSystemMetrics _
Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_REMOTESESSION As Long = &H1000
Public Function IsRunningInTerminal() As Boolean
IsRunningInTerminal = _
(GetSystemMetrics(SM_REMOTESESSION) <> 0)
End Function
No comments:
Post a Comment