问题描述
大家好,感谢您帮助我解决我的小问题。
我正在构建一个数据库,但遇到了一个问题。当从下拉菜单中选择一个选项时,我试图使某些单元格可见。
例如我想选择 Main wheel
,然后我只希望 osi313
可见,osi314
隐藏。
我对此的编码如下。但是无论出于何种原因,当我选择 Main wheel
时它什么也不做,而当我选择前轮时,它会显示正确的可见单元格。
Private Sub Wheel_Type_Change()
If Wheel_Type.Value = "Main Wheel" Then
Me.OSI313_Label.Visible = True
Me.OSI313.Visible = True
Else
Me.OSI314_Label.Visible = False
Me.OSI314.Visible = False
End If
If Wheel_Type.Value = "Nose Wheel" Then
Me.OSI314_Label.Visible = True
Me.OSI314.Visible = True
Else
Me.OSI313_Label.Visible = False
Me.OSI313.Visible = False
End If
End Sub
解决方法
我修复了我的代码以允许这些字段工作。当我制作测试资产和带有信息的字段时,我希望在浏览记录时这些字段处于活动状态。例如,在轮子类型下,类型表示“鼻轮”。但如果之前的记录是主轮,则 osi314 字段将不可见。我想让记录显示适当的字段,而不必切换下拉菜单。
Private Sub Wheel_Type_Change()
If Wheel_Type.Value = "Select Type" Then
Me.OSI314_Label.Visible = False
Me.OSI314.Visible = False
Me.OSI313_Label.Visible = False
Me.OSI313.Visible = False
End If
If Wheel_Type.Value = "Main Wheel" Then
Me.OSI313_Label.Visible = True
Me.OSI313.Visible = True
Me.OSI314_Label.Visible = False
Me.OSI314.Visible = False
End If
If Wheel_Type.Value = "Nose Wheel" Then
Me.OSI314_Label.Visible = True
Me.OSI314.Visible = True
Me.OSI313_Label.Visible = False
Me.OSI313.Visible = False
End If
结束子