タブの上にタブを乗せるには？

アクセス2007です。
タブの上にタブを乗せたいのですがうまくいきません。

フォームに1個目のタブ0は問題なく乗せられるのですが
ページ１の上に、更にタブ3を乗せたいです。

しかし、ページ１の上に新しくタブ3を乗せたつもりが、
ページ１をクリックしてもページ２をクリックしても新たに乗せたタブ3が見えます。

と言う事は、ページ１の上にタブ3が乗っかっているわけではなく、
フォーム1の上にタブ3が乗っかっているんだと思います。

そうではなく、ページ１の上にタブ3を乗せて、
ページ2に切り替えた時は、タブ3は表示しないようにするにはどうすればいいでしょうか？

VBAでVisibleで切り替える事は考えてません。
ご回答よろしくお願いします。

No.2 回答者： m3_maki 回答日時： 2012/09/20 17:05

直接、タブの中にタブを配置することはできないようですね。

代替案として
サブフォームにタブコントロールを配置するのはいかがでしょう？
サブフォームコントロールの境界線スタイルを透明にすれば
見た目は、タブの中にタブがあるように見えるでしょう。

親のフォームを参照したり、
親フォームから、VBA で タブ内のコントロールに値を渡すような処理があると
かなり面倒なことになるかもしれません。

VBAでVisibleで切り替える方がずっと簡単かと思います。

この回答へのお礼

ありがとうございます。

お礼日時：2012/10/19 23:50

No.1 ベストアンサー 回答者： 30246kiku 回答日時： 2012/09/20 14:07

タブにタブを重ねることはできなかったと思います。

デザイン上でだけ、できないものなのか、
以下を記述して確認してみましたが、やっぱりできないようです。

以下を標準モジュールに転記し、実行してみると添付図の様になると思います。


' タブにタブは組み込めない ★
' エラー：2151
' 親コントロールは、指定した種類のコントロールを含むことができません。

Public Sub test21()
　　Dim sN As String
　　Dim ctl As Control

　　On Error Resume Next
　　With CreateForm
　　　　sN = .Name
　　　　With CreateControl(sN, acTabCtl)
　　　　　　.Name = "tb1"
　　　　　　.Pages(0).Name = "pg1"
　　　　　　.Pages(1).Name = "pg2"
　　　　　　With CreateControl(sN, acTabCtl, , .Pages(0).Name) ' ★
　　　　　　　　.Name = "tb11"
　　　　　　　　.Pages(0).Name = "pg11"
　　　　　　End With
　　　　　　With CreateControl(sN, acSubform, , .Pages(1).Name)
　　　　　　　　.Name = "FSUB"
　　　　　　　　.Top = 600
　　　　　　　　.Left = 300
　　　　　　　　.Height = 2000
　　　　　　　　.Width = 2000
　　　　　　End With
　　　　End With
　　End With
End Sub

連結/非連結とか、操作イメージがわからないので、代替え案等については記述できません。

現状では、
> VBAでVisibleで切り替える事は考えてません。
を検討し直すことになるかと思います。

この回答へのお礼

ありがとうございます。

お礼日時：2012/10/19 23:49