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

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

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

No.2 ベストアンサー 回答者： 20020718 回答日時： 2002/09/12 13:17

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」になります。

この回答へのお礼

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

お礼日時：2002/09/12 15:07

No.1 回答者： maruru01 回答日時： 2002/09/12 12:37

こんにちは。

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

この回答へのお礼

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

お礼日時：2002/09/12 15:03