как поменять язык для в вода данных

В форме при Enter в поле нужно чтобь язык для в вода данных поменялься RUS на ENG
полсе Exit обратно
это вазможно или нет ?

Anapurna

В форме при Enter в поле нужно чтобь язык для в вода данных поменялься RUS на ENG полсе Exit обратно это вазможно или нет ?

у поля - есть свойство "Язык клавиатуры" - помоему ваше

'Декларация функций
Private Declare Function LoadKeyboardLayout Lib "user32" Alias _
 "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long

Private Sub ModelID_Enter()
    'Переключение на английскую раскладку
    Call LoadKeyboardLayout("00000409", &H1)
End Sub

Private Sub ModelID_Exit(Cancel As Integer)
    'Переключение на русскую раскладку
    Call LoadKeyboardLayout("00000419", &H1)
End Sub

код а языка - Georgian 00000437
но к сожадению рассклад на Русскую а мне надо на Англискую


я отискал в реестрах
и там такое

Value Data
на Англиский рассклад f0420437
на Русский рассклад 4190437

что посоветуете ?

Не понимаю вопрос. Как может быть язык один, а раскладка для другого языка?

Дело в том что
при переключателе язика ввода на f0420437
грузинский текст вводиться в соответствии латинскими буквами
а при 4190437
соответвственно русскими

А вот так не получается?

Call LoadKeyboardLayout("f0420437", &H1)

Владимир Саныч

А вот так не получается? Call LoadKeyboardLayout("f0420437", &H1)

я так пробовал , но не реагирует никак и сообшение тоже никакое не выдаёт

Всем добрый день.
Эта ссылочка для vb6, но подойдёт и для MS Access-а
www.sql.ru VB6