MS Access Tips/Sample and VBA and Blog customize etc...

オプショングループで50音選択 改良版

以前、下記で紹介したものの改良版です。

オプショングループで50音選択 - hatena chips

上記は、フリガナは必ず入力されている(未入力はない)、カナだけで入力されている、という前提でした。

英数字や記号が入力されることもある、あるいは、未入力もありうる場合、上記のではこれらのレコードは選択することができません。

そこで、[他] というボタンを追加して未入力を含むカナ以外で始まるものを選択できるようにしました。

リンク無し画像

難易度:

概要

フリガナなので、本来はカナだけで入力すべきだとは思いますが、アルファベットや数字、記号なども入力したいという要件もあるかも知れません。また、ミスなどでフリガナを消してしまうこともあるかもしれません。前回の方法だと、このようなレコードは50音の指定では表示されないことになります。
そこで、「他」というボタンを追加して、カナ以外のレコードを抽出できるようにしました。

設計

前回のサンプルの50音選択オプショングループにトグルボタンを追加して、下記のように設定します。

プロパティ設定値
標題
オプション値-1

標準モジュールに下記の関数を作成します。

2015.04.08追記: サブフォームで使用するとエラーになるバグの対処としてScreen.ActiveForm を CodeContextObject に置換しました。
ただし、「分割フォーム」の場合エラーがでますので CodeContextObject は Screen.ActiveForm に置換してください。

使用方法

下記のサンプルMDBをダウンロードして、フォームをデザインビューで開きます。オプショングループを2つ(op50音選択 と op段選択)をコピーして、利用したいフォームに貼り付けます。

それぞれのオプショングループの更新後処理に設定してある関数の引数を抽出対象フィールド名に変更します。もし、フィールド名がフリガナだったらそのままで結構です。

設定例

オプショングループ「Op50音選択」の更新後処理
=fnc50音選択("フリガナ")

オプショングループ「op段選択」の更新後処理
=fnc段選択("フリガナ")

サンプルファイルが下記からダウンロードできます。
Frm50OnSelect2_07.zip (Access 2007-2010 形式 - 40kb)
Frm50OnSelect2.zip (Access 2002-2003 形式 - 36kb)
Frm50OnSelect2_2k.zip (Access 2000 形式 - 36kb)


拍手する

5 Comments

湘南JUN says..."標準モジュール関数作成につてい"

標準モジュールは、一つのフォームに複数作れないのでしょうか。
コンパイルエラーが出るので。お伺いします。

2014.01.31 11:30 | URL | #- [edit]
hatena says..."re:標準モジュール関数作成につてい"

> 標準モジュールは、一つのフォームに複数作れないのでしょうか。

標準モジュールはフォームとは関係ないものですので、フォームに関係なく複数作成することはできます。

フォームモジュール(フォームのイベントプロシージャなどを記述するところ)はフォーム一つにつき一つです。ただし、モジュールの中にプロシージャは複数作成することができるので問題はないです。

> コンパイルエラーが出るので。お伺いします。

コンパイルエラーがでる箇所の前後のコードをここに貼り付けてもらえますか。

2014.01.31 13:10 | URL | #5uE6dEgY [edit]
湘南JUN says...""

アルバムコレクションと云うのを、作りまして、その中に
歌手五十音順と事務所五十音順と会社五十音順と商品五十音順と曲名五十音順を作りたいのですが、どの様にすればよいのか、ご指導ご鞭撻のほどお願いします。

2014.02.10 16:43 | URL | #- [edit]
hatena says..."re:50音選択を複数配置"

「50音選択」を複数配置して選択したいということでしょうか。

簡単ではないので、ここでのやり取りではちょっとつらいので、

下記の私の運営する掲示板で再質問してもらえますか。

その再、現状のファイルをアップロードしてもらえると話がはやいとと思います。

ただし、2/15までは旅行中なので回答できませんので、それ以降の回答になります。

2014.02.10 19:08 | URL | #5uE6dEgY [edit]
湘南JUN says..."ありがとうございました。"

式の中を、下記のようにしましたら出来ましたありがとうございました。

op歌手段選択、fnc歌手50音選択、op事務所段選択、fnc事務所50音選択、
op会社段選択、fnc会社50音選択、op商品段選択、fnc商品50音選択、
op曲名段選択、fnc曲名50音選択、

2014.02.11 18:03 | URL | #- [edit]

Leave a reply






Trackbacks

trackback URL
http://hatenachips.blog34.fc2.com/tb.php/392-ced851ad
該当の記事は見つかりませんでした。