Access クエリーでCLngを使用して番号をキレイにする

メルマガ発行内容

＜Access クエリーでCLngを使用して番号をキレイにする＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
AccessのクエリーでCLngを使用して
文字列型の番号をキレイにしてから、ソートしてみます。

/*
 * １．今回のキッカケ
*/

メールで下記の質問をもらいました。
-----
 >まず、うちは一件一件の案件に対して、番号を振っているのですが
 >その番号が少し特殊でして、普通最初は
 >「１」「２」「３」・・・ときますところに
 >最初に「０」を付けるんです。
 >ですから
 >「０１」「０２」「０３」・・・となるんです。
 >「１２３」の場合には、「０１２３」となります。
 >まぁ、これはこれでいいんですが・・・。
 >
 >
 >昇順で並び替えをしますと・・・。
 >わけの分からないことに・・。
 >
 >
 >例えば
 >普通の「５」「２４」「３２」「１２３」とあれば、この通りの順番になりますが
 >うちの特殊な番号の振り方ですと「０５」「０２４」「０３２」「０１２３」とな
 >ります。
 >昇順しますと
 >「０１２３」「０２４」「０３２」「０５」
 >となってしまうんです・・・。
 >
 >
 >まぁ、コンピュータの考えてる昇順の意味は分かるんですけど
 >
 >私としては、ちゃんと「０５」「０２４」「０３２」「０１２３」と並び替えても
 >らいたいのです。
 >
 >
 >こんな説明で分かってもらえましたでしょうか？
 >この数字を、私は「テーブル」の「データ型」のところ「テキスト型」で入力して
 >しまいました。
 >それも一因だったりしますか？
-----

頭０の番号は、よく聞く話ですよね、
それで、
「０１２３」
「０２４」
「０３２」
「０５」
の辞書順になってしまうんですね。
（頭０無くても、文字型だと辞書順になってしまいますよね）

データ型がテキストじゃないと、
頭に０が付けて記録できないので、それはテキスト型でOKなんだけど、
できたら、数値型で入れておいて、印刷するときだけ０付けたほうが簡単だったかも
よくお偉いさんが言うテーブル構造やデータの持ち方ってのは・・
って講義は私には合わないので、置いといて。

今、現実に「０１２３」「０２４」「０３２」「０５」とデータが入っているので、
直すと大変だと思います。
なので、ここは、また前回の演算フィールドを使い逃げたいと思います。

/*
 * ２．CLng関数を使用して、文字列を数値に直しソートする
*/

「０５」「０２４」「０３２」「０１２３」
のテストデータを作ります。


↑テストデータイメージ

演算フィールドを作成します
^^^^^^^^^^^^^^^^^^^^^^^^^^
番号２: CLng([番号])
みたいにして、
: CLng([並べ替えたい番号のフィールド])
とすると、
CLng関数で文字列を数値に直してくれます(０が取れて純粋な数値になります)


↑式入力のイメージ

数値に変換された演算フィールド、それを並べ替えると出来ると思います。


↑並べ替えの結果

で、あとは、
画面やレポートに表示するのは、
いままで同様に元の番号フィールドを使用します。

演算フィールドってのが、意外と便利なんですよ。
あとは、経験を積むと、CLngとかの変換関数の知識が付いて、
それの組み合わせって感じかなぁ。

/*
 * ３．CLng関数で遊ぶ
*/

さてと、無事に終わったかな。
手前味噌解説も終わりです、だと、つまらないよね（笑）

CLng("００１")
とか、２バイト文字（漢字）を変換してくれて楽なんだけど、
Sub aaa()

    MsgBox CLng("")

End Sub
をテストすると、

型が一致しないとエラーが表示されます。
^^^^^^^^^^^^^^

↑エラー画面

あらら・・・番号が必ず入力されていればいいけど、
実行時エラーで落ちる、キケンなプログラムですね。

回避策は、私みたいな三流プログラマーなら、
頭に０を勝手に付けてしまう（笑）

今回は２バイト文字の
「０５」「０２４」「０３２」「０１２３」
なので、「」と何も入っていない時を考えて、

CLng("０" & strXXX)
みたいに、勝手に頭０を付ける。
０５なら００５をCLngで変換するようになる。

IIf(strXXX = "", 0, CLng(strXXX))
と、ＩＩｆを使うのもありだし、
Nz,ISXXXXとチェックする方法はイロイロだけど
面倒だから、エラーを発生しないようにしました。

コードを読む側では、なんで０と＆するの？になるので、
コードを読みやすくするには、
IIf(strXXX = "", 0, CLng(strXXX))
と
strXXXが""なら0を、その他はClngで変換した値を
なんてほうがやっていることが一目でわかると思います。

お好きなほうを・・じゃなくって、まわりの空気を読みながら使ってね。

-【けんぞう！】---------------------------------------------------------
転職関係、在宅プログラマー、SOHOの広告まとめました
http://www.ken3.org/etc/500yen/zaitaku.html いろいろとあるので転機の人はぜひ
登録料無料、匿名で探せるので在宅で小金稼ぎの人も見てね
~~~~~~~~~~~~~~~~
オレ様、私は、ＳＥ様だ、月給３０万以上ボーナス100万を探すのもありだよ。
私にみたいにVBA少しできるぐらいだと仕事無いよ・・・
と軽く言われても匿名なら気にならないし（笑）
逆にこんな簡単な仕事で月給27万貰えるの？って会社もあるし、世の中イロイロ。
http://www.ken3.org/etc/500yen/job.html
------------------------------------------------------------------------　

/*
 * ５．終わりの挨拶
*/

今回は、
クエリーでCLng関数を使用して、
文字型のフィールドを数値に変換して、並べ替えに使用してみました。

おまけで、変換エラーの話と、逃げ方を書きました。

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]