MS Access введите имя файла в форме в качестве метки

Question

У меня есть база данных Microsoft Access, где заголовок DB Ver 5.3.accdb, и когда вы открываете инструмент, он автоматически открывает форму, называемую Main Menu. У меня есть метка в форме, которую я меняю каждый раз, когда я обновляю инструмент в соответствии с новой версией имени файла. Мне интересно, можно ли вытащить имя файла (DB Ver 5.3.accdb) предпочтительно без .accdb, например DB Ver 5.3, и разместить его на Main Menu в качестве метки?

Answer 1

Я бы поддержать ответ YowE3K о On Load событие, но для извлечения имени файла, было бы лучше использовать более надежный метод:

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

Также я бы рекомендовал не изменять имя файла для каждой версии приложения. Сохраните текущую версию приложения в таблице. Также добавьте дату сборки как еще один параметр. Вы можете использовать эти данные для получения более подробной информации о приложении, чем просто имя файла.

Answer 2

Вы могли бы использовать 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