forms - MS Access VBA 中的 form_load 子例程

Question

我在MS Access VBA中写了一段代码，如下:

Private Sub Form_Load()
    MsgBox "loggedIn = " + CStr(loggedIn)
    If (loggedIn = 1) Then
    Else
        Exit Sub
    End If
End Sub

我想根据 loggedIn 变量决定是否加载表单。如果 loggedIn 变量为 1，则加载表单。如果相同不为 1，则不应加载表单。

我面临的问题是，无论我在上面代码的 ELSE 部分做什么，我都无法阻止表单加载。

我怎样才能做到这一点？

如果需要任何其他信息，请发表评论。

谢谢。

Answer 1

如果 loggedIn 值在表单打开时可用，您可以取消表单打开事件。

Private Sub Form_Open(Cancel As Integer)
    Cancel = Not (loggedIn = 1)
End Sub

如果 loggedIn 的值在表单加载事件之前不可用，您可以关闭表单。

Private Sub Form_Load()
    If loggedIn <> 1 Then
        DoCmd.Close acForm, Me.Name
    End If
End Sub