Question

我有一个填充了表格中的项目的表单。每个项目都有一个复选框，允许用户在单击按钮后请求该项目。请求是复选框。我试过了 Me!Requested = 0，这给出了相同的结果。

问题是复选框值总是返回false，即使选中它也是如此。参考代码，我总是收到第一条消息。

Private Sub btnSubmitRequest_Click()

If Me!Requested = False Then
    MsgBox ("Please select at least 1 item to check out.")
    Exit Sub
Else
   MsgBox ("123")
End If

End Sub

Answer 1

如上所述，Me!Requested只会查看当前记录中的Requested复选框。因此无论它具有什么随机价值，都将决定结果。

如果您想检查是否选中了至少一个 Requested复选框，则需要查看所有这些复选框。你可以这样做，例如循环超过Me.RecordsetClone，例如

Dim rs As DAO.Recordset
Dim nSelected As Long

nSelected = 0
Set rs = Me.RecordsetClone
Do While Not rs.EOF
    If rs!Requested = True Then
        nSelected = nSelected + 1
    End If
    rs.MoveNext
Loop
rs.Close

MsgBox "Selected: " & nSelected

复选框始终返回false

1 个答案: