Access文本框只保留一个空格，删除其他多余的空格

在数据录入中，很多时候，我们都会不小心多按几下空白键。这样会出现多个空格

我们希望如果需要存在空格的时候，删除多余的空白位置，只保留一个空格的位置。

这里分享一个自定义函数，可以方便删除多余的空格

'作者：纵云梯
Public Function RemoveMulBlank(myStr As String) As String  '去除多余空格 
    Do While InStr(1, myStr, "  ") > 0
        myStr = Replace(myStr, "  ", " ")
    Loop
    RemoveMulBlank = myStr
End Function

创建中创建文本框“Text0”和“Text2”

调用函数：

Private Sub Text0_AfterUpdate()
   Me.Text2 = RemoveMulBlank(Text0)
End Sub