如何获取Access vba中的函数的返回值？

问题描述

我想使用以下功能将字符串中的几个字符替换为其他几个字符：

Public Function CharacterChange(S As String) As String
Dim A As String * 1
Dim B As String * 1
Dim i As Integer

Const AccChars = "°é*±äöüßaaŐŰú#~Mµ"
Const RegChars = "DEX+aousaaouudcMU"

For i = 1 To Len(AccChars)
A = Mid(AccChars,i,1)
B = Mid(RegChars,1)
S = Replace(S,A,B)

Next

CharacterChange = S

Exit Function
End Function

然后我在这里调用该函数：

Private Sub ButtonClick()
...
CharacterChange(MyText)
...
End Sub

但是似乎我没有得到函数的结果，在调用它之后，我仍然看到带有特殊字符的原始文本。有什么问题，请告知。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）