Code Snippet "VBA Access"

Umstellen der Tastatur auf Russisch über Tastenkombination

'Bedingt dass für Russisch Tastenkombination Ctrl + Shift + 7 eingestellt ist!
Function funSetRussian()
  SendKeys ("^+7")
  funSetRussian = True
End Function

'Bedingt dass für Russisch Tastenkombination Ctrl + Shift + 7 eingestellt ist!
Function funSetSwissGerman()
  SendKeys ("^+8")
  funSetSwissGerman = True
End Function