How to rename the field's name in the table from VBA? 1

[sabavno]

Hi,

I was wondering if anyone could show me how to rename the field's name in the Access table from VBA?

Thanks.

 

[beetee]

dim MyDb as database
set mydb = currentdb
dim MyTdf as tabledef
set mytdf = mydb.tabledefs("TableName&quot
mytdf.fields("FieldName&quot.Name = "NewName"
set mytdf = nothing
set mydb = nothing

 

[sabavno]

Thanks a lot.

What if I don't know the name of the field, but know that it is a first field in the table. Is there such as way to loop through all the fields, find out how many of them and rename them accordingly.

THanks.

 

[beetee]

Sure!

Dim MyField as field
for each myfield in mytdf.fields
next myfield

-- or --

dim counter as integer
for counter = 0 to mytdf.fields.count - 1
set myfield = mytdf.fields(counter)
next counter

 

[sabavno]

Thanks a lot

Sorry, but I have one more question

How can we add a new field to the existing table from VBA?

 

[beetee]

That's a bit more involved. At this point, you are best served by reading the Access Help on the Fields Collection.

The examples are quite good, and the help will give you the details you need to create the field exactly as you need it (there are numerous field properties that you must set correctly).

 

[IsraelZa]

Adding a field is possible with SQL's ALTER TABLE statement. E.g.

ALTER TABLE table_name ADD column_name TEXT(20)

(Execute as a query.)