access タブコントロールの選択

質問

フォームAを選択したらAction1,フォームBを選択したらAction2,
というモジュールをつくったのですが、そのフォームをタブに入れることにしたため
isOpenが使えなくなってしまいました。

タブAを選択していたら、Action1,タブBを選択していたら、Action2,
というモジュールに書きかえるにはどうしたらいいですか？

-----------------------
Function GetValue()
If IsOpen("F_C_2_☆新規作成_パターン1") Then
GetValue = Forms![F_C_2_☆新規作成_パターン1]![見積番号]
ElseIf IsOpen("F_C_3_☆新規作成_パターン2") Then
GetValue = Forms![F_C_3_☆新規作成_パターン2]![見積番号]
End If
End Function

回答No.1

nicotinism · ベストアンサー

GetValue が標準モジュールなら
Function GetValue2()
select case forms!フォーム名!タブコントロール名.value
case 0 '一番左
getvalue2 = forms!フォーム名!タブコントロール名.pages(0).controls![F_C_2_☆新規作成_パターン1]![見積番号]
case 1
getvalue2 = forms!フォーム名!タブコントロール名.pages(1).controls![F_C_3_☆新規作成_パターン2]![見積番号]
end select
End Function

※『フォーム名』はタブコントロールを置いてあるフォームの名前に。
GetValue がフォームモジュールにあるのなら、forms!フォーム名 を me に書き換えても可。

お礼

ありがとうございました！これでばっちりできました！
タブの記述難しいです。。。また宜しくお願いします。