Question

当我单击复选框白色时，它必须仅过滤掉Race，其中子窗体中的W记录在这里是我的代码，但它无法正常工作，任何建议都是错误的。提前致谢

Option Compare Database

Private Sub White_Click()

strFilter = "Race=W """ & Me.White.OnClick & """"
DoCmd.OpenForm "Home"
Forms!Home![Employees subform].Form.Filter = strFilter
Forms!Home![Employees subform].Form.FilterOn = True

End Sub

Answer 1

这句话非常令人困惑：

strFilter = "Race=W """ & Me.White.OnClick & """"

首先，有Race = W.然后，有Me.White.OnClick的值 - 如果这是一个复选框，你有一个与它关联的真/假值，但只有你使用一个值。

根据您的源表，您可能应该执行以下操作：

if me.white.value then
   strFilter = "Race = 'W'"
else
   strFilter = ""
end if

我不太确定me.white.value - 它可能是另一个变量。这样做可以点击和关闭复选框

如何使用复选框过滤特定记录并在子窗体中显示

1 个答案: