文字数かぞえて、スペースを入れたり削ったり

関数メモ

name : IIf(Len([名称１])=9 And Len([名称２])>10,[名称１] & "　" & rTrim(Left([名称２],10)) & "　" & Trim(Mid([名称２],11,10)),IIf(Len([名称１])=9 And Len([名称２])>0 And Len([名称２])<11,[名称１] & "　" & [名称２],IIf(Len([名称２])>11,[名称１] & rTrim(Left([名称２],10)) & "　" & Trim(Mid([名称２],11,10)),[名称１] & [名称２])))

名称1：10桁

名称2：20桁
（名称2は10桁で改行されるのでレイアウト調整にスペースが入ってみたり）

CSVデータからAccessに引っ張るときに前後スペースを削除してるみたい。（たぶん自分で設定したんだろうけど）

Len：文字数をかぞえる

Len([名称１])=9：株式会社○○○○○▲○○○○○（▲はスペース）にする為

RTrim：[名称２]のレイアウト調整用の余計なスペースを削除

***