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