Question

我有一张Access图表，其中列出的图号为D-A1ER-1378-1601-0，也存储在文件夹中。

我使用下面的代码打开pdf绘图，效果很好。

Public Sub OpenDWG()

    Dim strFile As String
    Dim PathPDF As String

    On Error GoTo Failure

    PathPDF = DLookup("[FilePath]", "[SettingsDrawingFilePathTbl]", "ID = 4")
    strFile = PathPDF & "\" & Screen.ActiveControl & ".pdf"
    If Len(Dir(strFile)) Then
        FollowHyperlink strFile
    Else
        MsgBox "No Document found for this Drawing Number, check Engineering Drawing Search File path in the Settings Tab and / drawing download files"
    End If
    Exit Sub

Failure:
    MsgBox Err.Description
    Err.Clear
End Sub

如何调整strfile名称

strFile = PathPDF & "\" & Screen.ActiveControl & ".pdf"

使表单在将新版本的绘图放入文件夹时仅打开最新文件。即D-A1ER-1378-1601-0（2）将是最新版本。

Answer 1

我想添加评论，但我没有足够的评论。

我认为你可以使用Dir函数来获取所有以相同字符开头的文件，或者使用通配符等。我将不得不研究如何做到这一点。您可以使用这些填充数组，并使用代码扫描数组以确定最新文件。或者您可以填充临时表amd然后使用表内容作为组合框的课程，让用户选择所需的文件，并使用最新的文件进行排序。

如果我有机会，我会想出一些示例代码。

打开最新文件

1 个答案: