スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
タブコントロールは、住所録等の仕切り紙の役割をします。例えば　あ　と表示されたタブをクリックするとあ行のデータだけを取り出し、フォームに表示させる事ができます。
ここでは、顧客テーブルの中から　全て　と　あ行　か行　さ行　その他　のタブを用意し、該当のデータが表示されることを確認してください

●詳細●
フォームにツールボックスの「タブコントロール」を追加します。
タブコントロ−ルの上で、右クリックし､「ページの挿入」を選択します。
ここでは　全て　と　あ行　か行　さ行　その他　を設定するため　5ページ
分作成します。
各ページごとに表題を設定します。
タブコントロールの名前を設定します。ここではタブindexにしています。
タブをクリックしたときに、表示させるサブフォームコントロールを追加します。
タブコントロール以外の領域にサブフォームコントロールを追加し、
追加したサブフォームコントロールをタブコントロールの上に移動すると
各ページにサブフォームコントロールが表示されます。
サブフォームのプロパティの設定をします。
  名前                  ここではsub顧客名
  ソースオブジェクト    顧客テーブル
タブをクリックしたときに該当のデータを表示する処理を追加します。
タブの上でクリックすると「変更時」イベントが発生するので
このときに実行するコードを記入します。

●サンプルプログラム●
Private Sub タブindex_Change()

Dim jyouken As String

Select Case Me!タブindex.Value
   Case 0: jyouken = "フリガナ like '*'"
   Case 1: jyouken = "フリガナ like '[ｱ-ｵ]*'"
   Case 2: jyouken = "フリガナ like '[ｶ-ｺ]*'"
   Case 3: jyouken = "フリガナ like '[ｻ-ｿ]*'"
   Case 4: jyouken = "フリガナ like '[!ｱ-ｿ]*'"
End Select

Me!sub顧客名.Form.Filter = jyouken
Me!sub顧客名.Form.FilterOn = True

End Sub