Dim db As Database Dim tdf As TableDef Dim fld As DAO.Field If condicion = True Then Set db = CurrentDb Set tdf = db.TableDefs("miTabla") Set fld = tdf.Fields("miCampo") fld.Required = False fld.DefaultValue = "Otro valor" Set fld = Nothing Set tdf = Nothing Set db = Nothing End If