| | ||
| | |||
| Access Tips | |||
   |
|||
 #149 |
 |
電話番号データから ( ) - を削除する方法 | VBA、クエリー |
電話番号のデータが、「定型入力」によって "(0123)45-6789" という形式ですでにテーブルに保存されているとします。ここでは、VBAの関数と更新クエリーを組み合わせることによって、その電話番号データから、定型入力によって自動入力された "("、")"、"-" を削除し、数字だけのデータに更新する方法を紹介します。 まず、標準モジュール上に次のようなプロシージャを作成します。 Public Function ReplaceTEL(strExpression As String) As String
'電話番号 ( ) - を削除するプロシージャ '（ を取り除きます strExpression = Replace(strExpression, "(", "") ' ）を取り除きます strExpression = Replace(strExpression, ")", "") '－ を取り除きます strExpression = Replace(strExpression, "-", "") '結果を返り値にセットします ReplaceTEL = strExpression End Function このFunctionプロシージャを使うと、 Debug.Print ReplaceTEL("(0123)45-6789") ===> 0123456789
のように、引数として与えられた１件分の電話番号の内容を更新することができます。 さらに、このプロシージャを更新クエリーから呼び出すことによって、テーブルの全レコードの電話番号を一括して更新できるようにします。それには、右図のようなデザインのクエリーを作成して、実行します。 |
|||
|
|
|||
| Copyright © T'sWare All rights reserved |   |