点新增按钮无新增对话框弹出

代码如下:

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.lbmc) Then
          MsgBox "请输入类别名称!", vbCritical, "提示："
          Me.lbmc.SetFocus
          Exit Sub
End If
Me.Refresh
If Acchelp_StrDataIsExist("tbl_CodeBxlb", "lbmc", Me.lbmc) = True Then
          MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
          Me.lbmc.SetFocus
          Exit Sub
End If
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
         Set rst = CurrentDb.OpenRecordset("tbl_CodeBxlb", dbOpenDynaset)
         rst.AddNew
         rst("lbId") = acchelp_autoid("Y", 2, "tbl_CodeBxlb", "lbId")
         rst("lbmc") = Me.lbmc
         rst.Update
         rst.Close
        Set rst = Nothing
        '刷新数据
        If IsLoaded("usysfrmMain") Then
               DoCmd.Echo False
               Forms!usysfrmMain!frmChild.SourceObject = "frmCodeBxlb_child"
               DoCmd.Echo True
        End If
        MsgBox "保存成功!", vbInformation, "提示"
        Me.lbmc = Null
End If
End Sub