为什么我的代码停止工作？

Question

当我进入docmd时。在我的代码中它工作，直到我关闭它然后它停止工作这里是我的代码。

Private Sub Command1_Click()
    If (Txtusername = "123" And txtpassword = 123) Then
    DoCmd.OpenForm FormName:="Kappa", View:=acNormal, DataMode:=acFormPropertySettings, windowMode:=acWindowNormal
    DoCmd.Close
    Else
        MsgBox "Incorrect Login or Password"
    End If
End Sub

Answer 1

我希望您调用的表单正在打开然后立即关闭（您看到了吗 'flash'），因为打开的表单获得了焦点并且 DoCmd.Close 作用于具有焦点的表单。呼叫表保持打开状态。指定要关闭的表单。

DoCmd.Close acForm, "form name", acSaveNo

Answer 2

DoCmd.Close 关闭当前拥有焦点的对象。这是在上一行中打开的表单。我假设您要关闭 Form 运行这段代码。所以，写：

DoCmd.Close acForm, Me.Name

为什么我的代码停止工作？

Why did my code stop working?

ms-access

ms-access-2016