フォームの(Globals)に以下の関数を定義します。 Function convChr(SourceS As String,SearchS As String,ReplaceS As String) As String %REM convChr(SourceS As String,SearchS As String,ReplaceS As String) SourceSに対してSearchSを検索して、ReplaseSで指定した文字列に置換した結果を返す。 戻り値は、処理されたテキスト %END REM While Instr(SourceS, SearchS) > 0 SourceS = Left$(SourceS, Instr(SourceS, SearchS) - 1) + ReplaceS + Right$(SourceS, Len(SourceS) - Instr(SourceS, SearchS) - Len(SearchS) +1) Wend convChr=SourceS End Function 入力されたﾌｨｰﾙﾄﾞをCodeとした場合 doc.Code=convChr(doc.Code(0),"\","") として入力禁止文字をNullに変更してしまいます。 \を取り除いた文字列で重複するかチェックすればOKだと思います。 ちなみに"\"のかわりにChr(13)&Chr(10)と指定すれば、改行コード を無効にすることができます。 注意）ﾌｨｰﾙﾄﾞはテキストで複数値を不可としてください。 複数値を可にした場合、ﾌｨｰﾙﾄﾞ値は配列で処理しなければなりません。