ACCESS VBA adding fields Error 3219

Question

i'm trying to add 2 columns to the table "schede" but i always return Error 3219. Can anyone help? Here is the code:

Dim db As Database
Set db = CurrentDb()
'add columns
Dim campo1 As Field
Set campo1 = db.TableDefs("SCHEDE").CreateField("cliente", dbText, 6)
CurrentDb.TableDefs("SCHEDE").Fields.Append (campo1)
Set campo1 = CurrentDb.TableDefs("SCHEDE").CreateField("da_canc", dbText, 3)
CurrentDb.TableDefs("SCHEDE").Fields.Append (campo1)

Possible duplicate of Why does this vba table relink code result in error 3219? — Stefan Crain
– Stefan Crain, Commented Mar 28, 2018 at 15:56

Stephen Docy · Accepted Answer · 2018-04-22 05:43:16Z

0

As Fields.Append is a sub (not a function) you have to pass its arguments without parentheses (or add aCallat beginning). Also reuse your database reference (db).

Dim db As DAO.Database 'Library name to clearfy reference (e.g ADODB has a database object too)
Set db = CurrentDb()
'add columns
With db.TableDefs("SCHEDE") 'for DRY
    .Fields.Append .CreateField("cliente", dbText, 6)
    .Fields.Append .CreateField("da_canc", dbText, 3)
End With

edited Apr 22, 2018 at 5:43

Stephen Docy

4,7887 gold badges21 silver badges31 bronze badges

answered Mar 28, 2018 at 20:23

ComputerVersteher

2,6941 gold badge12 silver badges21 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

ACCESS VBA adding fields Error 3219

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related