Any idea how to change system keyboard lenguage with vba

[MBMSOFT]

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]

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]

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

Quote:

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]

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

 

[semoho]

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

 

[Frothingslosh]

This should do the trick:

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]

Thanks
It works fine.

 

[ehabZaki]

HI MBMSOFT
I need to use the Code you kindly provided up there, but I need to use Arabic (Saudi Arabia) and English (United State) .
Your kind reply back will be much appreciated.
Ehab.

 

[Mark_]

HI MBMSOFT
I need to use the Code you kindly provided up there, but I need to use Arabic (Saudi Arabia) and English (United State) .
Your kind reply back will be much appreciated.
Ehab.

You are asking on an 8 year old thread. The poster has not posted in 4 years. I am hoping someone can help, but I wouldn't expect MBMSOFT to respond.

 

[GaP42]

define your desired keyboardlanguage 'find your desired language at http://www.trigeminal.com/frmrpt2dap.asp Private Const MKD = 1071 'macedonian keyboard language layout Private Const eng = 1033 'english(united states)keyboard language layout

The above link provided in the code is no longer active: so you need to look furth afield: eg:

ActivateKeyboardLayout function (winuser.h) - Win32 apps

Sets the input locale identifier (formerly called the keyboard layout handle) for the calling thread or the current process. The input locale identifier specifies a locale as well as the physical layout of the keyboard.

learn.microsoft.com

Keyboard identifiers and input method editors for Windows

Use keyboard identifiers and Input Method Editors (IMEs) to identify the keyboard type.

learn.microsoft.com

 

[ehabZaki]

GaP42,
Not really helping, but thanks anyway you took the time to reply.
I'll look into some other active Websites.

 

[CJ_London]

Sounds like all you need is the language code (LCID) for Arabic. If so, take a look at this link

Microsoft Locale ID Values

learn.microsoft.com

 

[ehabZaki]

CJ_London,
Thanks a Million, this is what I was looking for. Much Appreciated.

 

[Gasman]

GaP42,
Not really helping, but thanks anyway you took the time to reply.
I'll look into some other active Websites.

Welll if you had not been advised, you would probably still be waiting for a reply?
So i would say it is helpful.

Seems to be a habit of yours as well?

Opening a PDF to specific page through field reference

Hello, I have a database full of part numbers, that have standard(Blueprints essentially) images that go with them. So, I want to have a button that allows the user to click and see the image of the part and all the details (Listed in a PDF). My code works perfect when I tell it to go to a...

www.access-programmers.co.uk