Function fieldExists(tableName As String, fieldName As String) As Boolean
On Error GoTo Fehler
 
    Dim fld As DAO.Field
 
    fieldExists = False
    Set fld = CurrentDb.TableDefs(tableName).Fields(fieldName)
    fieldExists = True
 
Fehler
    Set fld = Nothing
 
End Function

vb@rchiv iGoogle Gadget gibts hier:
http://www.google.de/ig/directory?q=vbarchiv&hl=de&root=%2Fig&dpos=top&url=gadgets.hemken.org/gadgets/vbarchiv/vbarchivnews.xml