将输入转换为其他键盘语言的最佳方法是什么?

Question

我最近建立了一个访问程序，其中有代理商的客户帐户。

问题是许多客户的帐户名称不使用英语。这使得代理很难搜索，因为他们必须在两种语言之间进行更改。

我向他们发送了一个我发现的软件，该软件可以在输入该语言后更改语言（http://langover.com/），但他们对此不满意。

他们希望我构建它们可以自动搜索两种语言的东西。

以下是我现在正在使用的代码：

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

根据两个键盘语言设置获得两个字符串的最佳方法是什么？

（例如，在键入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

显然，您可以用任何语言来执行此操作（我选择了您在示例中使用的语言），您可以将两种语言以相同顺序输入两个字符串[str1和str2]。

很多运气