复制代码代码如下:
FonctionCheckfields (Fieldsname, TableName)
Drapeau = faux
sql = "select * from" & tableName
Setrs = conn.excute (sql)
fori = 0tors.fields.count-1
ifrs.fields (i) .name = champs
Drapeau = vrai
Sortie
autre
Drapeau = faux
endire
Suivant
CheckFields = Flag
Finition de fin