[editolis]

Υπαρχει ο εξης εξαιρετικος κωδικας σε αυτο το φορουμ.

Φτιαξε ενα νεο Module και ονομασε το πχ: ModChangeKeyboardLang

Option Compare Database
Option Explicit

'Const hKL_GREEK As Long = &H408, hKL_En_USA As Long = &H409, SETFOREXCEL = &H100
Const hKL_GREEK As Long = &H408, hKL_En_USA As Long = &H409, SETFORACCESS = &H100
Const KEYEVENTF_KEYUP As Long = &H2, VK_CAPITAL As Long = &H14, KEYEVENTF_EXTENDEDKEY As Long = &H1
Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Function MapVirtualKey Lib "User32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
Declare Function ActivateKeyboardLayout Lib "User32" (ByVal hKL As Long, ByVal Flags As Long) As Long

Sub ChangeToEl_Gr()
ActivateKeyboardLayout hKL_GREEK, SETFORACCESS
End Sub

Sub ChangeToEn_Us()
ActivateKeyboardLayout hKL_En_USA, SETFORACCESS
End Sub

================================================== ============
Στο κλικ του κουμπιου σου για αλλαγη στα Ελληνικα θα δωσεις αυτη την εντολη:
ChangeToEl_Gr

================================================== ============
Στο κλικ του κουμπιου σου για αλλαγη στα Αγγλικα θα δωσεις αυτη την εντολη:
ChangeToEn_Us

Καλη συνεχεια...