MS Accessの場所ファイル名をラベルとしてフォームに

Question

タイトルがDB Ver 5.3.accdbのMicrosoft Accessデータベースがあります。このツールを開くと、Main Menuというフォームが自動的に開きます。私は、ファイル名の新しいバージョンと一致するようにツールを更新するたびに、私が変更するフォーム上のラベルを持っています。私はファイル名（DB Ver 5.3.accdb）を持たないのが好きで、DB Ver 5.3のような.accdbがなく、Main Menuのラベルに貼り付けることが可能かどうか疑問に思っていますか？

Answer 1

としてOn Loadイベントを使用することができます。

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

また、アプリケーションの各バージョンのファイル名を変更しないことをお勧めします。アプリケーションの現在のバージョンをテーブルに保存します。別のパラメータとしてbuildの日付も追加します。このデータは、ファイル名だけでなく、アプリケーションの情報にも効果的に使用できます。

Answer 2

あなたはおそらく、私がOn Loadイベントに関するYowE3Kの答えをサポートしますが、ファイル名を抽出するためには、より信頼性の高いメソッドを使用する方が良いだろうな

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