access中某字段有空格如何一整字段同位置空格去掉想要的长度

1、在标准模块中建立一个自定义函数
Function ReplaceMatch(ByVal str As String, ByVal match_str As String, ByVal Rematch_str As String) As String
    '引用：Microsoft VBScript Regular Expressions 5.5
    '功能：替换字符串
    '参数：str--测试字符串，match_str--源正则表达式,Rematch_str--替换的正则表达式
    Dim re As New regexp
    re.Pattern = match_str
    re.IgnoreCase = True
    re.Global = True
    ReplaceMatch = re.Replace(str, Rematch_str)
    Set re = Nothing
End Function


2、第一个问题的处理写查询：
update 阁下的数据表 set 阁下的字段名= ReplaceMatch(阁下的字段名,"(^\w+)\s+(\w+)\s+(\w+$)","$1   $2   $3")


3、第二个问题的处理写查询：
update 阁下的数据表 set 阁下的字段名= ReplaceMatch(阁下的字段名,"(^\w+)\s+(\w+$)","$1 $2")