You could use the Table's Fields collection and trap the error if the
field doesn't exist:
Dim tdf As DAO.Tabledef
Dim db As DAO.Database
Dim fld As Field
On Error GoTo Proc_Error
Set db = CurrentDb
Set tdf = db.Tabledefs("MyTableName")
Set fld = tdf.Fields("TheFieldIWant")
If fld Is Nothing Then
<handle the error>
Else
<do something with it>
End If
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.