Microsoft Access2000で文字列を変換したい。

質問

ＡＣＣＥＳＳ２００で
桁数を変更することなく先頭からゼロ以外の文字が出てくるまで
ゼロをスペースに変換したいのです。

たとえば、
「000015」
「001500」
という文字列があると仮定します。これらを
「______15」
「__1500」
というような変換を行いたいのですが・・・（＿はスペースとみて下さい）
宜しくお願いします。

回答No.2

20020718 · ベストアンサー

Public Function z2s(indata As String) As String
z2s = Space(Len(indata) - Len(CStr(CCur(indata)))) & CStr(CCur(indata))
End Function

をモジュールに記述して、

x = z2s("000015")

という風に呼出すと、
変数　x に、「______15」 が入ります。

# ちなみに、「000000」の場合は、「_____0」になります。

お礼

ご教授いただいた方法なら、クエリー上でも実行可能ですね。
目からウロコでした。ありがとうございます。

回答No.1

maruru01

こんにちは。maruru01です。

関数化するとこんな感じ

Public Function SpaceNumber(NumStr As String) As String

　　Dim temp As String
　　Dim i As Long

　　For i = 1 To Len(NumStr)
　　　　temp = Mid(NumStr, i, 1)
　　　　If temp <> "0" Then
　　　　　　Exit For
　　　　End If
　　Next i
　　SpaceNumber = String(i - 1, " ") & Mid(NumStr, i)

End Function

お礼

非常に参考になりました、ありがとうございます。