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.?