用VBA设定表的主关键字

sunredday

Private Sub 命令6_Click()
Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
     Dim idxNew As DAO.Index
     
     Set dbs = OpenDatabase("C:\Documents and Settings\administrator\My Documents\db1.mdb")
    Set tdf = dbs!表1

    With tdf
        ' Create new index, create and append Field
        ' objects to its Fields collection.
        Set idxNew = .CreateIndex("NewIndex")

        With idxNew
            .Fields.Append .CreateField("dfas")
               idxNew.Primary = True
            
        End With

        ' Add new Index object to the Indexes collection
        ' of the Employees table collection.
       .Indexes.Append idxNew
     
        .Indexes.Refresh
  End With






   
End Sub

wjb5645

非常感激sunredday大侠,帮我解决了大问题.
这个论坛高手很多,能耐心地有救苦救难风范的侠客不多.
再次感谢sunredday大侠!!!