在具有当月访问权限的记录上打开一个表单

Question

我一直在四处乱逛，但我无法弄清楚如何使MS Access表单对当月的记录开放。

我要发生的事情是，当打开表单时，用户将被直接发送到当月的记录，而不是仅过滤当月的记录。

有人可以帮忙吗？这超出了我。

Answer 1

一种方法使用SearchForRecord方法：

Private Sub Form_Open(Cancel As Integer)
DoCmd.SearchForRecord , , acFirst, "Year([YourDateField]) = Year(Date()) And 
Month([YourDateField]) = Month(Date())"
End Sub

备用标准结构：

DoCmd.SearchForRecord , , acFirst, "Val(Year([YourDateField]) & Month([YourDateField])) = Val(Year(Date()) & Month(Date()))"

DoCmd.SearchForRecord , , acFirst, "Val(Format([YourDateField], 'yyyymm')) = Val(Format(Date(), 'yyyymm'))"