Merhaba arkadaşlar,
menü formunun alt kısmına eklediğim, metin kutusunda,
prg bağlı olduğu veri tabanın adını almak istedim maalesef yapamadım.
2019 veya 2020 gibi .

metinkutusu=Application.CurrentProject.Name

kodunu dener misiniz?

Sanırım soru bağlı veritabanının ismi ile alakalı.

Forma veya modüle

Public Function GetLinkedDBName(TableName As String) As String

    Dim strReturn As String

    On Error Resume Next

    strReturn = CurrentDb.TableDefs(TableName).Connect

    GetLinkedDBName = strReturn

End Function



Public Function FileNameFromPath(strFullPath As String) As String

    FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))

End Function

kodlarını ekle, formun açıldığında olayına da 

Me.VERITABANI = FileNameFromPath(GetLinkedDBName("TBLOGRENCI"))

kodu ekle.

Çok çok teşekkür ederim ozan hocam,
uzantısının görünmemesi için kodda nasıl bir değişiklik yapmak lazım hocam.?