Fatal编程技术网
  • forms/
  • Forms MS Access将文件名作为标签放置在表单上

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

forms vba ms-access

Forms MS Access将文件名作为标签放置在表单上,forms,vba,ms-access,Forms,Vba,Ms Access,我有一个Microsoft Access数据库，标题是DB Ver 5.3.accdb，当您打开该工具时，它会自动打开一个名为主菜单的表单。我在表单上有一个标签，每当我更新工具以匹配文件名的新版本时，我都会更改该标签。我想知道是否可以提取文件名（DB Ver 5.3.accdb），最好不要。accdb，例如DB Ver 5.3，并将其作为标签放在主菜单上？您可以使用加载事件，例如 Private Sub Form_Load() Dim thisFile As String thi

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


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



我支持YowE3K关于加载<代码>事件的回答，但对于提取文件名，最好使用更可靠的方法：


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


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