Question

下面的代码仅适用于连续形式的第一条记录，它不循环抛出记录。因此，如果检查了第一条记录，那么我会收到消息“您需要在继续之前选择一个RELEASE复选框”。如果它不是我得到另一个消息。

我需要做的是运行所有“ReleaseProduct”复选框，并在第一个到达时退出sub（如果有）并给出一条消息，如果没有选中复选框则运行取消= fncRequiredReleaseSelectedEmail（Me）并退出子。我搞砸了某个地方......

以下是我在表单按钮中的代码....

    Dim Cancel As Integer
Dim rs As Recordset
Set rs = Me.frmsub_ProductHoldData.Form.RecordsetClone
With rs
    .MoveFirst
    Do While Not .EOF
        If rs.Fields("ReleaseProduct") = False Then
            MsgBox "You need to select a RELEASE check box before proceeding.", vbInformation, "Selection Error"
            Exit Sub
        Else
            Cancel = fncRequiredReleaseSelectedEmail(Me)
            Exit Sub
        End If
        .MoveNext
    Loop
End With

Answer 1

我很难说这是否正是您正在寻找的内容，但这会查看所有这些记录，只有在选中后才会采取措施。

如果未选中任何框，则仅显示有关选择发布复选框的警告。

Dim Cancel As Integer
Dim rs As Recordset
Set rs = Me.frmsub_ProductHoldData.Form.RecordsetClone
With rs
    .MoveFirst
    Do While Not .EOF
        If rs.Fields("ReleaseProduct") = True Then
            Cancel = fncRequiredReleaseSelectedEmail(Me)
            Exit Sub
        End If
        .MoveNext
    Loop
    MsgBox "You need to select a RELEASE check box before proceeding.", vbInformation, "Selection Error"
End With

Recordsetclone循环

1 个答案: