Is your Application Running under Terminal Services?
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
Labels: Code Samples, VB, VBA
0 Comments:
Post a Comment
<< Home