以连续形式放大复选框

Question

我试图通过使用此方法来增加复选框的大小。

Private Sub Form_Current()   
If Me.chkVerify = True Then   
lblLargeCheck.Caption = Chr(252)   
Else   
lblLargeCheck.Caption = " " ' a space
End If
End Sub

Private Sub lblLargeCheck_Click()
[chkVerify] = Not ([chkVerify])
If [chkVerify] = True Then
lblLargeCheck.Caption = Chr(252)
Else
lblLargeCheck.Caption = " " ' a space
End If
End Sub

以下是我遇到的错误：

注意标记了第一个复选框，并且全部选中了标签复选框。有没有解决这个问题的方法？我只想在标记复选框时才显示特定行的大复选框。我将隐藏最后的复选框。

Answer 1

您需要将大复选框绑定到连续表单的每一行中的chkVerify值。你不能用标签做到这一点。但如果你给它控制源 ...

，你可以使用文本框

=IIf([chkVerify],Chr(252),Null)

然后对于txtLargeCheck_Click()，您只需要切换chkVerify ...然后更新txtLargeCheck中显示的内容...

Private Sub txtLargeCheck_Click()
    Me!chkVerify.Value = Not Me!chkVerify.Value
End Sub

这是我的示例表单的截图...