こんにちわ。 以前の重複チェックにはエラーがあったので訂正です. 円マークをだけのビューを作り、 円マークを含むときは代用マークにより処理します. これによりすべてのコードの重複チェックが可能となりました. ご参考までに！ '----------------------- ' 重複チェック '----------------------- '[1] \を含む時 keyS = Left(word,1) '\マーク取得 If keyS= "\"Then word=convChr(word,"\","") '￥マークを取る word = "☆"+word '☆を代用 Set view = db.Getview("ENMARK") '非表示ビューを利用 Set doc = view.GetDocumentByKey(word,True)'完全一致 If (doc Is Nothing) Then Print("新規コードです♪") ' \マークを含みます Else Msgbox("コードに値はすで存在します") Call uidoc.GotoField("Code1") Continue = False Exit Function End If Else '[2] \を含まない時 Set view = db.Getview("KOKYAKU") Set doc = view.GetDocumentByKey(word,True) '完全一致 If (doc Is Nothing) Then Print("新規コードです♪") ' ￥マークは含みません Else Msgbox("コードに値はすで存在します") Call uidoc.GotoField("Code1") Continue = False Exit Function End If End If