# Re: 如何以程式得知某栏位在ACCESS中设定的栏位大小?

Posted by cAkk on September 14, 1999 at 10:51:07:

In Reply to: 如何以程式得知某栏位在ACCESS中设定的栏位大小? posted by mosa on September 09, 1999 at 17:14:28:

Dim dbs As Database
Dim ret As Recordset
Dim fld As Field
Set dbs = OpenDatabase("xxxx.mdb")
Set ret = dbs.OpenRecordset("xxxx")

For Each fld In ret.Fields
Debug.Print fld.Name, fld.Properties("Size")
Next
Set fld = Nothing
Set ret = Nothing
Set dbs = Nothing

'DAO is Coooooooooooool~~~~~!

Follow Ups: