ms-access - 禁用基于其他值的复选框

Question

我有一个相对简单的连续形式。有一个看不见的复选框，我们就叫它弗兰克吧。

第二个复选框 (Ralph) 可能是 True 或 False。还有一个带有日期的文本框 (RalphDate)。

如果 Frank 是 True，我不希望用户能够更改 Ralph 或 RalphDate，无论已经存在什么。

现在，RalphDate 很简单，因为我只使用条件格式来检查 Frank 的值，该值启用或禁用 RalphDate。此选项不适用于复选框。

我现在卡住了，因为使用一些 Visual Basic 会根据它遇到的第一个 Frank 值的值将所有 Ralph 框的状态设置为相同。因此，问题是如何根据 Frank Check Box 为 True 仅禁用关联的 Ralph Check Box？

Answer 1

解决方案 1

更新 Locked属性而不是 Enabled对于 ckRalph。

在表单的 OnCurrent() 事件处理程序中执行此操作。

Locked 属性将阻止没有视觉提示的更改。
这应该处理功能部分，即使在视觉上复选框看起来仍处于启用状态，但无法更改。

解决方案 2

另一种方法是通过这样做来模拟复选框:

使用文本框，将其命名为 fakeckRalph；把它变成一个小正方形。

使其记录源属性类似于' =getstate() '

创建 getstate执行以下操作的函数:

Public Function GetState() as string
    GetState = iif(ckRalph, "V", " ")
End Function

我建议使用符号字体和字符使勾号在其框中显示得更好。
所以现在，如果您的 Ralph 为真，复选框将显示勾号，如果不是，则为空。

为了完成这个技巧，当 Franck 为真时，在文本框上使用条件格式来禁用它。
为了使点击更加逼真，还将光标更改为手形指针。

需要做的最后一件事是从我们的 fakeckRalph 连接 OnClick 事件。文本框，以便我们可以切换 Ralph 的状态并正确显示它:

Private Sub OnClick()
    Ralph = Not Ralph
    fakeckRalph.Requery
End Sub

我使用了类似的技术来显示连续表单上的记录是被锁定(使用来自一种 Windings 字体的蓝色挂锁符号)还是可删除，并带有一个可以单击的大红叉:

image 2 http://img9.imageshack.us/img9/6296/sshot2do5.png image 1 http://img8.imageshack.us/img8/4997/sshot1ya5.png