ms访问VBA代码 我可以根据另一个字段的内容禁用一个字段，但是我重新启用的代码不起作用

Question

我有一个简单的形式，我有一个字段InstrumentTypes_ID和一个字段DGLenders_ID。

当InstrumentTypes_ID等于 "Mortgage" 或 "Modification" 时，我希望DGLenders_ID保持启用状态，但任何其他值都应该使DGLenders_ID被禁用。

我在 InstrumentTypes_ID textBox 的 AfterUpdate 中有以下代码，对我来说似乎足以获得这种效果（但是，在测试时，我可以输入 "Warranty Deed"（或任何不"Mortgage"或"Modification"的内容），这会禁用DGLenders_ID field，但是如果我返回并用 "Mortgage" 或 "Modification" 更新它， 它不会重新启用该字段）：

Private Sub InstrumentTypes_ID_AfterUpdate()    
    Me.DGLenders_ID.Enabled = True
        If Me.InstrumentTypes_ID = "Mortgage" Then
            Me.DGLenders_ID.Enabled = True
        ElseIf Me.InstrumentTypes_ID = "Modification" Then
            Me.DGLenders_ID.Enabled = True
        Else
            Me.DGLenders_ID.Enabled = False
        End If    
End Sub

Answer 1

您应该尝试将代码放在子例程中，并在窗体的当前事件和字段的丢失焦点事件中调用它。