Access表单PDF图纸打开代码咨询及最新文件打开需求

嘿，我来帮你搞定这个Access VBA的问题！先梳理下你的需求：现有代码能正常打开对应编号的PDF，但想要升级成打开同编号下的最新版本文件，咱们一步步来解决：

先修正现有代码的小瑕疵 #

你的原有代码里有个未完成的MsgBox语句，同时我补充了基础的路径有效性检查，让代码更健壮：

Public Sub OpenDWG() 
    Dim strFile As String 
    Dim PathPDF As String 
    On Error GoTo Failure 
    
    ' 从配置表读取图纸存储路径
    PathPDF = DLookup("[FilePath]", "[SettingsDrawingFilePathTbl]", "ID = 4")
    ' 先检查路径是否存在
    If Dir(PathPDF, vbDirectory) = "" Then
        MsgBox "配置的图纸文件夹不存在，请检查SettingsDrawingFilePathTbl中的路径！"
        Exit Sub
    End If
    
    strFile = PathPDF & "\" & Screen.ActiveControl & ".pdf" 
    If Len(Dir(strFile)) > 0 Then 
        FollowHyperlink strFile 
    Else 
        MsgBox "未找到对应图纸文件：" & strFile
    End If
    Exit Sub
    
Failure:
    MsgBox "打开文件时出错：" & Err.Description, vbCritical
End Sub

实现「打开最新文件」的核心功能 #

假设你的文件夹里有同编号的多版图纸（比如D-A1ER-1378-1601-0.pdf、D-A1ER-1378-1601-0_v2.pdf这类），咱们可以通过前缀匹配+修改时间排序的逻辑找到最新文件，下面是完整的优化代码：

Public Sub OpenLatestDWG()
    Dim targetPrefix As String
    Dim targetFolder As String
    Dim currentFile As String
    Dim latestFile As String
    Dim latestFileTime As Date
    
    On Error GoTo Failure
    
    ' 1. 获取基础信息：当前控件的图纸编号、配置的存储路径
    targetPrefix = Screen.ActiveControl.Value
    targetFolder = DLookup("[FilePath]", "[SettingsDrawingFilePathTbl]", "ID = 4")
    
    ' 检查存储文件夹是否有效
    If Dir(targetFolder, vbDirectory) = "" Then
        MsgBox "配置的图纸文件夹不存在，请检查路径设置！", vbExclamation
        Exit Sub
    End If
    
    ' 2. 遍历所有以目标编号为前缀的PDF文件
    currentFile = Dir(targetFolder & "\" & targetPrefix & "*.pdf")
    If currentFile = "" Then
        MsgBox "未找到任何以 [" & targetPrefix & "] 开头的PDF文件！", vbExclamation
        Exit Sub
    End If
    
    ' 3. 初始化最新文件的记录
    latestFile = currentFile
    latestFileTime = FileDateTime(targetFolder & "\" & currentFile)
    
    ' 继续遍历剩余文件，对比修改时间找出最新的
    Do While currentFile <> ""
        currentFile = Dir() ' 调用空参数Dir获取下一个匹配文件
        If currentFile <> "" Then
            Dim fileTime As Date
            fileTime = FileDateTime(targetFolder & "\" & currentFile)
            ' 如果当前文件修改时间更新，就替换最新文件记录
            If fileTime > latestFileTime Then
                latestFileTime = fileTime
                latestFile = currentFile
            End If
        End If
    Loop
    
    ' 4. 打开最终找到的最新文件
    FollowHyperlink targetFolder & "\" & latestFile
    Exit Sub
    
Failure:
    MsgBox "操作出错：" & Err.Description, vbCritical
End Sub

关键技术细节说明 #

• 文件名匹配逻辑：用targetPrefix & "*.pdf"匹配所有以目标图纸编号开头的PDF，不管后面有没有版本后缀
• 最新文件判断：通过FileDateTime函数获取文件最后修改时间，以此作为“最新”的判断标准（如果需要按创建时间判断，逻辑类似，替换成对应判断即可）
• 错误处理升级：覆盖了文件夹不存在、无匹配文件、打开出错等多种场景，给出更明确的提示信息

如果你的文件名规则有特殊要求（比如版本号在固定位置），或者有其他具体技术疑问，随时补充细节就行！

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