[求助]如何实现打开一个窗体，关闭原来的窗体？

老中医

请问高手：如何打开一个窗体，随之关闭原来的窗体，此命令按钮的代码如何写？

nxjswt

在打开的窗体中加入打开事件过程

docmd.close acform,"关闭窗体名称"

老中医

  我知道了：  
    DoCmd.OpenForm "打开窗体名称"
    DoCmd.Close acForm, "关闭窗体名称"

Benliang

Private Sub CmdExit_Click()
  Me.Form.Visible = False  '隱藏主窗體
  DoCmd.OpenForm "SWITCHBOARD", acNormal
End Sub

試試看.

leowz

Private Sub Cmd打开查询_Click()
On Error GoTo Err_Command0_Click
    Me.Visible = False
    DoCmd.OpenForm "frmWaterchemistryquery"
    Forms!frmWaterchemistryquery.Visible = True

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub