ms-access - 检查 Access 表单字段是否为 Null，如果不是 Null，则调用添加功能

Question

我有一个简单的 Access 表单，当您填写表单并忘记填写业务部门字段时，会弹出一个 msgBox 告诉您并设置焦点到那个组合框。如果它不为空，我想调用下一个功能。此代码的第一部分有效，但当它不是 Null 时，它不会继续。

 Private Sub Image_AddNon_RPS_Button_Click()

 If IsNull(Me.BU_Selected_Add) Then
    MsgBox "Please Select a Business Unit!", vbOKOnly
            Exit Sub
         End If
    Me.Combo_BU_Selector.SetFocus
    Exit Sub
If Not IsNull(Me.BU_Selected_Add) Then
    Call Add_RPS_LINE
        End If
End Sub

有人看到我在左外野的位置吗？

Answer 1

你有一个额外的 Exit Sub(第一个 MsgBox 之后的那个)阻止你的代码做你想做的事。此外，您的第一个 End If 位置错误。

试试这样的:

Private Sub Image_AddNon_RPS_Button_Click()

  If IsNull(Me.BU_Selected_Add) Then                     ' No business unit 
      MsgBox "Please Select a Business Unit!", vbOKOnly  ' Tell user 
      Me.Combo_BU_Selector.SetFocus                      ' Focus the control
      Exit Sub                                           ' Exit the method
  End If                                                 ' End the IsNull test

  Call Add_RPS_LINE      ' You only get here if the above doesn't execute
End Sub

如果您学会正确缩进代码以在视觉上匹配 If 和 End If 会有所帮助，这样您就可以看到它们在哪里对齐(匹配)以及它们在哪里不对齐不。 :-)