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

質問

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

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

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

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

回答No.1

30246kiku · ベストアンサー

ページ名が 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

お礼

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