遍历文件夹图片实现图片轮播时遇Error 91问题求助

看起来你的轮播逻辑在第一轮正常运行，但后续循环触发了Error 91，根源出在条件判断顺序错误、最后一张轮播逻辑遗漏，以及缺少对pixpaths对象初始化状态的检查这几个点上。

问题分析 #

1. 条件判断顺序不合理：你的Image_loop过程先判断pixnum = pixpaths.Count，再检查pixnum = 0。当pixnum变为0时（比如之前触发过无文件分支），代码会先尝试访问pixpaths.Count，如果此时pixpaths未初始化或意外变为Nothing，就会直接抛出Error 91。
2. 最后一张轮播逻辑缺失：当pixnum等于图片总数时，你只重置了pixnum为1，但没有同步更新图片控件的Picture属性，导致最后一张图片会停留在界面上，直到下一次Timer触发才切换到第二张，同时也增加了出错风险。
3. 缺少对象状态校验：没有提前判断pixpaths是否已创建，一旦对象意外被释放，就会触发对象未设置的错误。

修复方案 #

修改Image_loop过程，调整判断顺序、补全轮播逻辑，并添加对象状态检查：

Public Sub Image_loop()
    ' 先检查pixpaths对象是否已初始化，避免Error 91
    If pixpaths Is Nothing Then
        Exit Sub
    End If
    
    ' 优先处理pixnum=0的情况，直接退出
    If pixnum = 0 Then
        Exit Sub
    End If
    
    ' 修复轮播逻辑：到达最后一张时，切换回第一张并更新图片
    If pixnum = pixpaths.Count Then
        pixnum = 1
        Forms!Fr_Main!imgPixHolder.Picture = pixpaths(pixnum)
    Else
        pixnum = pixnum + 1
        Forms!Fr_Main!imgPixHolder.Picture = pixpaths(pixnum)
    End If
End Sub

额外优化建议 #

1. 在Image_set中明确处理空集合：当文件夹中无图片时，除了设置pixnum=0，可以主动清空并释放pixpaths对象，避免后续不必要的对象访问：

   Else
       MsgBox "No files found!"
       DoCmd.OpenForm "Fr_Sketchpad"
       Forms!Fr_Sketchpad.Visible = False
       Forms!Fr_Main!imgPixHolder.Picture = ""
       ' 清空集合并释放对象
       pixpaths.Clear
       Set pixpaths = Nothing
       pixnum = 0
       Exit Sub
   End If
   

2. 设置合理的Timer间隔：确保Form的TimerInterval属性设置为合理值（比如1000表示1秒），避免轮播速度过快导致控件加载异常。
3. 添加错误捕获逻辑：在关键代码段添加错误处理，方便后续排查问题：

   Public Sub Image_loop()
       On Error GoTo ErrorHandler
       
       ' 原有逻辑...
       
       Exit Sub
   ErrorHandler:
       MsgBox "轮播出错：" & Err.Description & "（错误代码：" & Err.Number & "）"
       pixnum = 0
   End Sub
   

这些修改应该能解决你遇到的Error 91问题，同时让轮播逻辑更健壮。

内容的提问来源于stack exchange，提问作者Tinker