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)参考:
RECENT POSTS
SEARCH