加载时需要表格到 gotorecord =Date()

Question

我有一个标记为 'RouteCard_A' 的 table，主键为“ID”，然后我有一个名为“AMaidDate”的字段设置为 date/time，格式为长日期，需要，是的，索引是（没有重复）。我有一个标记为 'RouteCard_A_Form'.

的表格

几周来我一直在尝试默认我的表单在加载时打开到“AMaidDate”与今天的日期 [=Date()] 匹配的记录。

目前设置为：

Private Sub Form_Load()
 DoCmd.RunCommand acCmdRecordsGoToLast
End Sub

我尝试过 Dim as string、dim as date、docmd.openreport 和 docmd.gotorecord 的组合，但没有成功（我可能用错了）

我想我需要将 AMaidDate 设置为辅助主键 and/or 使 AMaidDate 与 ID 字段匹配，这样我就可以使用类似的东西：

Private Sub Form_Load()
Dim stToday as date
Dim stOpenRec as string
stToday = date
stOpenRec = (I need a way to get the ID from the AMaidDate that matches today)

DoCmd.GoToRecord acDataForm, "AMaidDate", acGoTo, stOpenRec
End sub

请帮我完成这个。

谢谢

Answer 1

这应该有效：

Me!AMaidDate.SetFocus
DoCmd.FindRecord Date

加载时需要表格到 gotorecord =Date()

Need form to gotorecord =Date() on load

goto

form-load

ms-access-2013