Database 在Access中运行VBA代码

我目前在Access 2013内工作。如果选择了按钮（是/否字段），我想锁定子窗体中的两个字段。这两个字段包括“恢复以前的位置”和“个人参考”，是/否字段是“恢复源内部”

我的代码：

Private Sub Resume_Source_Internal_Click()
   If [Resume Source Internal].Value = True Then
      [Personal Reference].Enabled = True
      [Resume Previous Location].Enabled = False
   Else
      [Personal Reference].Enabled = True
      [Resume Previous Location].Enabled = False
   End If
End Sub

我遇到的问题是，当我选择按钮（是/否）时，什么都没有发生。我以前以另一种形式运行过这段代码，它运行得非常好。有什么我可能错过的吗？“个人参考”和“简历以前的位置”都是查找字段

试试这个：

Private Sub Resume_Source_Internal_Click()
   If [Resume Source Internal].Value = True Then
      [Personal Reference].Enabled = True
      [Resume Previous Location].Enabled = False
   Else
      [Personal Reference].Enabled = False
      [Resume Previous Location].Enabled = True
   End If
End Sub

请注意，在

Else

中，我切换了

False

和

True

的值。正如您所写的，您在

If…Else

的两侧设置了完全相同的值，请尝试以下操作：

Private Sub Resume_Source_Internal_Click()
   If [Resume Source Internal].Value = True Then
      [Personal Reference].Enabled = True
      [Resume Previous Location].Enabled = False
   Else
      [Personal Reference].Enabled = False
      [Resume Previous Location].Enabled = True
   End If
End Sub

---

请注意，在

Else

中，我切换了

False

和

True

的值。正如您所写的，您在

If…Else

的两侧设置了完全相同的值。此代码是否适用于您-在属性页中将字段设置为一个启用字段和一个禁用字段

单击该按钮时，enabled属性将从True切换到False，反之亦然

Private Sub Resume_Source_Internal_Click()

    Me.Personal_Reference.Enabled = Not Me.Personal_Reference.Enabled
    Me.Resume_Previous_Location.Enabled = Not Me.Resume_Previous_Location.Enabled

End Sub

---

此代码是否适用于您-在属性页中将字段设置为一个启用字段和一个禁用字段

单击该按钮时，enabled属性将从True切换到False，反之亦然

Private Sub Resume_Source_Internal_Click()

    Me.Personal_Reference.Enabled = Not Me.Personal_Reference.Enabled
    Me.Resume_Previous_Location.Enabled = Not Me.Resume_Previous_Location.Enabled

End Sub

---

你试过一步一步地编译吗？停止该潜艇上的程序，向前一步。我现在不会尝试。同意w/@TedoG。-当某些程序出现问题时，一步一步地调试始终是第一件要做的事情。我已经找到了答案，我只是直接在我的子窗体中编写代码，为resume source internal设置一个事件过程。如果你自己找到了答案，请关闭/删除此问题，因为它实际上没有广泛的用户需求。您是否尝试过逐步编译？停止该潜艇上的程序，向前一步。我现在不会尝试。同意w/@TedoG。-当某些操作不正常时，一步一步地调试始终是第一件要做的事情。我已经找到了答案，我只是直接在我的子窗体中编写代码，为resume source internal设置一个事件过程。如果您已经找到了答案，请关闭/删除此问题，因为它实际上没有广泛的用户需求。