Question

VB,VBA如何在Access已有表中查询字段是否存在，如何增加字段

Answer 1

增加字段名:
select 2 as 新字段名 from 表1
select 已有字段名+1 as 新字段名 from 表1

字段是否存在:
dim Fix as boolean
fix=false
for i = 1 to 字段最大数
if currentdb.表名.fields(i)=目标字段名 then
fix=true
end if
next
if fix=true then
msgbox "目标字段名已存在"
else
msgbox "目标字段名不存在"
end if