■

以下、うまくいくかどうか・・・　|･ω･｀)

• [住所]　風林町大字火山７８９０番地６０
  • ⇒　火山七八九〇番地六〇

1. 住所Ｑ１:Right([住所],Len([住所])-InStr(1,[住所],"風林町大字"))
2. 住所Ｑ１:Right([住所],Len([住所])-InStrRev([住所],"風林町大字"-1,0))
3. 住所Ｑ１:Replace([住所], "風林町大字", "")

1 と 2 はうまくいかなかった。　　　3 は、はたして・・・

3 は、「ナイス高橋！」でした。

住所Ｑ２:Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace([住所], "１", "一"), "２", "二"), "３", "三"), "４", "四"), "５", "五"),"６", "六"), "７", "七"), "８", "八"), "９", "九"), "０", "〇")

• [地番]　123　（[枝番]40）
  • ⇒　一二三

地番Ｑ:Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace([地番], "1", "一"), "2", "二"), "3", "三"), "4", "四"), "5", "五"),"6", "六"), "7", "七"), "8", "八"), "9", "九"), "0", "〇")

• [地積]　123.04
  • ⇒　一二三

1. 地積Ｌ:Fix([地積])
2. 地積Ｌ:Int([地積])

地積Ｌ:Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Fix([地積]), "1", "一"), "2", "二"), "3", "三"), "4", "四"), "5", "五"),"6", "六"), "7", "七"), "8", "八"), "9", "九"), "0", "〇")

• • ⇒　〇四

地積Ｒ:Mid([地積],InStr([地積],".")+1)

地積Ｒ:Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Mid([地積],InStr([地積],".")+1), "1", "一"), "2", "二"), "3", "三"), "4", "四"), "5", "五"),"6", "六"), "7", "七"), "8", "八"), "9", "九"), "0", "〇")

Mid と InStr の組み合わせは、"." が無い整数値のときうまくいかないです。

そこで、
Right([地積]*100,2) をつかいました。