安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2017-12-20 16:10:00
tmtony8
原创
1302

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

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


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

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

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
    内存占用:8.00MB
    PHP 执行时间:0.16
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    飞龙在天投注 孙悟空客服 华东15选5走势图浙江 黑豹之月免费试玩 金黄时代怎么玩 玉皇大帝返水 经典243走势图 骰宝稳赢公式 虎爪包金吊坠 开心假期儿童画