ms-access - 删除字符串的第一个字符，如果它等于某物

Question

我正在为 Access 2010 练习 VBA。

我阅读了有关我的帖子的所有建议帖子，但没有找到任何具体内容。
我知道如何移动字符串中的特定字符，但我不知道如何删除等于某物的特定字符。

如果有电话号码，我想从电话号码中移动字符 1 或 1- 。

示例:17188888888 至 7188888888 或 1-7188888888 至 7188888888

我试图首先使用 if 语句，只需删除 1。

电话号码以字符串而非数字形式输入。

这就是我的开始:我收到一条错误消息，指出 RemoveFirstChar 不明确。

Public Function RemoveFirstChar(RemFstChar As String) As String
If Left(RemFstChar, 1) = "1" Then
  RemFstChar = Replace(RemFstChar, "1", "")
End If
RemoveFirstChar = RemFstChar
End Function

Answer 1

我已经在 Access 2010 中测试了您的功能，并且运行良好。您也可以使用以下代码:

Public Function RemoveFirstChar(RemFstChar As String) As String
Dim TempString As String
TempString = RemFstChar
If Left(RemFstChar, 1) = "1" Then
    If Len(RemFstChar) > 1 Then
        TempString = Right(RemFstChar, Len(RemFstChar) - 1)
    End If
End If
RemoveFirstChar = TempString
End Function