【发布时间】:2014-07-08 19:34:39
【问题描述】:
该表单是一个连续的表单,其目的是调用供应商列表,然后当所有必填字段(在不同的表单上)完成后,一个名为 AllDone 的计算字段,使用 IIf 语句将该字段设置为“是”对于每条记录(IIf 在表中完成)。
然后,当加载表单时,供应商旁边应该会出现一个复选标记,向用户表明该供应商已完成。复选标记已加载到表中。
“AllDone”字段的结果类型为是/否,格式设置为是/否,表单的格式设置为是/否。
这是一段简单的 VBA 代码,但我无法让它工作。我尝试了几种变体;包括,将 .value 添加到 Me.AllDone,在 Yes 周围添加“”,尝试 -1 以及各种组合。我的试错失败了,我的研究停滞不前;所以我转向 SO。
我的代码:
Private Sub Form_Load()
If Me.AllDone = Yes Then
Me.Check.Visible = True
Else
Me.Check.Visible = False
End If
End Sub
谢谢!
【问题讨论】:
-
试试不带等号的
If Me.AllDone Then。 -
感谢您的回复。当我以这种方式运行代码时,所有复选标记都可见,即使是否。
-
听从@Roland 的建议,然后试试
Me.AllDone.Value -
仍然显示所有复选标记。
-
Private Sub Form_Load() If Me.AllDone.Value Then Me.Check.Visible = True Else Me.Check.Visible = False End If End Sub
标签: ms-access vba ms-access-2010