Creating new field in code

I am trying to write code to add a field called "Additional" to an existing
table called "Faculty". When I run it as an on click event, it stops at the
line, .append fldTemp with the error message Run-time error '3191': Cannot
define field more than once.

Can someone please point out the error to me.

dixie

Private Sub AddField_Click()
Dim dbs As DAO.Database
Dim tdfFaculty As DAO.TableDef
Dim fldTemp As Field

Set dbs = CurrentDb()
Set tdfFaculty = dbs.TableDefs("Faculty")
Set fldTemp = tdfFaculty.CreateField("Additional", dbText, 255)

With tdfFaculty.Fields
.Append fldTemp
End With

End Sub

Answering my own questions AGAIN. There was nothing wrong with the code.
The field was already in the table. :-(

dixie

"Dixie" <dixie@dogmail.com> wrote in message
news:431e2eab$1@duster.adelaide.on.net...[color=blue]
>I am trying to write code to add a field called "Additional" to an existing
>table called "Faculty". When I run it as an on click event, it stops at
>the line, .append fldTemp with the error message Run-time error '3191':
>Cannot define field more than once.
>
> Can someone please point out the error to me.
>
> dixie
>
> Private Sub AddField_Click()
> Dim dbs As DAO.Database
> Dim tdfFaculty As DAO.TableDef
> Dim fldTemp As Field
>
> Set dbs = CurrentDb()
> Set tdfFaculty = dbs.TableDefs("Faculty")
> Set fldTemp = tdfFaculty.CreateField("Additional", dbText, 255)
>
> With tdfFaculty.Fields
> .Append fldTemp
> End With
>
> End Sub
>
>
>[/color]

Did you check the Faculty table to see if the field already exists in the
table? A table can only have one field with a specific name.

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


"Dixie" <dixie@dogmail.com> wrote in message
news:431e2eab$1@duster.adelaide.on.net...
I am trying to write code to add a field called "Additional" to an existing
table called "Faculty". When I run it as an on click event, it stops at the
line, .append fldTemp with the error message Run-time error '3191': Cannot
define field more than once.

Can someone please point out the error to me.

dixie

Private Sub AddField_Click()
Dim dbs As DAO.Database
Dim tdfFaculty As DAO.TableDef
Dim fldTemp As Field

Set dbs = CurrentDb()
Set tdfFaculty = dbs.TableDefs("Faculty")
Set fldTemp = tdfFaculty.CreateField("Additional", dbText, 255)

With tdfFaculty.Fields
.Append fldTemp
End With

End Sub

Thats what it was David. Thankyou.

dixie

"David Lloyd" <David@NoSpamPlease.com> wrote in message
news:xhrTe.14934$VU6.3331@bignews5.bellsouth.net.. .[color=blue]
> Did you check the Faculty table to see if the field already exists in the
> table? A table can only have one field with a specific name.
>
> --
> David Lloyd
> MCSD .NET
> http://LemingtonConsulting.com
>
> This response is supplied "as is" without any representations or
> warranties.
>
>
> "Dixie" <dixie@dogmail.com> wrote in message
> news:431e2eab$1@duster.adelaide.on.net...
> I am trying to write code to add a field called "Additional" to an
> existing
> table called "Faculty". When I run it as an on click event, it stops at
> the
> line, .append fldTemp with the error message Run-time error '3191': Cannot
> define field more than once.
>
> Can someone please point out the error to me.
>
> dixie
>
> Private Sub AddField_Click()
> Dim dbs As DAO.Database
> Dim tdfFaculty As DAO.TableDef
> Dim fldTemp As Field
>
> Set dbs = CurrentDb()
> Set tdfFaculty = dbs.TableDefs("Faculty")
> Set fldTemp = tdfFaculty.CreateField("Additional", dbText, 255)
>
> With tdfFaculty.Fields
> .Append fldTemp
> End With
>
> End Sub
>
>
>
>[/color]