ACCESSでの桁数を指定して数値を抜き出し、カンマ区切り表示にする方法

質問

ACCESSでのデータ変換について質問です。
下記のような半角20桁の数値が入力されているフィールドが1～10まであり、
これらの値の左側から7桁目までの数値を抜き出し、それら抜き出した
数値の1桁ごとに「,」で区切って表示したいと思っているのですが、
一括括変換する方法があれば教えて下さい。

例(1）12345678910000000000　→1,2,3,4,5,6,7
例(2）00000000001234567890　→0,0,0,0,0,0,0
例(3）00112233445566778899　→0,0,1,1,2,2,3

私は、アクセスに不慣れなので、数式を入力する方法も合わせて教えて
いただけると大変助かります。
MID関数を使えばいいらしいのですが、ACCESSではどうすればよいのか分からないため質問させていただきました。
よろしくお願い致します。

回答No.4

30246kiku

＃２です

> 構文エラー：クエリ式に演算子がありません（構文エラー）

このメッセージで一緒に表示されていた文字列は何でしたか。

クエリ式 '・・・・・・・・・・'の　構文エラー：演算子がありません。
の　・・・・・・・・・　部分になります。

良く間違うのは、(　)　や、スペースを全角にしてしまうとか、、、（半角で記述します）
で、そのメッセージを閉じた時、どの部分が反転表示されていますか。
その近辺でエラーとなっています。（反転表示されない時もあります）

※　実現するための方法、やり方は１つということはありません。
複数フィールドに対して同じ処理をしたいということだったので、今後の修正/変更のしやすさからユーザ定義関数を使う方法を提示させていただきました。
現在は７文字ですが、５文字、１０文字に変更する時は１箇所変更することで対処できます。
この変更くらいでは、不具合を作りこむことはまずないと思います。
（今後変更なければ、余計なお世話ということに）

処理を確かにするためには、フィールド内の文字の桁が７に満たない時の処理を盛り込むくらいでしょうか。
（それはない、であれば今のままでも）

　　Dim i As Integer, j As Integer
　　Const MaxMojiLen As Integer = 7

　　On Error Resume Next
　　sRet = ""
　　If (Not IsNull(vQ)) Then
　　　　j = Len(vQ)
　　　　If (j > MaxMojiLen) Then j = MaxMojiLen
　　　　For i = 1 To j

とか、

※
実物を見ることができないので、メッセージに表示される内容、メッセージを閉じた後で反転表示される近辺など、少しあたってみてください。

どうしてもダメであれば、そのSQLビューの内容をそのまま提示してください。
（わけあって提示できない内容であれば、一度メモ帳にコピーし、フィールド名/テーブル名を置換機能をつかって置き換えたものを提示してください）
（自分で文字消したり追加したりしないでください）
（提示される場合は、テーブルのサンプルも５～１０行程度欲しいです）

補足

30246kiku 様
早々のご回答をありがとうございます。
大変分かりやすいご説明をいただき恐縮でございます。

ご指導いただきました「構文エラー」については、テーブル名とフィールド名の記述に誤りがあったようで、それを修正することで解決いたしました。

今回教えていただきました「文字の桁が７に満たない時の処理」の
SQL文は、前回教えて頂いたSQL文の後ろに追加でよろしいでしょうか?
追加するとコンパイルエラーが発生し、以下のエラーメッセージが
表示されます。
「同じ適用範囲内で宣言が重複しています」

また、今回のSQLだけを記述した場合は、結果が全て「＃エラー」になります。
原因は、私の記述方法にあると思うのですが、アドバイスをいただけると幸いでございます。

お手数お掛け致しますが、宜しくお願い致します。