Access2000でボタンを押した際、各タブコントロールのタブを開くには・・・

質問

こんにちは。
アクセス2000でメニューフォームに幾つかのボタンを作っております。
また別のフォーム（顧客管理という名前）でタブコントロールを配置し（5ページ）
それぞれのタブには名前を付けております。1ページ目から「顧客情報」
、「顧客当日データ」、「顧客契約内容」、「顧客履歴」、「顧客領収」の順です。
メニューフォームのボタンを押した時、この顧客管理フォームのタブ
コントロールをそれぞれを開くにはどのようにインベントを書けばいい
のでしょうか？
イメージ的には、(1)のボタンを押した時「顧客情報」のタブを開く。
(2)のボタンを押した時「顧客当日データ」、(3)のボタンで・・・の感じです。
宜しくお願いします。

Private Sub コマンド78_Click()
DoCmd.OpenForm "顧客管理"・・・？？？
End Sub

回答No.1

hotosys

タブがどんな名前で定義されてるかわからないのですが、こんな感じではどうでしょうか？
Private Sub コマンド78_Click()
DoCmd.OpenForm "顧客管理"
Forms("顧客管理").タブ0.Pages("顧客情報").SetFocus
End Sub
または
Private Sub コマンド78_Click()
DoCmd.OpenForm "顧客管理"
Forms("顧客管理").Controls("タブ0").Pages("顧客情報").SetFocus
End Sub

お礼

早速のご回答有難うございました。

Private Sub コマンド78_Click()
DoCmd.OpenForm "顧客管理"
Forms("顧客管理").タブ0.Pages("顧客情報").SetFocus
End Sub

でOKでした。
Pagesでタブの名前を指定すればよかったんですね。
本当に有難うございましたm(_ _)m