Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Veri Tabanı Adını Almak

ates2014
ates2014
Access Cevaplanmış Soruları
3
687

Veri Tabanı Adını Almak

#3
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 01/04/2025,15:38
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Veri Tabanı Adını Almak - Yazar: ates2014 - 08/04/2020, 19:38
Cvp: Veri Tabanı Adını Almak - Yazar: berduş - 08/04/2020, 23:12
Cvp: Veri Tabanı Adını Almak - Yazar: ozanakkaya - 09/04/2020, 10:06
RE: Veri Tabanı Adını Almak - Yazar: ates2014 - 09/04/2020, 18:47