I try to use "AppendDeleteField" but I received this error -> Sub or Function not defined <-

[regis]

This is my code.. And When I execute this code I received the error "Sub or Function not defined" Why?

Dim dbsDonnee As Database
Dim tdfTable1 As TableDef
'Dim fldLoop As Field

Set dbsDonnee = OpenDatabase("C:\Test.mdb")
Set tdfTable1 = dbsDonnee.TableDefs!Table1

' Add three new fields.
AppendDeleteField tdfTable1, "APPEND", _
"E-mail", dbText, 50
AppendDeleteField tdfTable1, "APPEND", _
"Http", dbText, 80
AppendDeleteField tdfTable1, "APPEND", _
"Quota", dbInteger, 5

dbsDonnee.Close

Thanks
Redg

[Iouri]

1.First of all try to find the place where you get this error message
2.Did you include all the references
3.Change the line
Dim dbsDonnee As Database
to
Dim dbsDonnee As DAO.Database

Iouri Boutchkine
[email protected]