読者です 読者をやめる 読者になる 読者になる

STARDUST can be found.

ごくたまに振り返るためのMEMO書きです。

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

仕事

関数メモ

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

名称1:10桁

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

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

Len:文字数をかぞえる

Len([名称1])=9:株式会社○○○○○▲○○○○○(▲はスペース)にする為

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

***