[三流君 ] −−＞
[ＶＢＡで楽しく ] −−＞
[バックナンバー一覧 ]Access タブコントロールを探り表示データ切り替え
メルマガ発行内容
＜Access タブコントロールを探り表示データ切り替え＞
どうも、三流プログラマーのＫｅｎ３です。
今回は、
Accessのタブコントロールを探ってみたいと思います。
たいした内容じゃないのですが。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba099.lzh
にdb099.mdb(Access2000版)が保存されています。
/*
* １．今回のキッカケ
*/ http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi
の掲示板に、
>タイトル：タブ切り替えで、クエリ毎にレコード抽出するには？
>
>タブ切る替えることで、対象となるクエリだけを抽出したいのです。
>ＶＢで可能なら挑戦したいのでアドバイスお願いできますか！
---
と書き込みをもらいました。
タブコントロールを探ってみたいと思います。
/*
* ２．普通の使い方？
*/ /*
* ３．タブコントロールのイベントを探る
*/ >タイトル：タブ切り替えで、クエリ毎にレコード抽出するには？
>
>タブ切る替えることで、対象となるクエリだけを抽出したいのです。
>ＶＢで可能なら挑戦したいのでアドバイスお願いできますか！
---
そっか、タブが切り替わったタイミングで、
クエリーを変更させたいのか(データを絞りたいのか、、、)
よし、イベントを探りますか。
各ページのイベントには、
クリック
ダブルクリック
マウスボタンクリック
マウスボタン移動時
マウスボタン開放時
とあるので、
Private Sub P1_Click()
MsgBox "p1タブが押されました"
End Sub
なんてやってみます。
オイオイ、反応しないよ(笑)
で、エリア内をクリックすると、
p1タブが押されました
と、メッセージが表示された、
これじゃタブをクリック時じゃなくて、エリアをクリックだよ(笑)
いつものように読みが外れたので、
今度は、ページのイベントでは無く、
本体のタブコントロールのイベントを探ります。
変更時
クリック時
ダブルクリック時
・
・
とイベントが存在します。
Private Sub tab_ctl_TEST_Change()
MsgBox "_Change 変更時のイベントです"
End Sub
と、やると、やっとタブ(グループ)を変更したタイミングが取れました。
タイミングが取れたら、
あとは、どの女の子じゃなくって、どのページを選択したか?ですよね。
.Valueのヘルプを見ると
>タブ コントロール
>現在選択されている Page オブジェクトのインデックス番号を表す
>整数型 (Integer)の値 タブ コントロールの Value プロパティには、
>現在の Page オブジェクトのインデックス番号が含まれます。
>タブ コントロールの各タブには 1 つの Page オブジェクトがあります。
>最初の Page オブジェクトのインデックス番号は 0、2 番目は 1、
>というようになります。
よし、.Valueを入れてテストしてみると、
Private Sub tab_ctl_TEST_Change()
Dim select_page As Integer
'選択ページの番号を代入する
select_page = Me![tab_ctl_TEST].Value
'メッセージを表示する
MsgBox select_page & "番目のタブが選択されました"
End Sub
/*
* ４．応用してみる
*/ Private Sub TAB_SELECT_Change()
Dim strチーム名 As Variant 'チーム名を配列で受け取る
'タブの順番と同じ名前の配列を作成する
strチーム名 = Array("ALL", "横浜", "阪神", "巨人", "ヤクルト", "中日", "広島")
Dim strTNAME As String '選択されたチーム名を受け取る
'選択されたタブに対応したチーム名を配列から代入
strTNAME = strチーム名(Me![TAB_SELECT].Value)
'データソース用のSQL文を作成する
Dim strSQL As String
If strTNAME = "ALL" Then '全てのデータ条件無しなら
strSQL = "select * from T_AVG Order By 打率順位"
'↑T_AVGテーブルから全ての項目をセレクト、打率順位順とする
Else
'T_AVGテーブルから全ての項目をセレクト、
'条件はチーム名が一致するデータ、打率順位順とする
strSQL = "Select * From T_AVG " _
& "Where チーム = '" & strTNAME & "' " _
& "Order By 打率順位"
End If
'データを絞り込むSQL文が完成したので、
'それをフォームのレコードソースにセットする
Me.RecordSource = strSQL '単にSQL文を代入するだけでＯＫなんですよ
End Sub
処理のポイントは、
^^^^^^^^^^^^^^^^^^
タブが変更されたとき、TAB_SELECT_Change()のイベント発生。
Me![TAB_SELECT].Valueで選択されたタブの番号がわかるので、
strチーム名 = Array("ALL", "横浜", "阪神", "巨人", "ヤクルト", "中日", "広島")
で作成したチーム名の配列をそのまま、
strTNAME = strチーム名(Me![TAB_SELECT].Value)
で代入する。
横浜が選択されると、
Me![TAB_SELECT].Valueは１、
strTNAMEには、strチーム名(1)で横浜の文字列が入る。
作成されるフォームのレコードソースは
strSQL = "Select * From T_AVG " _
& "Where チーム = '" & strTNAME & "' " _
& "Order By 打率順位"
で、strTNAMEが横浜なので、
Select * From T_AVG Where チーム = '横浜' Order By 打率順位
とＳＱＬ文が作成されます。
作成されたSQL文を、
Me.RecordSource = strSQL
と
Me.RecordSource に セット（代入）するだけで、
横浜の選手の規定打席以上を表示するフォームに。
/*
* ５．終わりの挨拶
*/ http://www.ken3.org/vba/lzh/vba099.lzh
にdb099.mdb(Access2000版)が保存されています。
本来の使い方にこだわらないで、タブコントロールを使ってみました。
何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
ページフッター
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
種類別のリンク や 広告など
Blogとリンク :[三流君の作業日記 ]/
[VBAやASPのサンプルコード ]/
広告-[通販人気商品の足跡 ]
三流君(TOP ken3.org へ戻る) ]
/ [VBA系TOPへ ]
/ [VBA系バックナンバー目次へ移動 ]
これを、項目別にタブを付けた感じにするために、
タブコントロールを作成します。
タブコントロール？使ったことが無い人も多いと思いますが、
みたいにひっそりと、下のほうに存在してます。
これをフォームに配置します。
ページ３３,ページ３４なんて感じで、タブが表示されます。
データを３つのグループに分けてみます。
名称 住所 連絡先
とタブを作ります。
えっ、２つしかタブが表示されてないよ。
落ち着いて下さいよ、チャント追加できます、
タブコントロールを選択して、
右ボタンを押し、ページの挿入を選択します。
下記のように縦に長かった入力エリアを
タブを使って、グループ分けできました。
クリック時に、
変更時のイベントを確認したかったので、
のように、３番目のページを選択すると、２と返してくれます。
これは、ヘルプにもあるように、
０,１,２とページ番号が振られているためです。
※左から０番目とは言いにくいけど(人間的には１番目と言いたい)
パターン的に覚えてね。
その後、名称を
横浜、阪神、巨人、ヤクルト、中日、広島
に変更します。
ヤバイ、ALL条件なしを忘れてた（画面のコピーを取ってから気が付いたので（笑））
ALL 横浜、阪神、巨人、ヤクルト、中日、広島
のタブ（インデックスのタグ）を作成します。
ALL 横浜、阪神、巨人、ヤクルト、中日、広島
0 1 2 3 4 5 6
って、タブ構成です。
TAB_SELECTって名前のタブコントロール名にして、
_Changeの変更時のイベントに、クエリーを変えるじゃないけど、
フォームの元になるレコードソースを変えてみます。
↑寂しい、横浜のバッター陣・・・規定打席は４人かぁ・・
↓それに比べて阪神は規定打席７人も、固定メンバーだと強いよね・・
