#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
のように、引数として与えられた1件分の電話番号の内容を更新することができます。


クエリーのデザインさらに、このプロシージャを更新クエリーから呼び出すことによって、テーブルの全レコードの電話番号を一括して更新できるようにします。それには、右図のようなデザインのクエリーを作成して、実行します。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved