Access CreateField

[David Laplante]

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.

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:

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

[peet]

I think u have to Append the field.

[peet]

try doing it this way :

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

[David Laplante]

Thank you very much!

[peet]

your welcome David

[David Laplante]

Nice icon you have there by the way!

[peet]

thanks

u'rs only need a final touch