Question

我有一个包含国家法定假日日期的表格，我想检查两个给定日期（开始日期和结束日期）是否在这两个日期之间有任何假期，如果有代码，请将它们插入其他表。

到目前为止，我的代码是这样的：

Dim rs As DAO.Recordset
    Dim tblferiados As DAO.Recordset
    Set tblferiados = CurrentDb.OpenRecordset("feriados")
    Dim db As Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("natHolidays")`
    If (tblholidays.Fields("date") >= [Forms]![Form]![Text0] & tblholidays.Fields("date") <= [Forms]![Form]![Text4]) Then
            rs.AddNew
            rs!Date = tblferiados.Fields("data")
            rs.Update
    End If
    rs.Close: Set rs = Nothing

任何人都可以帮忙，这是行不通的吗？

Answer 1

替换

 If (tblholidays.Fields("date") >= [Forms]![Form]![Text0] & tblholidays.Fields("date") <= [Forms]![Form]![Text4]) Then

与

 If (tblholidays.Fields("date") >= [Forms]![Form]![Text0]) AND ( tblholidays.Fields("date") <= [Forms]![Form]![Text4]) Then

VBA中的&字符执行字符串连接

访问VBA使用IF中的表值

1 个答案: