Aktif kitabın ismi

[akd]

Merhaba arkadaşlar,
form üzerindeki bir metin kutusuna aktif kitabın ismini nasıl yazdırabiliriz.
Private Sub Komut0_Click()
Me.Metin1 = Activate.Database.Name
End Sub
böyle yaptım hata verdi.
Teşekkürler...

 

[modalı]

Sayın akd,

Bir de öyle deneyin.

Dim dbs As Database
Set dbs = CurrentDb
Me.Metin0 = dbs.Name

İyi çalışmalar

 

[akd]

Merhaba sayın modalı,
dbs As Database
bu satır hata veriyor,
sarı renk oluyor.
Teşekkürler

 

[modalı]

Referanslardan Microsoft DAO 3.6 Object Library yi ekleyin.

İyi çalışmalar

 

[akd]

Merhaba sayın modalı,
aşağıdaki şekilde alıyor,
yalnızca kitabın ismini aldırmamız mümkünmü acaba?
Teşekkürler...
C:\Documents and Settings\ProfessioNaL\Belgelerim\vt1.mdb

 

[alpi]

Dir komutu ile yapabilirsiniz.

Dir("Dosyanızın tamm yolu")

 

[akd]

Merhaba sayın alpi,
malesef dosya yolunu yazamam,
bu aktif kitap ismini,
yapmış olduğum çalışmamın demo sürümünü yapmak için kullanacağım için,
çalışmamı alan birisi başka klasöre taşıya bilir onun için,
aktif çalışma kitabının adını almak zorundayım.
İyi çalışmalar...

 

[modalı]

Sayın akd,

Dir(CurrentDB.Name)

Sadece uygulamanın adını veriyor.

İyi çalışmalar

 

[akd]

Çok çok teşekkürler sayın modalı,
yine son noktayı koydunuz.
İyi akşamlar...