Printable View
Please help! I am a beginner with VB and need to update a DAO/Access 97 table with the old table data. The problem is that the new table has extra fields that's not in the old table.
How can i check each field from the new table to see if the same field exist in the old table so that i can import the data if it exist or add a default value if the field does not exist.
Any help please, i'm desperate!!!
Wynand
A recordset has a fields collection, contining field objects. This way, you can do the check.
Dim fldNew as Field
Dim fldOld as Field
on error resume next ' disable errorhandling
for Each fldNew In rstNew
set fldOld = rstOld.Fields(fldNew.Name)
If Err.Number <> 0 then
' Field doesn't exist in old recordset
else
' Field exist in old recordset
End If
next fldNew
Tom Cannaerts
[email protected]
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook