Date Access 2003中写入的MS Access VBA表单日期选择器在Access 2016中不可用请建议如何在Access 2016中转换或使其工作

我在Windows 10上运行32位Office 2016

当我尝试执行这段代码时：

Private Sub Form_Load() 
    If DatePart("ww", Format("01/" & Month(Date) & "/" & Year(Date), "dd/mm/yyyy", vbUseSystemDayOfWeek), vbThursday) = DatePart("ww", Date, vbThursday) Then
        FromDate.Value = Format("01/" & Month(Date) - 1 & "/" & Year(Date), "dd/mm/yyyy")
        ToDate.Value = DateAdd("d", -1, Format("01/" & Month(Date) & "/" & Year(Date), "dd/mm/yyyy"))
    Else
        FromDate.Value = Format("01/" & Month(Date) & "/" & Year(Date), "dd/mm/yyyy")
        ToDate.Value = DateAdd("d", -1, Format("01/" & Month(Date) + 1 & "/" & Year(Date), "dd/mm/yyyy"))
    End If
    If CountRows("rpt_all_hours") > 0 Then
        cmdClearTable.Enabled = True
        ViewTable.Enabled = True
    Else
        cmdClearTable.Enabled = False
        ViewTable.Enabled = False
    End If
End Sub

我得到一个错误：

运行时错误2683此控件中没有对象

代码停在这一行：

FromDate.Value = Format("01/" & Month(Date) - 1 & "/" & Year(Date),"dd/mm/yyyy")

从

.mdb

文件将表单导入Access 2016数据库时，我还收到一个活动的X错误：

在某个窗体或报表上加载ActiveX控件时出错

---

我做错了什么？

哦，天哪，那段代码需要彻底清理。不要对日期操作使用字符串处理，没有例外

至于日期选择器，它内置于较新的Access版本中。只需为文本框设置日期格式，右侧会显示一个小按钮，打开日期选择器

然后丢弃旧的ActiveX控件