いつもお世話になります。 そしてお助けください。。。下記のスクリプトを組んだのですが、どうしてもエラーになってしまいます。 一体どこに間違いがあるのか解りません。 エラーの表示は[T003型が一致しません」で※印のところでエラーになります。 pdoc.Categoriesの同一の文書は読み飛ばしたいと考え、下記のような式にしてみました。 vDetaの1件目〜3件目までのCategoriesの値は「X001」となっていています。最初の一件目は作成されて次の２件目が 呼び込まれているようなのですが、※印のところでエラーになってしまいます。 デバックで変数を見たところ、「pdoc.Categories=X001」 「NoKey=X001」と入っているようなのですが、 エラーでおちてしまいます。。。 他のNotes作成者と見直したりしたのですが、どうしても解りません。 アドバイスを頂けたらと思います。よろしくお願いします。 ==================スクリプト Set pdb = s.getdatabase("TRXNOTES/TOREX","DB_Develop\New開発品種.nsf") Set pview = pdb.getview("vDeta") Set pdoc = pview.GetFirstDocument Dim NoKey As Variant Set db = s.CurrentDatabase NoKey = "X000" Do Until pdoc Is Nothing If pdoc.Categories(0) >< NoKey Then ======== ※※ NoKey = pdoc.GetItemValue("Categories") Set crdoc = db.createdocument crdoc.form="Kaihatu_MainForm" '新規フォームの設定 Call crdoc.replaceitemvalue("DevNo_Field" , pdoc.Categories(0)) Call crdoc.replaceitemvalue("ModelName_Field" , pdoc.LinItem(0)) Call crdoc.replaceitemvalue("ProductName_Field" , pdoc.ProductNo(0)) Call crdoc.replaceitemvalue("SeihinName_Field" , pdoc.XC_No(0)) Call crdoc.Save(True,True) End If Set pdoc = pview.GetNextDocument(pdoc) Loop Call ws.viewrefresh