＜Access クエリーでCLngを使用して番号をキレイにする＞
どうも、三流プログラマーのＫｅｎ３です。 今回は、 AccessのクエリーでCLngを使用して 文字列型の番号をキレイにしてから、ソートしてみます。/* * １．今回のキッカケ */
メールで下記の質問をもらいました。 ----- >まず、うちは一件一件の案件に対して、番号を振っているのですが >その番号が少し特殊でして、普通最初は >「１」「２」「３」・・・ときますところに >最初に「０」を付けるんです。 >ですから >「０１」「０２」「０３」・・・となるんです。 >「１２３」の場合には、「０１２３」となります。 >まぁ、これはこれでいいんですが・・・。 > > >昇順で並び替えをしますと・・・。 >わけの分からないことに・・。 > > >例えば >普通の「５」「２４」「３２」「１２３」とあれば、この通りの順番になりますが >うちの特殊な番号の振り方ですと「０５」「０２４」「０３２」「０１２３」とな >ります。 >昇順しますと >「０１２３」「０２４」「０３２」「０５」 >となってしまうんです・・・。 > > >まぁ、コンピュータの考えてる昇順の意味は分かるんですけど > >私としては、ちゃんと「０５」「０２４」「０３２」「０１２３」と並び替えても >らいたいのです。 > > >こんな説明で分かってもらえましたでしょうか？ >この数字を、私は「テーブル」の「データ型」のところ「テキスト型」で入力して >しまいました。 >それも一因だったりしますか？ ----- 頭０の番号は、よく聞く話ですよね、 それで、 「０１２３」 「０２４」 「０３２」 「０５」 の辞書順になってしまうんですね。 （頭０無くても、文字型だと辞書順になってしまいますよね） データ型がテキストじゃないと、 頭に０が付けて記録できないので、それはテキスト型でOKなんだけど、 できたら、数値型で入れておいて、印刷するときだけ０付けたほうが簡単だったかも よくお偉いさんが言うテーブル構造やデータの持ち方ってのは・・ って講義は私には合わないので、置いといて。 今、現実に「０１２３」「０２４」「０３２」「０５」とデータが入っているので、 直すと大変だと思います。 なので、ここは、また前回の演算フィールドを使い逃げたいと思います。/* * ２．CLng関数を使用して、文字列を数値に直しソートする */
「０５」「０２４」「０３２」「０１２３」 のテストデータを作ります。
↑テストデータイメージ
演算フィールドを作成します
^^^^^^^^^^^^^^^^^^^^^^^^^^
番号２: CLng([番号])
みたいにして、
: CLng([並べ替えたい番号のフィールド])
とすると、
CLng関数で文字列を数値に直してくれます(０が取れて純粋な数値になります)
↑式入力のイメージ
数値に変換された演算フィールド、それを並べ替えると出来ると思います。
↑並べ替えの結果
で、あとは、
画面やレポートに表示するのは、
いままで同様に元の番号フィールドを使用します。
演算フィールドってのが、意外と便利なんですよ。
あとは、経験を積むと、CLngとかの変換関数の知識が付いて、
それの組み合わせって感じかなぁ。
↑エラー画面
あらら・・・番号が必ず入力されていればいいけど、
実行時エラーで落ちる、キケンなプログラムですね。
回避策は、私みたいな三流プログラマーなら、
頭に０を勝手に付けてしまう（笑）
今回は２バイト文字の
「０５」「０２４」「０３２」「０１２３」
なので、「」と何も入っていない時を考えて、
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
------------------------------------------------------------------------