0

当我选择以 (REF) 开头的许多组合框值之一时，我试图勾选表单上的复选框 - 这是代表​​引用关闭的代码。

这就是我所做的..它不起作用

Private Sub ReasonForInappriopriateReferral_AfterUpdate()
    If Me.RsnForInappropriateRef.Value Like "(REF)*" Then
        Me.Check66 = True
    End If
End Sub

请帮助，如果关闭原因是推荐关闭，我之前曾尝试将标签有条件地格式化为不同的颜色，但也无法做到这一点，并认为这可能取决于 IF Like 命令。

4

1 回答 1

0

我完全按照您的指示添加了两个控件。我通过将 Row Source Type 设置为 Value List 并将 Row Source 设置为 "Blah Blah";"(REF) - Jackson";"Two Times";"(REF) - Tyson" 来填充我的组合

我把它放在按钮的 Click 事件中：

If Me.RsnForInappropriateRef.Value Like "(REF)*" Then
    Me.Check66 = True
Else
    Me.Check66 = False
End If

它的行为完全符合预期。然后我将它移到组合框的 AfterUpdate 事件中，它再次完美运行。我唯一能看到的是，在您的示例中，组合框的名称与您的子名称不同（ReasonForInappriopriateReferral vs RsnForInappropriateRef）。你确定你的名字是对的吗？

于 2013-06-21T15:56:36.153 回答