在Access窗体中自动填充的VBA If / Then语句

Question

我正在使用VBA代码自动填充Access表单。因此，如果您选择1，则下一个问题应自动填充到9.

Private Sub PAC9_2b_FullyAdherent_AfterUpdate()
  If [PAC9_2b_FullyAdherent] = 1 Then 
    [PAC9_2a_IfNoAdherence] = 9
  End If
End Sub

我无法确定代码或单个字段是否有问题。我的许多其他陈述都在起作用，而不是在这个特定的Sub下。