office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access文本框只保留一個空格,刪除其他多余的空格

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

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

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


這里分享一個自定義函數,可以方便刪除多余的空格

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

    分享
    北京十一选五基本走势