アクセスで教えてください 住所を抜き出したいのですが、 区があれば区より前、 郡のときは町より前、

アクセスで教えてください
住所を抜き出したいのですが、
区があれば区より前、
郡のときは町より前、
市だけのときは市より前を
抜き出すことはできますか？

No.3 回答者： ShowMeHow 回答日時： 2021/05/26 13:14

No2さんのいうとおりですね。

考え足らずでした。
個別対応は、気が遠くなる作業かもしれません。

こういうところで、自治体リストをダウンロードして加工していくほうが楽かもしれません。

https://www.j-lis.go.jp/spd/code-address/hokkaid …

No.2 回答者： OnneName 回答日時： 2021/05/25 21:52

出来ますが既回答の様に一筋縄では行きません。

市川市、町田市、村田町、郡山市何々町など判別不能が山ほど出てきます。

No.1 回答者： ShowMeHow 回答日時： 2021/05/25 19:55

instr 関数

split 関数
を使って、新たな関数を作ればできます。

function frontpart(strAddress) as string
dim fp as variant
frontpart=strAddress
if instr(strAddress,"区")<>0　then
fp = split(straddress,"区”)
frontpart = fp(0)
end if
if instr(strAddress,"群")<>0　then
fp = split(straddress,"町”)
frontpart = fp(0)
end if
if instr(strAddress,"市")<>0　then
fp = split(straddress,"市”)
frontpart = fp(0)
end if
end function

のような感じだと思います。
動作環境持っていないので、動作確認及び、デバッグ等できませんが、、、

クエリとかからも呼び出して使うことができます。
速度に問題があるなら、可能性が高い順に並べ入れ子でelse ifとかにするとか、都度exit function しちゃうとかもありです。

例外として、東京都八丈町とかもありますが、、、まあ、必要に応じて追加してください。