level 1
贴吧用户_aMQXa5G
楼主
DoCmd.SetWarnings (False)
Dim add_sql As String
add_sql = "Insert Into 请假申请（号,申请日期,请假原因,请假类型,请假开始时间,请假结束时间）values ('" & 号 & "',
#" & 申请日期 & "#
,'" & 请假原因 & "','" & 请假类型 & "',
#" & 请假开始时间 & "#
,
#" & 请假结束时间 & "#
)"
DoCmd.RunSQL add_sql
2024年10月24日 13点10分
1
Dim add_sql As String
add_sql = "Insert Into 请假申请（号,申请日期,请假原因,请假类型,请假开始时间,请假结束时间）values ('" & 号 & "',
#" & 申请日期 & "#
,'" & 请假原因 & "','" & 请假类型 & "',
#" & 请假开始时间 & "#
,
#" & 请假结束时间 & "#
)"
DoCmd.RunSQL add_sql
