Access快速开发平台--提示找不到ico文件的解决方法；双击frm商品信息提示：无法打开文件“G：\进销存\UMVsoftRDP_V1.71\Image\Icons\add.ico”的处理方法

时　间:2015-05-25 13:45:41
作　者:杨雪   ID：42182  城市：南京
摘　要:在学员作业V1.7.1版本移动位置后双击frm商品信息窗体出现下面错误；
正　文:

一、学员问题描述

在学员学习进销存管理系统制作的作业V1.7.1版本移动位置后双击frm商品信息窗体出现下面错误；

这是因为能按钮区的btnadd_Image图片 控件等保存了原来路径下的图标。

二、解决办法：

只需要设计视图下找到这个提示的窗体，然后找到btnadd_Image，将picture 属性的值再清空一下 ，再保存就好了。

重   点：

一个一个手动改比较麻烦，可以批量改：

Sub ClearInvalidIcons()
    On Error Resume Next
    Dim frm As Form: Set frm = Forms(Forms.Count - 1)
    Dim ctl As Control
    For Each ctl In frm.Controls
        If TypeOf ctl Is CommandButton Then
            frm(ctl.Name & "_Image").Picture = ""
        End If
    Next
    Set ctl = Nothing
    Set frm = Nothing
End Sub

（1）把这段代码放到 basRDPRef 模块里面去

（2）然后把光标点到这段代码里面，按F5执行

（3）注意要处理的窗体，必须是最后打开的