Field Caption property

[Richard]

Hi,
I have posted this question on another site but had no luck so far. Sorry
about multiposting to those who have seen it.

I wish to add the field captions programmaticall y to the fields properties
when I am creating the database (VB5 DAO3.6) but caption does not appear on
the properties
list.
I'm sure it must be posible, and probable simple but I can't find out how.
Anybody know please.

Richard

[Svetlana]

Even caption doesn't appear in the properties list i think it exists.
Just type it and see what happens.

[Richard]

"Svetlana" <Ac**********@y ahoo.comwrote in message
news:11******** **************@ i42g2000cwa.goo glegroups.com.. .

Even caption doesn't appear in the properties list i think it exists.
Just type it and see what happens.

Property not found error!

[RichardP via AccessMonster.com]

The Caption property won't be created by default, so use the CreateProperty
method of the field to manufacture a property object, then append that
property object to the fields' properties collection.

I think the caveat here is that the table has to exist in the TableDefs
collection before field properties may be appended.

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200609/1

[Bas Cost Budde]

Untested code, no error handling, adjust where you feel.

Sub makeField(cTabl e As String, cField As String, nType As Long,
cCaption As String, Optional nSize = 50)
'Access 97, using DAO
Dim db As Database
Dim td As TableDef
Dim fd As Field
Dim pr As Property
Set db = CurrentDb
Set td = db.TableDefs(cT able)
Set fd = td.CreateField( cField, nType, nSize)
Set pr = fd.CreateProper ty("Caption", dbText)
pr.Value = cCaption
fd.Properties.A ppend pr
td.Fields.Appen d fd
End Sub
Richard schreef:

"Svetlana" <Ac**********@y ahoo.comwrote in message
news:11******** **************@ i42g2000cwa.goo glegroups.com.. .

>Even caption doesn't appear in the properties list i think it exists.
Just type it and see what happens.

Property not found error!

--
Bas Cost Budde
Holland

[Bas Cost Budde]

I routinely add properties to objects that are not yet collection
members. Don't think that is a problem.

You could wrap CreateProperty in a routine that first tries to set the
value of the property using dot notation, and if it fails on
PropertyNotFoun d makes an excursion to CreateProperty. Does that make sense?

RichardP via AccessMonster.c om schreef:

The Caption property won't be created by default, so use the CreateProperty
method of the field to manufacture a property object, then append that
property object to the fields' properties collection.

I think the caveat here is that the table has to exist in the TableDefs
collection before field properties may be appended.

--
Bas Cost Budde
Holland

[Richard]

"Bas Cost Budde" <b.*********@de v.null.comwrote in message
news:ef******** *@localhost.loc aldomain...

>I routinely add properties to objects that are not yet collection members.
Don't think that is a problem.

You could wrap CreateProperty in a routine that first tries to set the
value of the property using dot notation, and if it fails on
PropertyNotFoun d makes an excursion to CreateProperty. Does that make
sense?

RichardP via AccessMonster.c om schreef:

>The Caption property won't be created by default, so use the
CreateProper ty
method of the field to manufacture a property object, then append that
property object to the fields' properties collection.

I think the caveat here is that the table has to exist in the TableDefs
collection before field properties may be appended.

--
Bas Cost Budde
Holland

A Big Thank You to you all.
I have it working now.
I had tried 'CreateProperty ' but at the same time as creating the field
which did not work.
I now add the caption properties after all the table have been created which
works fine

Thanks
Richard