Question

我有一个标题为DB Ver 5.3.accdb的Microsoft Access数据库，当您打开该工具时，它会自动打开一个名为Main Menu的表单。每次我更新工具以匹配新版本的文件名时，我在表单上都有一个标签。我想知道是否可以提取文件名（DB Ver 5.3.accdb），最好不要.accdb DB Ver 5.3，并将Main Menu作为标签放入？

Answer 1

您可以使用On Load事件，例如

Private Sub Form_Load()
    Dim thisFile As String
    thisFile = CurrentDb.Name
    thisFile = Mid(thisFile, InStrRev(thisFile, "\") + 1)
    thisFile = Left(thisFile, Len(thisFile) - 6)
    Label0.Caption = thisFile
End Sub

Answer 2

我会支持YowE3K关于On Load事件的答案，但是为了提取文件名，最好使用更可靠的方法：

Private Sub Form_Load()
    With CreateObject("Scripting.FileSystemObject")
        Label0.Caption = .GetBaseName(CurrentDb.Name)
    End With
End Sub

另外，我建议不要更改每个应用程序版本的文件名。将当前版本的应用程序保留在表中。还要将构建日期添加为另一个参数。您可以更有效地使用此数据来获取有关应用程序的信息，而不仅仅是文件名。

MS Access将表单上的文件名作为标签放置

2 个答案: