Form içi sayfa adını metin kutusuna yazdırma

24/02/2009, 22:57

Tombakoglu

Form içinde yapılan birden fazla sayfalarda, her sayfanın adını metin kutusuna varsayılan olarak nasıl yazdırabiliriz, Örnek ektedir.
Teşekkür eder, Hayırlı çalışmalar dilerim.
25/02/2009, 03:42

Seruz

Örneğiniz ektedir.

Hem sayfalarda default olarak,
Kod:
[Forms]![Form1]![TabCtl0].[Pages].[Item](0).[Name]
[Forms]![Form1]![TabCtl0].[Pages].[Item](1).[Name]
[Forms]![Form1]![TabCtl0].[Pages].[Item](2).[Name]

hemde formda kod ile almayı ekledim.
Kod:
Private Sub TabCtl0_Change()
    Me.SayfaAdi = Me.TabCtl0.Pages(TabCtl0).Name
End Sub
25/02/2009, 08:27

assenucler

Teşekkürler, Sayın Seruz...
25/02/2009, 13:05

Tombakoglu

Sn Seruz Hocam,
Teşekkür ederim,
Hayırlı çalışmalar dilerim.