スクリプトで検証しましたが... やはり\マークだとないコードまでもが「￥」マークを含んでいると 重複エラーを表示してしまいます... 下記のスクリプトでやってみました。 「\」マークでもできるスクリプトはどんな工夫が必要でしょうか？ どうかよろしくお願いします...（T T） Sub Exiting(Source As Field) '----------------------- ' 重複チェック '----------------------- Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As New NotesSession Dim db As notesdatabase Dim view As notesview Dim doc As notesdocument Set uidoc = workspace.CurrentDocument Set db = session.currentdatabase Dim key As String '新規文書フォーム上のナンバーフィールド値取得 key = uidoc.FieldGetText("Code1") '************ 重複番号チェック ****************** '同じデータベース内のカウント管理用ビュー取得 Set view = db.Getview("Kokyaku") Set doc = view.GetDocumentByKey(key) If (doc Is Nothing) Then Msgbox("なし") Else Msgbox("コードに入力された値はすでに存在しますので、値を変更してください") Call uidoc.GotoField("Code1") End If End Sub