Skip to main content

AccessTr.neT


Veri Tabanı Adını Almak

Veri Tabanı Adını Almak

Çözüldü #1
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 .
.rar OGRENCI KAYIT.rar (Dosya Boyutu: 38,51 KB | İndirme Sayısı: 2)
Cevapla
#2
Visual Basic Code
metinkutusu=Application.CurrentProject.Name
kodunu dener misiniz?
Cevapla
#3
Sanırım soru bağlı veritabanının ismi ile alakalı.

Forma veya modüle

Visual Basic Code
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 

Visual Basic Code
Me.VERITABANI = FileNameFromPath(GetLinkedDBName("TBLOGRENCI"))

kodu ekle.
Cevapla
#4
Ç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.?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da