access住所分割メモ

フィールド準備

・住所(元データ)
・都道府県(必要な項目)
・市区町村(必要な項目)
・番地以下(必要な項目)
・都道府県以外(抽出に使う為)
・数字のみ(抽出に使う為)
 

都道府県とそれ以外に分割

都道府県
Switch(Mid([住所],3,1) In("都","道","府","県"),Left([住所],3),Mid([住所],4,1)="県",Left([住所],4))

都道府県以外
Replace([住所],Nz([都道府県],""),"")
 

市区町村と番地以下に分割

数字のみ
Eval(Replace(Replace(Format(StrConv([都道府県以外],8),Replace(String(Len(StrConv([都道府県以外],8)),"&"),"&","{&}")),"{","Choose(Asc('"),"}","')-47,0,1,2,3,4,5,6,7,8,9)&") & "''")

市区町村
Left([都道府県以外],InStr([都道府県以外],Left([数字のみ],1))-1)

番地以下
Mid([都道府県以外],Len([市区町村])+1)
 

おまけ:郵便番号7桁を3桁-4桁に

Left$([郵便番号],3) & "-" & Right$([郵便番号],4)

参考:
Comments

コメントする