Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何关闭 带查询的报表取消后的错误提示! 高手请进

云中燕儿  发表于:2012-12-21 10:35:05  
复制

打开带查询的报表,在取消的时候提示这个窗口,如何关闭掉!

 

高手请指点

 

Top
红尘如烟 发表于:2012-12-22 10:26:17

最省事的办法,就是在打开报表的代码前面添加一句忽略错误的处理:
Private Sub 打开报表_Click()
    On Error Resume Next  

    DoCmd.OpenReport "我的报表A", acViewPreview
End Sub



云中燕儿 发表于:2012-12-26 13:06:08
thanks,解决了

云中燕儿 发表于:2012-12-26 14:02:56

Private Sub 毫伏表出厂编号_Click()
    On Error Resume Next

    DoCmd.OpenReport "rpt检定校准证书 毫伏表", acViewPreview, "qry检定校准 毫伏表出厂编号"
    If Err.Number = 2501 Then Exit Sub                               ‘避免取消后返回界面最大化
    DoCmd.Maximize
End Sub



总记录:3篇  页次:1/1 9 1 :