#149
電話番号のデータが、「定型入力」によって "(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
'電話番号 ( ) - を削除するプロシージャ
'（ を取り除きます
strExpression = Replace(strExpression, "(", "")
' ）を取り除きます
strExpression = Replace(strExpression, ")", "")
'− を取り除きます
strExpression = Replace(strExpression, "-", "")
'結果を返り値にセットします
ReplaceTEL = strExpression
End Function
このFunctionプロシージャを使うと、
Debug.Print ReplaceTEL("(0123)45-6789") ===> 0123456789
のように、引数として与えられた１件分の電話番号の内容を更新することができます。
さらに、このプロシージャを更新クエリーから呼び出すことによって、テーブルの全レコードの電話番号を一括して更新できるようにします。それには、右図のようなデザインのクエリーを作成して、実行します。
