MS-Access Right関数について

質問

質問させていただきます。
MS-Access2002で請求書を発行するシステムを作っております。
請求書は手書き用の伝票に印刷するのですが、金額欄が1マスずず区切られており、文字間が広くなっております。文字のポイントを大きくしたら縦がはみ出てしまいます。そこで、Right関数で、右から1文字ずつ取得するようにしたのですが、たとえば、10000円の場合6桁目以降がすべて”1”になってしまします。この6桁目以降がない場合、表示しないようにするにはどのようにすれば良いでしょうか？

回答No.3

ja7awu · ベストアンサー

> ＞Space(10) &　[kingaku]
> これはテキストボックスのコントロールソースに書くのでしょうか？

これをそのまま書くのではなく、文字列関数を使って、例えば次のように
するということです。

質問の内容から、印刷する際に金額の各桁幅が合わないので、桁数分の
テキストボックスを配置する　と解釈されるのですが、それでいいのですね。

そうすると金額が[テキスト0]に表示されているとして

各桁のテキストボックスに対するコントロールソースは、円の単位から千万の
単位までは、それぞれ次の計算式になります。

=Right(Space(8) & [テキスト0],1)
=Left(Right(Space(8) & [テキスト0],2),1)
=Left(Right(Space(8) & [テキスト0],3),1)
=Left(Right(Space(8) & [テキスト0],4),1)
=Left(Right(Space(8) & [テキスト0],5),1)
=Left(Right(Space(8) & [テキスト0],6),1)
=Left(Right(Space(8) & [テキスト0],7),1)
=Left(Right(Space(8) & [テキスト0],8),1)

お礼

回答ありがとうございます。
希望のものができました。早速、活用させていただきます。

回答No.2

imogasi

Ｒｉｇｈｔ関数を使うので無く
Sub test02()
s = "100000"
For i = Len(s) To 1 Step -1
MsgBox Mid(s, i, 1)
Next i
End Sub
で、０，０，０，０，０，１が表示される、などが参考になりませんか。

お礼

回答ありがとうございます。
参考にさせていただきます。

回答No.1

ja7awu

下のように、左側にスペースをいっぱい補ってから、文字列関数を使えば、
問題ないように思いますが、如何でしょうか。

Space(10) &　[kingaku]

補足

早速の回答ありがとうございます。
ところで、
＞Space(10) &　[kingaku]
これはテキストボックスのコントロールソースに書くのでしょうか？