下記のような感じで、エラーがでるんですよ。。。
なぜ？？

/*
 *　１.こんにちは
*/
こんにちは。みなさん、元気してますか？

今回もまた、訂正のメルマガです。
おいおい、そんなことばかりやってると、読者無くすぞ（信用無くす、、）

下記の
>Accessで半角スペースを全角、打ち込んでみました。
>が、動作しません、何がおかしいのでしょう、どうすれば？
>動くサンプルを送ってください。ヨロシク。
>あと、詳細の解説が無いのが残念です。
メールをいただきました。

あれ？と思い、自分でやってみると、、、動かないナゼ？チョットパニック。

/*
 *　２.SP_Convって関数名ダメ？なの？
*/
下記のプログラム、打ち込んで、自分でもテストしてみる。
----
Public Function SP_Conv(moji) As String
    Dim n As Integer
    Dim RET As String
    Dim ChkString As String
    
    RET = "" 'リターン値の初期化
    
    '文字数分ループする
    For n = 1 To Len(moji & "")
        ChkString = Mid(moji, n, 1)
        If ChkString = " " Then '半角スペースかチェック
            RET = RET & "　" '全角スペースをプラスする
            If Mid(moji, (n + 1), 1) = " " Then '次の文字がスペースがチェック
                n = n + 1  'ループカウンタを小細工
            End If
        Else
            RET = RET & ChkString 'スペース以外の時、そのままプラスする
        End If
    Next n
    
    SP_Conv = RET
End Function
----

チャント動作していたハズなのに、ナゼか、動かない。
アレ、、、パニックモード突入、、、（どうしよう、、どうしょう、、）

冷静な自分に切り替え、作ったサンプルと違うところを見比べる。
事前サンプルは、Function aaa(moji)とテスト的な名称を使っていた、
メルマガに書くとき、カッコつけて、
aaa-->SP_Convに修正した。
なんか、コレが原因みたいです。

関数名をSP_Cnv()に修正したら、動作しました。
う〜んなぜだろう？SP_Convって名前がいけないのだろうか？

でも、一番の原因は、関数名を変えただけだから、動くと思い込んで、
テストをしないで、そのまま載せてしまった、自分の甘さでしょう。。。
出荷前のチェック大切です。
＊おいおい、シッカリシテよ、、、新人君に見せられない姿だよ、、

に動くサンプル、保存しておきます。
よろしくお願いします。

/*
 *　３.おわりの挨拶
*/

なんか、、ミスってしまった。

次回からは、少しでも変更したら、テストしてから慎重に載せます。
（関数名とか、カッコつけようとしたのが、間違い、、、）

では、また。。。

三流プログラマーのＫｅｎ３より

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を