代码之家 › 专栏 › 技术社区 › cinemassacres

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

ms-access-2016 ms-access

-2

cinemassacres · 技术社区 · 7 年前

当我进入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

2 回复 | 直到 7 年前

1

0

June7 7 年前

我希望你调用的表单是打开然后立即关闭(你看到它“闪烁”了吗),因为打开的表单得到焦点和DoCmd。Close是按有焦点的形式行事。呼叫表单保持打开状态。指定要关闭的窗体。

DoCmd.Close acForm, "form name", acSaveNo

2

0

Olivier Jacot-Descombes 7 年前

DoCmd.Close 关闭当前具有焦点的对象。这是前一行中打开的表单。我假设您希望关闭运行此代码的表单。因此,写下:

DoCmd.Close acForm, Me.Name