| |
|
|
| | Аксес2003
Имеем: Пользователь подключен к терминальному серверу - соответственно у него видно только окно базы. Можно ли как то в аксесе сделать так чтобы было видно какой язык в данный момент включен русский или английский (в самой базе например снизу справа) Типа информационного поля.
Спасибо. | |
| |
| |
| |
|
|
| | сделайте свой индикатор
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
function GetLang() as string
Dim strName As String
strName = String(9, 0)
GetKeyboardLayoutName strName
select case
Case "00000409"
GetLang = "Engl"
Case "00000419"
GetLang = "Rus"
Case Else
GetLang = "ХЗ"
end select
end function
|
| |
| |
| |
