Access文本框只保留一個(gè)空格，刪除其他多余的空格

在數(shù)據(jù)錄入中，很多時(shí)候，我們都會不小心多按幾下空白鍵。這樣會出現(xiàn)多個(gè)空格

我們希望如果需要存在空格的時(shí)候，刪除多余的空白位置，只保留一個(gè)空格的位置。

這里分享一個(gè)自定義函數(shù)，可以方便刪除多余的空格

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

創(chuàng)建中創(chuàng)建文本框“Text0”和“Text2”

調(diào)用函數(shù)：

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