Access快速开发平台--2.6.7版本无法打开文件ico图标的解决方法；找不到图标ico文件的错误怎么解决？

时　间:2026-04-20 09:30:29
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:Access快速开发平台打开提示找不到图标ico文件的错误怎么解决？
正　文:

一、学员问题描述：
初级班:北京东城--郑谦-131期   12:52:08
请教一下老师，在Access快速开发平台的2.6.7版本中，为什么我每次编辑查询打开设计视图后，就总是出现找不到图标ico文件的很多提示？如下图：


虽然都放在了D:\UMV目录下，还是解决不了这个找不到图标的错误，而且越来越多，需要狂点叉掉。折腾了很久。

二、解决方法：

      可以使用如下一段代码，将彻底删掉这个隐藏残留的路径引起的ico图标问题，注意是将下面整段代码放到代码区的 basRDPRef 模块里面去，并保存一下该模块，整段代码如下:

Sub ClearAllHiddenPicturePaths()
    Dim obj As AccessObject
    Dim doc As Document
    
    ' 清理窗体隐藏属性
    For Each obj In CurrentProject.AllForms
        On Error Resume Next
        DoCmd.OpenForm obj.Name, acDesign, , , acHidden
        Forms(obj.Name).Picture = ""
        For Each doc In Forms(obj.Name).Properties
            If InStr(1, doc.Name, "Picture", vbTextCompare) > 0 Then
                doc.Value = ""
            End If
        Next
        DoCmd.Close acForm, obj.Name, acSaveYes
        On Error GoTo 0
    Next
    
    ' 清理报表隐藏属性
    For Each obj In CurrentProject.AllReports
        On Error Resume Next
        DoCmd.OpenReport obj.Name, acDesign, , acHidden
        Reports(obj.Name).Picture = ""
        For Each doc In Reports(obj.Name).Properties
            If InStr(1, doc.Name, "Picture", vbTextCompare) > 0 Then
                doc.Value = ""
            End If
        Next
        DoCmd.Close acReport, obj.Name, acSaveYes
        On Error GoTo 0
    Next
    
    ' 清理数据库自身的图片属性
    On Error Resume Next
    CurrentDb.Properties("AppIcon") = ""
    CurrentDb.Properties("StartupFormPicture") = ""
    
    MsgBox "已清理所有残留图片路径！请重新打开数据库测试。", vbInformation
End Sub


Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店