Cannot Add a field to a table using VBA 1

[maupiti]

Access 2003

Cannot Add a field to a table using VBA.
The table named "Table_Source_1" is already in existence.
The code below has no error message, however it did
not create the field.

///////////////////////////////////////////////

Private Sub Add_A_Field_To_The_Source_Table()
Dim Tdf_Source_Table As TableDef
Dim Field_Done As Field
Dim Dbs As Database

Set Dbs = CurrentDb

Set Tdf_Source_Table = Dbs.CreateTableDef("Table_Source_1")
Set Field_Done = Tdf_Source_Table.CreateField("Done", dbText)
Field_Done.Size = 3

Tdf_Source_Table.Fields.Append Field_Done
Dbs.Close
End Sub

 

[PHV]

You may try this:
CurrentDb.Execute("ALTER TABLE Table_Source_1 ADD COLUMN Done CHAR(3);")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[maupiti]

Hi PHV, and thank you for your help. I got the VBA code above from a Microsoft book "Building Apllications with Microsoft Access 97." Why would it not run ?

 

[ItIsHardToProgram]

Passing through VB is not the best way to modify tables unless ur using recordsource.... SQL is more straight forward....