DELETE ID from many tables

[boblarson]

Get a good night's sleep. Of course, I had to get it right after that

Dim strSQL As String

strSQL = "DROP INDEX PrimaryKey ON tblBrazil"

CurrentDb.Execute strSQL, dbFailOnError

strSQL = "ALTER TABLE tblBrazil DROP COLUMN ID"

CurrentDb.Execute strSQL, dbFailOnError

 

[editolis]

Dear Bob,

Finally this is the solution:

Dim strSql

strSql = "DROP INDEX PrimaryKey ON tblBrazil"

CurrentDb.Execute strSql, dbFailOnError

strSql = "ALTER TABLE tblBrazil DROP COLUMN ID"

CurrentDb.Execute strSql, dbFailOnError

Thank you for your time and your help.