根据文本框隐藏/取消隐藏组合框

问题描述

我在访问中有一种表单可以这样工作：

用户选择产品的ID VBA代码在数据库中搜索并在表单中填充一些文本框。 例如： 用户选择ID 1 文本框1充满：水果

我的问题是，我有一个组合框，其中有多个选项可供选择，例如“香蕉”或“苹果”或“葡萄”。该组合框在窗体上可见，但我希望它不可见，并且仅在文本框1充满“水果”时显示。

在设计视图中，我将组合框的可见性设置为“否”，因此它不再出现在表单中。然后，我编写了这段代码：

Private Sub textBox1_AfterUpdate()
  If Me.textBox1 = "fruit" Then
      Me.LabelOfTheComboBox.Visible = True
      Me.ComboBox.Visible = True
  Else
      Me.LabelOfTheComboBox.Visible = False
      Me.ComboBox.Visible = False
  End if
End Sub
    

但是它不起作用，当文本框充满“水果”时，组合框仍然不可见。 您能帮我解决此代码吗？

解决方法

一切看起来都很好。用您所说的话，在文本框中放入“水果”不会导致组合框显示，那么我的猜测是If-test失败了。也许您可以在比较之前尝试修剪文本框的两侧。您还应注意此情况。尝试将文本框的大小写强制为小写以匹配字符串常量。