MS Access VBA表单上的PICKER在Access 2003中编写的Access 2016中无法使用，请告知如

Question

我在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文件中导入表单中的访问2016数据库时也有一个活动X错误：

在您的表单或报告之一上加载ActiveX控件有错误。

我在做什么错？

Answer 1

哦，我 - 该代码需要彻底清理。从不使用字符串处理日期操作，也不例外。

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

然后丢弃旧的ActiveX控件。