Access文本框隻保留一箇空格,刪除其他多餘的空格

2017-12-20 16:10:00
tmtony8
原創
1764

在數據録入中,很多時候,我們都會不小心多按幾下空白鍵。這樣會齣現多箇空格

我們希望如果需要存在空格的時候,刪除多餘的空白位置,隻保留一箇空格的位置。


這裡分享一箇自定義函數,可以方便刪除多餘的空格

'作者:縱雲梯
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

    分享