+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Tabanı Adını Almak (/konu-veri-tabani-adini-almak.html)
Veri Tabanı Adını Almak - ates2014 - 08/04/2020
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 .
Cvp: Veri Tabanı Adını Almak - berduş - 08/04/2020
metinkutusu=Application.CurrentProject.NameCvp: Veri Tabanı Adını Almak - ozanakkaya - 09/04/2020
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 Functionkodlarını ekle, formun açıldığında olayına da
Me.VERITABANI = FileNameFromPath(GetLinkedDBName("TBLOGRENCI"))kodu ekle.
RE: Veri Tabanı Adını Almak - ates2014 - 09/04/2020
Ç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.?