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

2017-12-20 16:10:00
黄善超
原创
484

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

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


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

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

    分享