下記のような感じで、エラーがでるんですよ。。。 なぜ？？現象を確認したい方は、→mdb_gif.lzh をダウンロードして、見てください。
/*
* １.こんにちは
*/
こんにちは。みなさん、元気してますか？
今回もまた、訂正のメルマガです。
おいおい、そんなことばかりやってると、読者無くすぞ（信用無くす、、）
下記の
>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って名前がいけないのだろうか？
でも、一番の原因は、関数名を変えただけだから、動くと思い込んで、
テストをしないで、そのまま載せてしまった、自分の甘さでしょう。。。
出荷前のチェック大切です。
＊おいおい、シッカリシテよ、、、新人君に見せられない姿だよ、、
に動くサンプル、保存しておきます。
よろしくお願いします。
/*
* ３.おわりの挨拶
*/
なんか、、ミスってしまった。
次回からは、少しでも変更したら、テストしてから慎重に載せます。
（関数名とか、カッコつけようとしたのが、間違い、、、）
では、また。。。
三流プログラマーのＫｅｎ３より
質問や要望、クレームを送る(三流君に連絡する 連絡方法)
質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
|
感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 |
| ←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社（アスキー、インプレス等）が共同運営するコンピュータの本・専門店 ※種類が豊富で探し易い※在庫ありが48時間以内発送 |