>>GetItemValueはあまり使用しないほうが・・・ >>doc.GetItemValueはフィールド属性によって値を取り出す方法 >>がことなります。 同じ事かと思っていました｡勉強になりました。m(_ _)m ありがとうございます。 下記のようにまず完全一致による\コードを含まないコード内での 重複チェックをして、その後\マークを含むときは\マーク内の コードをチェックすることでできました♪ 本当にありがとうございました。 key = doc.Code1(0) keyS = doc.Code1(0) '------"\"取り外す------ key=convChr(key,"\","") '------重複チェック------ Set view = db.Getview("KOKYAKU") '-- \ｺｰﾄﾞなし内の重複チェック(\マークは含まない) -- Set sdoc = view.GetDocumentByKey(key,True)'完全一致 If (sdoc Is Nothing) Then If key = keyS Then Msgbox("\じゃなくコードもまだなし") Else '-- \ｺｰﾄﾞあり内の重複チェック(\マーク内のみ)-- If Right(keyS,2) = key Then Msgbox("コードに入力された値はすでに存在しますので、 値を変更してください") Call uidoc.GotoField("Code1") Else Msgbox("\でこーどなし") End If End If Else Msgbox("コードに入力された値はすでに存在しますので、 値を変更してください") Call uidoc.GotoField("Code1") End If