Question

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

我的代码：

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

我遇到麻烦的问题是，当我选择按钮时（是/否）没有发生任何事情。我之前以另一种形式运行此代码，它运行得很好。有什么我可以错过的吗？个人参考和恢复上一个位置都是查找字段。

Answer 1

试试这个：

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

的两侧设置完全相同的值

Answer 2

此代码是否适合您 - 在“属性表”中将字段设置为启用并禁用一个。

单击该按钮时，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

在Access中运行VBA代码

2 个答案: