住所の一部分を置換したい

質問

MS-Accessで住所録を作っていますが、合併で一部の住所が変更になりました。例えば住所フィールドで本吉郡AAA町B＊＊となっている住所をの全てを登米市AAA町B＊＊と変更したいのですがどうしたらよろしいのでしょうか？

回答No.2

noname#30830 · ベストアンサー

こんばんは。

あるテーブルに住所データを入力していると思うので、
住所の入っている列全体を選択して、
編集→置換をクリックし、
『検索と置換』ダイアログボックスが出てきます。
そこで、
探す場所が、選択した列の名称であることを確認し、
検索条件を「フィールドの一部分」に設定して、
検索する文字列を「本吉郡」
置換する文字列を「登米市」にし、
まず、「置換」ボタンで１つだけ置き換えて実験し、
「すべて置換」ボタンをクリックすればいいと思います。
いかがでしょうか。

お礼

早速の回答ありがとうございました。私”フィールドの一部分”の意味を勘違いしていました。すぐ置換できました。

回答No.3

imogasi

作業を自動化すると下記。
アクセスのモジュールの標準モジュールに貼り付けて実行する。
下記の旧市区町村と新地区町村の対応部分を正しくして、増やせば
一度に置換できます。
アクセス２０００以上であること。
比較対照テーブルは元住所が埼玉県大宮市のような場合に、その一部大宮市の部分を指定するだけでＯＫです。
テーブル名、フィールド名は、自分のケースに合わせて変更すること。
Private Sub test04()

X = Array("大宮市", "浦和市", "与野市")
Y = Array("さいたま市", "さいたま市", "さいたま市")

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open "住所録", cn, adOpenKeyset, adLockOptimistic

For i = 0 To UBound(X)
rs.MoveFirst
Do Until rs.EOF
s = rs!住所
s1 = Replace(s, X(i), Y(i))
rs.Fields("住所").Value = s1
rs.Update
rs.MoveNext
Loop
Next i
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

お礼

早速の親切な回答ありがとうございました。今回はNo１さんとNO2さんの”フィールドの一部”ということで解決いたしました。

回答No.1

noname#11841

テーブルを開いて、「編集」→「置換」で、「検索条件」を「フィールドの一部分」にして置換すればよいと思います。

お礼

早速の回答ありがとうございました。私”フィールドの一部分”の意味を勘違いしていました。すぐ解決できました。