VBA代码关闭我单独的.Net Winform应用程序?

时间:2009-07-02 12:58:53

标签: .net winforms ms-access vba

以下代码是我们 BA 写的 Access App 的近似例程。执行后,不仅可以在同一台计算机上关闭访问应用,还可以关闭我的 C#winform app 。 Access应用程序名为 DME Referral ,我的winform app主进程在任务管理器中以 MATRIX.exe 运行。(是的,我正在编程MATRIX ...永远不允许一群社会工作者和护士为您的计划命名!)

我对 Access(VBA)编程没有太多帮助,所以我希望有人可以提供帮助。

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

Call ToggleVisible

DoCmd.Quit

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click

End Sub

Private Sub ToggleVisible()
    Me.txtLastNameCrit.Visible = False
    Me.txtFirstNameCrit.Visible = False
    Me.cmdSearch.Visible = False

    Me.cmbCoor.Visible = False
    Me.cmdSearchByCoor.Visible = False

    Me.txtStartDate.Visible = False
    Me.txtEndDate.Visible = False
    Me.cmdDMEReport1.Visible = False       
End Sub

1 个答案:

答案 0 :(得分:2)

DoCmd.Quit应该只关闭MS Access部分;这是非常标准的。

我愿意成为两件事之一 1)焦点已切换到C#winform应用程序,它正在捕捉要关闭的信号。在这种情况下,我们可以将焦点显式设置回MS Access表单。您可以使用Me.SetFocus执行此操作 或
2)C#winform app。正在使用MS Access启动;当父申请被关闭时,孩子也是如此。在这种情况下,我们可能不得不改变C#winform app的方式。推出。当您手动关闭MS Access时,它是否也会关闭(单击右上角的“X”)?