投稿日 | : 2004/02/03(Tue) 05:29 |
投稿者 | : おじん |
URL | : |
タイトル | : Re^3: 解決しました |
魔界の仮面弁士さまのヒントで、運良く、いい方法を、はじめて気が付きました。
適当なところに、「ds.Unique」と打ち込み、Helpキーを押すと色々でてきます。
色々探して、使用例がみつかりました。
Set idxNew = .CreateIndex("NewIndex")
With idxNew
.Fields.Append .CreateField("Country")
.Fields.Append .CreateField("LastName")
.Fields.Append .CreateField("FirstName")
.Unique = True '<---ここ
End With
.Indexes.Append idxNew
.Indexes.Refresh
ありがとうございました。