外部企業から毎月データを受け取り、フィールド名を連番に変更する必要があります。example contract 11 15 17 to 1 2 3. 次のコードを使用しようとしていますが、「fld.Name = (n) + 1」でフィールドを複数回定義できないというエラーが表示されます。どうすればこれを修正できますか?
Function ChangeFieldName()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim n As Integer
Set db = CurrentDb
Set tbl = db.TableDefs("tdf1")
On Error Resume Next
n = 0
For Each fld In tbl.Fields
fld.Name = (n) + 1
Next fld
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Function