ACCESS做数据库的出勤与工作安排

1588078/37 · 发表于 2019-6-13 16:42

本帖最后由 1588078/37 于 2019-6-15 15:28 编辑

QQ图片20190613164437.png

自行编写的
通过VBA数据导入ACCESS的
主要是出勤时间和生产工作的安排
报表查询未做
要核算效率

microyip · 发表于 2019-6-13 16:51

谢谢分享，后面继续向你学习

1588078/37 · 发表于 2019-6-13 21:02

nf = Me.TextBox15.Text
yf = Format(Me.TextBox10.Text, "00")
ksrq = Format(nf & "/" & yf & "/" & "01", "yyyy/mm/dd")
jsrq = Format(nf & "/" & yf & "/" & Day(DateSerial(Year(nf), Month(yf) + 1, 0) - 1), "yyyy/mm/dd")
Me.TextBox10.Text 输入月份2时
会变成2月30日
而不是2019年2月28日，其它月份都没问题
公式也没发现问题

1588078/37 · 发表于 2019-6-15 10:52

jsrq = DateValue(Format(nf & "/" & yf & "/" & "01", "yyyy-mm-") & "01") - 1
已解决
用了个新函数

1588078/37 · 发表于 2019-6-15 15:28

已更新，加入新的查询报表

1588078/37 · 发表于 2019-6-17 16:23

时时更新后上传

		自动登录	找回密码
密码			免费注册

[分享] ACCESS做数据库的出勤与工作安排

最新热点 /1