Any idea how to change system keyboard lenguage with vba (1 Viewer)

MBMSOFT · May 14, 2010

Any idea how to change system keyboard lenguage with vba

I tried changing keyboard property in the control property and it works
but i need change in one control only, and if i change property it change for all contols after
so i need code on exit control event to change the system keyboard language
\e.g.
****************************************************
Private Sub A_Enter()
Me.A.KeyboardLanguage = 49
End Sub
Private Sub A_Exit(Cancel As Integer)
Me.A.KeyboardLanguage = 11
'this works(it means that keyboard language for ctl is changed back on english - 11, but system keyboard language remain on 49)
' so i need here to change system keyboard language

End Sub
*************************************************

darbid · May 17, 2010

do these links help?
http://www.dbforums.com/microsoft-access/1616222-keyboardlanguage-us-international.html

http://www.bigresource.com/Tracker/Track-vb-cleHiKL3Z1/

There are appears to be 2 ways you could do this.

MBMSOFT · May 17, 2010

I found the way how to manage this issue , so if it is halpfull for someone here it is:

Quote:

Code:

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

'define your desired keyboardlanguage
'find your desired language at [URL="http://www.trigeminal.com/frmrpt2dap.asp"][COLOR=#000088]http://www.trigeminal.com/frmrpt2dap.asp[/COLOR][/URL]

Private Const MKD = 1071 'macedonian keyboard language layout
Private Const eng = 1033 'english(united states)keyboard language layout


Private Sub A_Enter()

Call ActivateKeyboardLayout(MKD, 0)

End Sub

Private Sub A_Exit(Cancel As Integer)

Call ActivateKeyboardLayout(eng, 0)

End Sub

MyTech · Jun 15, 2011

Yep, it just came to use for me, thanks.

semoho · Nov 1, 2016

Hello
Which statement should I modify to work in windows 64bit with ms access 64bit?

Frothingslosh · Nov 1, 2016

This should do the trick:

Code:

Private Declare [COLOR=red]PtrSafe[/COLOR] Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As [COLOR=red]LongLong[/COLOR], Flag As Boolean) As [COLOR=red]LongLong[/COLOR]

semoho · Nov 2, 2016

Thanks
It works fine.

Any idea how to change system keyboard lenguage with vba (1 Viewer)

MBMSOFT

Registered User.

darbid

Registered User.

MBMSOFT

Registered User.

MyTech

Access VBA

semoho

New member

Frothingslosh

Premier Pale Stale Ale

semoho

New member

Similar threads

Users who are viewing this thread