Mega Code Archive
Alter table to delete an Index with SQL command
Sub DeleteIndex()
Dim conn As ADODB.Connection
Dim strTable As String
Dim strIdx As String
On Error GoTo ErrorHandler
Set conn = CurrentProject.Connection
strTable = "myTable"
strIdx = "pKey"
conn.Execute "ALTER TABLE " & strTable & " DROP CONSTRAINT " & strIdx & ";"
ExitHere:
conn.Close
Set conn = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Number & ":" & Err.Description
Resume ExitHere
End Sub