Public Sub a()
Dim Db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
'
Set Db = CurrentDb()
Set tdf = Db.TableDefs("FA1")
Set fld = tdf.Fields("FORMULA_NO")
Debug.Print fld.Size
End Sub
You will need a reference to the DAO library to use this code
Regards
Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -
________________________________________________________________________
Zameer Abdulla Visit Me No two children are alike - particularly if one is yours and the other isn't.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.