如何通过从表单的组合框中选择选项来禁用其他字段答案

【问题标题】：how to disable other fields by selecting option from combo box in a form如何通过从表单的组合框中选择选项来禁用其他字段
【发布时间】：2020-05-23 22:33:30
【问题描述】：

我有一个奶牛场记录数据库。它有一个表格，其中我有奶牛的详细信息和它们的图片。一种我有字段 [GENDER] 的表格。当我从该字段 [Gender] 中选择 [MALE] 时，我想要那个。它应该禁用表单上的其他字段。当我选择 [FEMALE] 时。它应该启用表单上的其他字段。如果选择为 [MALE]，则表单应打开并禁用字段，如果选择为 [FEMALE]，则启用字段。

Private Sub Gender AfterUpdate ()

If Gender.Value = "Male" Then

CalvingStatus.Enabled = False

MilkDay.Enabled = False

Else if Gender.Value = "Female" Then

CalvingStatus.Enabled = True

MilkDay.Enabled = True

Else

CalvingStatus.Enabled = False

MilkDay.Enabled = False

End if

End Sub

【问题讨论】：

好像你错过了tour 并阅读了How to Ask！这将向您展示如何编写format 和highlight 代码，然后更新问题！
实际代码仅在您更新 Gender 后才会更改，因为它驻留在引发的事件中。如果在打开表单后也会发生同样的情况，则可能是该操作引发了一个事件（阅读有关表单事件的文档）；）

标签： vba forms ms-access combobox

【解决方案1】：

Private Sub Form_Current()
    EnableDisable
End Sub

Private Sub Gender_AfterUpdate()
    EnableDisable
End Sub

Private Sub EnableDisable()
    If Gender.Value = "Male" Then
        CalvingStatus.Enabled = False
        MilkDay.Enabled = False
    ElseIf Gender.Value = "Female" Then
        CalvingStatus.Enabled = True
        MilkDay.Enabled = True
    Else
        CalvingStatus.Enabled = False
        MilkDay.Enabled = False
    End If
End Sub

【讨论】：