How to add a new fields in table by using recordset (VBA)

[nadjib]

Hi everybody,

How can I add a fields in table by using Recordset.

I try to use:

--------------------
Dim db As DAO.Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("Table1&quot

rst.Fields ????? Append dont work

So what is the object how must used in this case, to permet me to add new field like (string or integer)


cordially

 

[seancastor]

Use TableDefs instead of Recordset. Here is an example:

Dim tdf as TableDef, fld as Field

Set tdf = db.TableDefs("Table1&quot
Set fld = tdf.CreateField("FieldName",fieldsize) - the field size is going to be something like dbDouble, dbDate, dbText, etc.)

With tdf.Fields
.Append fld
End With

Hope this is what you were looking for.