Access CreateField

I am using CreateField to add a Date field to an existing table in Access. When I execute the code, everything seems fine but in reality, the field is not created.:confused:

Why is that?

Note: The name of the table is valid and I have checked to see if access finds it.

here's my code:

Code:

---

Public Sub DoTableUpdate()
    Dim dbs As Database
   
    Set dbs = OpenDatabase("C:\Documents and Settings\dlaplante\Desktop\Syndata\Database\SynagisData.mdb")
    dbs.TableDefs("Shipment").CreateField "Shipment_NextDate", dbDate
    dbs.Close
    Set dbs = Nothing
End Sub

---

I think u have to Append the field.

try doing it this way :

VB Code:

Public Sub DoTableUpdate()
    Dim dbs As Database
    Dim f As Field
    
    Set dbs = OpenDatabase("C:\Documents and Settings\dlaplante\Desktop\Syndata\Database\SynagisData.mdb")
    Set f = dbs.TableDefs("Shipment").CreateField("Shipment_NextDate", dbDate)
    dbs.TableDefs("Shipment").Fields.Append f
    dbs.Close
    Set dbs = Nothing
End Sub

:)

Thank you very much!

your welcome David :)

Nice icon you have there by the way!:)

thanks :)

u'rs only need a final touch :p