accessvba タブのページ名を取得したい

フォームの上にタブを置いていて、
タブをクリックしたらタブの名前（ページ名）を取得したいのですが

Debug.Print Me.Pages(Me.Value).Caption

これだと間違っているようです。
タブにはページ１、ページ２・・・とあります。

アクティブタブのページ名を取得する方法を教えてください。

No.1 ベストアンサー 回答者： 30246kiku 回答日時： 2014/06/30 20:58

ページ名が Name / Caption どちらの事かわからないので・・・

タブコントロール名を「tb1」と仮定すると

１）ページを辿る

　　Dim pg As Page

　　With Me.tb1
　　　　For Each pg In .Pages
　　　　　　If (pg.PageIndex = .Value) Then
　　　　　　　　Debug.Print pg.Name, pg.Caption
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　End With

２）For しないで

　　With Me.tb1.Pages(Me.tb1)
　　　　Debug.Print .Name, .Caption
　　End With

この回答へのお礼

ありがとうございました。

お礼日時：2014/07/20 00:02