调用form出错问题，在程序运行时被取消

图1-1 修改 调用我做的一个权限控制窗体 frmBxmx_child_Edit，代码如下：

Option Compare Database
     Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
     Select Case Button
     Case "保存"
          cmd_Save
     Case "关闭"
          DoCmd.Close
     End Select
     End Sub
  
     Private Sub cmd_Save()
     Dim rst As DAO.Recordset
       If IsNull(Me.Psw) Then
           MsgBox "请输入修改权限密码!", vbCritical, "提示："
           Me.Psw.SetFocus
           Exit Sub
       End If
      
      
       If Acchelp_StrDataIsExist("tblPsw", "Psw", Me.Psw) = False Then
          MsgBox "您输入的授权密码错误，请重新输入", vbCritical, "警告"
          Me.Psw.SetFocus
        Else
          DoCmd.OpenForm "frmSafeEdit_child"    ’  这个窗体为修改窗体
          Exit Sub
       End If
  End Sub          ’实现功能;当用户输入的密码经过判断为真时，调用frmSafeEdit_child，执行修改数据

图1-2

图1-3

截图如下：

图1-4我在调试时，偶然可以调用到frmSafeEdit_child窗体，但是修改数据之后，关不掉窗体。具体原因不清楚，后来我调试了一下，又变成图1-4的样子了。请高手指点一下。还有个问题，我想把“保存”“关闭”两个控件换成“确定”“关闭”，要怎么做？谢谢

修改窗体代码如下：

Private Sub bxje_Click()
Me.bxje = Nz(Me.[airplaneId]) + Nz(Me.[trainId]) + Nz(Me.[busId]) + Nz(Me.[taxiId]) + Nz(Me.[publicbusId]) + Nz(Me.[undergroundId]) + Nz(Me.[roomboardId])
End Sub

Private Sub Form_Load()
Me.RecordSource = "Select * FROM tblBxmx Where mxId = '" & selectstr & "'"
g_CurrentSelectStrID = selectstr
End Sub

Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
     If IsNull(Me.bxrq) Then
           MsgBox "请输入报销日期!", vbCritical, "提示："
           Me.bxrq.SetFocus
           Exit Sub
     End If
     If IsNull(Me.lbId) Then
          MsgBox "请输入报销类别!", vbCritical, "提示："
           Me.lbId.SetFocus
           Exit Sub
     End If
     If IsNull(Me.ygId) Then
           MsgBox "请输入员工姓名!", vbCritical, "提示："
           Me.ygId.SetFocus
           Exit Sub
     End If
     If IsNull(Me.departmentId) Then
           MsgBox "请输入所属部门!", vbCritical, "提示："
           Me.departmentId.SetFocus
           Exit Sub
     End If
     If IsNull(Me.leaderId) Then
           MsgBox "请输入审批领导!", vbCritical, "提示："
           Me.leaderId.SetFocus
           Exit Sub
     End If
     If IsNull(Me.bxje) Then
           MsgBox "请输入报销金额!", vbCritical, "提示："
           Me.bxje.SetFocus
           Exit Sub
     End If
     Me.Refresh
     DoCmd.Echo False
     Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
     DoCmd.Echo True
     '触发子窗体计时器事件
     Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
     DoCmd.Close acForm, "frmSafeEdit_child"
   End Sub