入力を他のキーボード言語に変換する最良の方法は何ですか？

Question

私は最近、代理店の顧客のためのアカウントがあるアクセスプログラムを作成しました。

問題はお客様のアカウント名の多くが英語でないことです。これはエージェントが2つの言語の間で変化し続ける必要があるため検索が難しくなります。

入力した言語を変更できるソフトウェアが見つかりましたが（http://langover.com/）、満足できません。

彼らは私に、両方の言語で自動的に検索するものを作りたいと思っています。以下は

私は今のコードを使用していますされています

Private Sub SearchBox_AfterUpdate() 
    Me.Filter = "[USER]" & " like ""*" & me.SearchBox & "*"" 
    Me.FilterOn = True 
End Sub 

はどのような2つのキーボード言語のセットアップに応じて2つの文字列を取得するための最良の方法だろうか？

は（akuoを入力するときにたとえば、あなたがakuoなどשלוםの結果になるだろう）

Answer 1

これは動作するはずです：

SearchBox_AfterUpdate() 
searchstringlang1 = Me.searchbox 
searchstringlang2 = Me.searchbox 
str1 = "qwertyuiopasdfghjkl;zxcvbnm,./" & "/'קראטוןםפשדגכעיחלךףזסבהנמצתץ" 
str2 = "/'קראטוןםפשדגכעיחלךףזסבהנמצתץ" & "qwertyuiopasdfghjkl;zxcvbnm,./" 
For n = 1 To Len(searchstringlang1) 
If InStr(1, str1, Mid(searchstringlang1, n, 1)) > 0 Then 
searchstringlang2 = searchstringlang2 & Mid(str2, InStr(1, str1, Mid(searchstringlang1, n, 1)), 1) 
Else 
searchstringlang2 = searchstringlang2 & Mid(searchstringlang1, n, 1) 
End If 
Next 
Me.Filter = "[username]" & " like ""*" & searchstring & "*"" or [username] like ""*" & searchstringlang2 & "*""" 
End Sub 

明らかにあなたが任意の言語でこれを行うことができます（私は言語あなたを選びました2つの文字列[str1とstr2]に対して、両方の言語を同じ順序で入力することが許可されています。

多くの運