VBA MS Access在文本框中更改值的范围为2个字符

约瑟夫

我正在MS Access中处理表单,并且有很多需要更改的日期数据。

我有一个看起来像这样的日期字段:2/28/2019 10:00:00 PM。此字段被加载到名为txtFieldDate的文本框中。

现在,我想将2个斜杠之间的值更改为15。现在,加载的日期可以具有1到31之间的任意一天的日值,所以问题出在1到9天之间,这是单个日期数字(例如2/4/2019 11:00:00 PM)。

我尝试使用替换功能(例如varMiddleDate = Replace(varMiddleDate,“ / * /”,“ / 15 /”)),但我无法使用通配符,因此我想知道是否有一种简便的方法可以替换之间的任何内容2个斜杠(一位或两位数)并将值15放在那里?

谢谢

古斯塔夫

切勿将日期/时间存储为文本。

因此,将其转换为DateTime并将Day替换为15:

TrueDate = CDate(YourTextDate)
Date15 = DateSerial(Year(TrueDate), Month(TrueDate), 15) + TimeValue(TrueDate)

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何在MS Access中通过VBA填充文本框?

来自分类Dev

Int()函数MS Access VBA

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

MS ACCESS VBA:Me.Dirty = False OnTimer事件还原编辑的文本框数据

来自分类Dev

MS Access VBA IF()

来自分类Dev

MS Access 2013:通过VBA使用MS Word的语法检查

来自分类Dev

如何从MS Access 2003 VBA处理MS Excel分页符

来自分类Dev

SQL语法问题MS Access VBA

来自分类Dev

MS Access:使用VBA将字符串从文本框拆分为其他文本框

来自分类Dev

带VBA的MS Access链接表

来自分类Dev

多参数IsNull函数MS Access VBA

来自分类Dev

MS访问,在VBA中编写查询,并在文本框中显示结果

来自分类Dev

MS-Access:使用vba移至NavigationControl

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

是/否字段上的MS Access VBA Dlookup

来自分类Dev

MS Access查询未从VBA接收参数

来自分类Dev

MS Access VBA:OpenRecordSet返回什么?

来自分类Dev

MS Access VBA,SQL脚本:In(),<>和AND语法

来自分类Dev

MS Access VBA显示列表框计数到文本框

来自分类Dev

使用VBA显示MS Access报告

来自分类Dev

MS ACCESS vba-错误

来自分类Dev

MS ACCESS VBA按案例订购的时间

来自分类Dev

MS Outlook会干扰Access vba过程

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

MS Access VBA - 使用日期过滤表单

来自分类Dev

MS-Access VBA 将多个字符转换为 Asc

来自分类Dev

DLookup:MS Access VBA 中的查询与表?

来自分类Dev

使用vba从ms访问表单文本框中的多个excel文件中检索特定单元格值

来自分类Dev

如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入