Question

我刚刚遇到了我的一部分代码问题。我有一个命令按钮，当按下它时，它确定它是星期几。在某一天，它应该检查状态字段，并且对于标记为“需要有序”的每个记录，运行并打开查询。除非打开的最后一条记录标记为不同（OK或Ordered），否则这样可以正常工作。无论最后打开的记录是如何标记的，我都需要它运行。 VBA Code to change font and size in an email from access

If Weekday(Now()) = vbSunday Then 
    If Forms![Admin Box List].Status.Value = "Needs Ordered" Then 
        DoCmd.OpenForm "OrderForm" 
    End If 
End If

Answer 1

然后忽略那个条件：

Dim rs As DAO.Recordset
If Weekday(Date) = vbSunday Then 
    Set rs = Me.RecordsetClone
    rs.FindFirst "Status = '" & "Needs Ordered" & "'"
    If rs.NoMatch = False Then
        DoCmd.OpenForm "OrderForm" 
    End If
End If 
Set rs = Nothing

用于检查所有记录的状态字段的VBA代码

1 个答案: