This shows numbers e.g 1, 4, 10 etc. How do you convert to names like "short text", "number" etc.Code:Dim db As DAO.Database Set db = CurrentDb Dim t As DAO.TableDef Set t = db.TableDefs("table1") Dim f As DAO.Field For Each f In t.Fields Debug.Print f.Type Next
And to set a datatype for a field, do you use numbers or names ?
Thanks